unit1.pas

软件加密与解密配套光盘,源码和部分工具,质量高而且本站没有的源码

unit Unit1;

interface

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

type
  TMainForm = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
var
  Sn,Name:string;
  i:integer;
begin
  if edit1.Text='' then
  begin
  messagebox(handle,'请输入用户名和序列号！', 'Error:',(mb_ok+MB_ICONWARNING));
  exit;
  end;
  if length(edit1.Text)<4 then
  begin
  messagebox(handle,'用户名至少四个字符！', 'Error:',(mb_ok+MB_ICONWARNING));
  exit;
  end;
  Name:=edit1.Text;
  for i:=1 to length(edit1.Text) do
  begin
  Sn:=sn+inttohex(ord(Name[i]),2);
  end;

  if edit2.Text=sn then
  begin
  messagebox(handle,'恭喜你，注册成功！', 'ok:',(mb_ok+MB_ICONINFORMATION));
  end
  else
  begin
  messagebox(handle,'序列号不对呀，请再试试！', 'Error:',(mb_ok+MB_ICONWARNING));
  end;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
Close();
end;

end.