Class Tcryptfrm (unit Frm1)

Inherits from

TForm

Constructors



Functions

procedure BFButtonClick(Sender: TObject);

Finally

procedure DeButtonClick(Sender: TObject);

Finally

procedure DeIdeaButtonClick(Sender: TObject);

if

procedure EnIDEAButtonClick(Sender: TObject);

Finally

procedure OKBtnClick(Sender: TObject);

procedure md5_calc(outStr: PChar; inStr: PChar; inlen: WORD); far; external 'MD5';} {$R *.

Properties

Events

Variables

AlgorithmGroup : TRadioGroup;


Bevel1 : TBevel;


Bevel2 : TBevel;


BFButton : TBitBtn;


CipherModeGroup : TRadioGroup;


DeButton : TBitBtn;


DeIdeaButton : TBitBtn;


Edit1 : TEdit;


Edit2 : TEdit;


EnIDEAButton : TBitBtn;


IVectorEdit : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label9 : TLabel;


OKBtn : TBitBtn;


OpenDialog1 : TOpenDialog;


TimePanel : TPanel;



Constructors


Functions


procedure BFButtonClick(Sender: TObject);

Finally


procedure DeButtonClick(Sender: TObject);

Finally


procedure DeIdeaButtonClick(Sender: TObject);

if


procedure EnIDEAButtonClick(Sender: TObject);

Finally


procedure OKBtnClick(Sender: TObject);

procedure md5_calc(outStr: PChar; inStr: PChar; inlen: WORD); far; external 'MD5';} {$R *.DFM


Properties


Events


Variables


AlgorithmGroup : TRadioGroup;


Bevel1 : TBevel;


Bevel2 : TBevel;


BFButton : TBitBtn;


CipherModeGroup : TRadioGroup;


DeButton : TBitBtn;


DeIdeaButton : TBitBtn;


Edit1 : TEdit;


Edit2 : TEdit;


EnIDEAButton : TBitBtn;


IVectorEdit : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label9 : TLabel;


OKBtn : TBitBtn;


OpenDialog1 : TOpenDialog;


TimePanel : TPanel;