Class Tcryptfrm (unit CrypFm16)

Inherits from

TForm

Renamed from Frm1.pas 6/8/1998 Paul Rice to avoid conflict with 32-bit version.

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);


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);


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;