main.~pas

delphi 实现DES算法

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);
    procedure BitBtn3Click(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;

procedure TFormDES.BitBtn3Click(Sender: TObject);
var
  Temp :String;
begin
  Temp:=  Format('%x', 11);
 // showmessage();
end;

end.