?? main.pas
字號(hào):
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,MyDes, StdCtrls, Buttons;
type
TFormDES = class(TForm)
Edit_InPlainText: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit_InKeyText: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit_OutCipherText: TEdit;
Label4: TLabel;
Edit_OutPlainText: TEdit;
Button1: TButton;
BitBtn3: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
MyDes:TMyDes;
{ Private declarations }
public
{ Public declarations }
end;
var
FormDES: TFormDES;
implementation
{$R *.dfm}
procedure TFormDES.BitBtn1Click(Sender: TObject);
begin
Edit_OutCipherText.Text := MyDes.EncryStrHex(Edit_InPlainText.Text,Edit_InKeyText.Text);
end;
procedure TFormDES.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TFormDES.BitBtn2Click(Sender: TObject);
begin
Edit_OutPlainText.Text := MyDes.DecryStrHex(Edit_OutCipherText.Text,Edit_InKeyText.Text);
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -