Code: Select all
FFingerPrint = Scconsts_SKeyNotReady;
Code: Select all
FFingerPrint := SKeyNotReady;
Code: Select all
void __fastcall TSettingsForm::RandomizeIt(void)
{
auto_ptr RandomForm(new TRandomForm(Application));
auto_ptr ScRandom(new TScRandom());
if (RandomForm->ShowModal() == mrOk)
{
ScRandom->Randomize((void *)RandomForm->Data.c_str(), DATASIZE);
FRandomized = true;
}
}
P.S.
Code from TRandomForm
Code: Select all
RandomForm.h
...
private: // User declarations
AnsiString FData;
int FCount;
...
...
RandomFormUnit.cpp
void __fastcall TRandomForm::FormMouseMove(TObject *Sender, TShiftState Shift, int X,
int Y)
{
__int64 data;
if (FCount >= DATASIZE)
return;
data = X ^ Y ^ PerfCounter();
FData[FCount] = (char)data ^ 256;
FCount++;
data = data >> 8;
FData[FCount] = (char)data ^ 256;
FCount++;
ProgressBar->StepIt();
if (FCount >= DATASIZE)
{
lbInform->Caption = "The data for the random generator has been generated!";
btClose->ModalResult = mrOk;
btClose->Caption = "&OK";
}
}