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

Constructors



Functions

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

Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;