Class TfrmTestDES (unit frmdtest)

Inherits from

TForm

Renamed from FrmBTest.pas 6/15/1998 Paul Rice to avoid conflict with author's work.

Constructors



Functions

procedure btnDecryptClick(Sender: TObject);


procedure btnEncryptClick(Sender: TObject);


procedure btnFileDecryptClick(Sender: TObject);


procedure btnFileEncryptClick(Sender: TObject);


procedure rdbCBCClick(Sender: TObject);


procedure rdbCFBClick(Sender: TObject);


procedure rdbECBClick(Sender: TObject);


procedure rdbOFBClick(Sender: TObject);


Properties

Events

Variables

btnDecrypt : TButton;


btnEncrypt : TButton;


btnFileDecrypt : TButton;


btnFileEncrypt : TButton;


DES1 : TDES;


edtTestText : TEdit;


grpFile : TGroupBox;


grpText : TGroupBox;


lblTestText : TLabel;


odlFileDec : TOpenDialog;


odlFileEnc : TOpenDialog;


rdbCBC : TRadioButton;


rdbCFB : TRadioButton;


rdbECB : TRadioButton;


rdbOFB : TRadioButton;


rgrMode : TRadioGroup;


sdlFileDec : TSaveDialog;


sdlFileEnc : TSaveDialog;



Constructors


Functions


procedure btnDecryptClick(Sender: TObject);


procedure btnEncryptClick(Sender: TObject);


procedure btnFileDecryptClick(Sender: TObject);


procedure btnFileEncryptClick(Sender: TObject);


procedure rdbCBCClick(Sender: TObject);


procedure rdbCFBClick(Sender: TObject);


procedure rdbECBClick(Sender: TObject);


procedure rdbOFBClick(Sender: TObject);


Properties


Events


Variables


btnDecrypt : TButton;


btnEncrypt : TButton;


btnFileDecrypt : TButton;


btnFileEncrypt : TButton;


DES1 : TDES;


edtTestText : TEdit;


grpFile : TGroupBox;


grpText : TGroupBox;


lblTestText : TLabel;


odlFileDec : TOpenDialog;


odlFileEnc : TOpenDialog;


rdbCBC : TRadioButton;


rdbCFB : TRadioButton;


rdbECB : TRadioButton;


rdbOFB : TRadioButton;


rgrMode : TRadioGroup;


sdlFileDec : TSaveDialog;


sdlFileEnc : TSaveDialog;