1 files changed, 67 insertions, 0 deletions
diff --git a/apps/X11/InstallMgr/src/cipherfrm.cpp b/apps/X11/InstallMgr/src/cipherfrm.cpp
new file mode 100644
index 0000000..5b77797
--- /dev/null
+++ b/apps/X11/InstallMgr/src/cipherfrm.cpp
@@ -0,0 +1,67 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+
+#include "cipherfrm.h"
+#include <swmgr.h>
+#include <swconfig.h>
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TCipherForm *CipherForm;
+//---------------------------------------------------------------------------
+__fastcall TCipherForm::TCipherForm(TComponent* Owner)
+	: TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall TCipherForm::Button2Click(TObject *Sender)
+{
+	SectionMap::iterator section;
+	ConfigEntMap::iterator entry;
+	SWConfig *modconf = new SWConfig(confFile.c_str());
+	string tmpBuf;
+	
+	section = modconf->Sections.find(modName);
+	if (section != modconf->Sections.end()) {
+		entry = section->second.find("CipherKey");
+		if (entry != section->second.end()) {
+			entry->second = CipherForm->cipherEdit->Text.c_str();
+			modconf->Save();
+			delete modconf;	// close file
+			modconf = 0;
+			SWMgr *mgr = new SWMgr();
+			SWModule *mod = mgr->Modules[modName];
+			mod->SetKey("Ipet 2:12");
+			tmpBuf = mod->StripText();
+			mod->SetKey("gen 1:10");
+			tmpBuf += "\r\n\r\n";
+			tmpBuf += mod->StripText();
+			Memo1->Text = tmpBuf.c_str();
+			delete mgr;
+		}
+	}
+	if (modconf)
+		delete modconf;
+	
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TCipherForm::FormShow(TObject *Sender)
+{
+	string tmpCaption;
+	tmpCaption = "Cipher Key: [";
+	tmpCaption += modName;
+	tmpCaption += "]";
+	Caption = tmpCaption.c_str();
+}
+//---------------------------------------------------------------------------
+
+
+void __fastcall TCipherForm::FormClose(TObject *Sender,
+      TCloseAction &Action)
+{
+	Memo1->Text = "";	
+}
+//---------------------------------------------------------------------------
+