untendescryptmain.pas

来自「加密和解密的算法」· PAS 代码 · 共 43 行

unit UntEnDeScryptMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFrmEnDeScryptMain = class(TForm)
    BtnGetHardDiskID: TBitBtn;
    EdtHardDiskID: TEdit;
    BtnDescrypt: TBitBtn;
    EdtDescrypt: TEdit;
    procedure BtnGetHardDiskIDClick(Sender: TObject);
    procedure BtnDescryptClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmEnDeScryptMain:TFrmEnDeScryptMain;

implementation
uses UntDll;
{$R *.dfm}

procedure TFrmEnDeScryptMain.BtnGetHardDiskIDClick(Sender: TObject);
begin
  //EdtHardDiskID.Text:=StrPas(GetHardDiskSeriID_Dll());
  //EdtHardDiskID.Text:=GetHardDiskSeriID_Dll();
  EdtHardDiskID.Text:=GetEnscryptHard();
end;

procedure TFrmEnDeScryptMain.BtnDescryptClick(Sender: TObject);
begin
  EdtDescrypt.Text:=GetDescryptHard(Trim(EdtHardDiskID.Text));
end;

end.