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