Introduction - If you have any usage issues, please Google them yourself
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