Description: Crypt for delphi
TfrmCryptTestBench = class(TForm)
txtPassword : TEdit
lblClearText : TLabel
lblCypherText : TLabel
lblPassword : TLabel
cmdEncode : TBitBtn
cmdDecode : TBitBtn
cmdClose : TBitBtn
txtClearText : TEdit
txtCypherText : TEdit
procedure txtPasswordKeyUp(
Sender : TObject
var Key : Word
Shift : TShiftState)
procedure txtClearTextKeyUp(
Sender : TObject
var Key : Word
Shift : TShiftState)
procedure cmdEncodeClick(Sender: TObject)
procedure cmdDecodeClick(Sender: TObject)
private
{ Private declarations }
public
{ Public declarations }
end
To Search:
File list (Check if you may need any files):
CryptProject.cfg
CryptProject.dof
CryptProject.dpr
CryptProject.dsk
CryptProject.exe
CryptProject.res
CryptUnit.dcu
CryptUnit.dfm
CryptUnit.pas
Download