aboutsummaryrefslogblamecommitdiffstats
path: root/apps/windoze/CBuilder5/InstallMgr/cipherfrm.cpp
blob: 5b77797feecee2530e3305b0af20868069171c10 (plain) (tree)


































































                                                                             
//---------------------------------------------------------------------------
#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 = "";	
}
//---------------------------------------------------------------------------