Class TSecretFrm (unit Secretf) |
Inherits from
TForm
****************************************************************************} {Displays the form to get user input to seed the random number generator.
The time between key presses is used to feed the MD5 algorithm to produce
Random Numbers.
The Random Number Generator is based loosely on the one mentioned in the
PGP Mail and in a document by Brain J. Harvey
******************************************************************************} {This code is copyright by CRYPTOCard Corporation 1996. You may use it as is,
or preferably MODIFY it(the interface). It is placed into the public domain.
Spinning Cube Component by Unknown Author(Thanks).
It has been setup to be used as a DLL
Author: Greg Carter, CRPYTOCard Corporation, gregc@cryptocard.com
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender: TObject);
Byte2Hex
function Byte2Hex(numb : PByte; Len: WORD): String;
Public declarations
Bevel1 : TBevel;
CancelBtn : TBitBtn;
CountLable : TLabel;
CubeSpin1 : TCubeSpin;
HelpBtn : TBitBtn;
KeyEdit : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
OKBtn : TBitBtn;
PressLabel : TLabel;
FgKeyPresses : BYTE;
Private declarations
FLastTime : LongInt;
FNewSecret : String[32];
FOutputArray : Array[0..15] of char;
FRanMD5 : TMD5;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender: TObject);
Byte2Hex
function Byte2Hex(numb : PByte; Len: WORD): String;
Public declarations
Bevel1 : TBevel;
CancelBtn : TBitBtn;
CountLable : TLabel;
CubeSpin1 : TCubeSpin;
HelpBtn : TBitBtn;
KeyEdit : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
OKBtn : TBitBtn;
PressLabel : TLabel;
FgKeyPresses : BYTE;
Private declarations
FLastTime : LongInt;
FNewSecret : String[32];
FOutputArray : Array[0..15] of char;
FRanMD5 : TMD5;