unitsoftkeymain.pas

软件注册码的实现。已经成功编译

unit UnitSoftKeyMain;

interface

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

type
  Tfrm_SoftKeyMain = class(TForm)
    Edit_User_Product_Id: TLabeledEdit;
    Edit_User_RegeditName: TLabeledEdit;
    Edit_User_Id: TLabeledEdit;
    Edit_User_Name: TLabeledEdit;
    BtOK: TSpeedButton;
    BtNO: TSpeedButton;
    procedure BtOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_SoftKeyMain: Tfrm_SoftKeyMain;

implementation

uses UnitkeyCryptClass;

{$R *.dfm}

procedure Tfrm_SoftKeyMain.BtOKClick(Sender: TObject);
var
    tempstrzzh      :String;
    tempstrluer     :String;
    tempstr_UserId  :String;
    tempstr_UserName:String;
begin
    if Trim(Edit_User_Product_Id.Text)='' then
    begin
        Application.MessageBox('【注册序列号】不能为空！请输入：【注册序列号】',Pchar(Application.Title),MB_ICONERROR+MB_OK);
        Edit_User_Product_Id.SetFocus;
        Exit;
    end;
    if Trim(Edit_User_RegeditName.Text)='' then
    begin
        Application.MessageBox('【注册用户名】不能为空！请输入：【注册用户名】',Pchar(Application.Title),MB_ICONERROR+MB_OK);
        Edit_User_RegeditName.SetFocus;
        Exit;
    end;
    tempstrzzh:='zzh';
    //加密序列号
    Edit_User_Id.Text   :=Decrypt(Trim(Edit_User_Product_Id.Text),'luersoft');
    //解密码
    tempstr_UserName    :=Encrypt(Trim(Edit_User_RegeditName.Text),'luersoft');
    //加密码
    Edit_User_Name.Text :=Decrypt(Trim(tempstr_UserName)+tempstrzzh,'luersoft');
end;

end.