register.pas

想知道程序是如何实现加密解密的嘛？ 那么来下载去看看吧

unit register;

interface

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

type
  TregisterForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    SpeedButton3: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  registerForm: TregisterForm;

implementation

uses Unit1;

{$R *.DFM}

procedure TregisterForm.SpeedButton1Click(Sender: TObject);
begin
form1.Enabled:=true;
close;
end;

procedure TregisterForm.SpeedButton3Click(Sender: TObject);
var
Reg:TRegistry;
i,ri:integer;
rstr,rs:string;
ggggggg:string;
begin
if (edit1.Text='') or (edit2.Text='') then
begin
 MessageBox(registerForm.Handle,'输入注册码出错','网页加密',MB_ok or
                    MB_ICONQUESTION);
registerForm.Close;
form1.Enabled:=true;
exit;
end;


ggggggg:='';
 for i:=1 to strlen(pchar(edit1.Text))  do
 begin
 ggggggg:=ggggggg+inttostr(ord(edit1.Text[i])+155);
 end;




if edit2.Text<>ggggggg then
begin
 MessageBox(registerForm.Handle,'输入注册码出错','网页加密',MB_ok or
                    MB_ICONQUESTION);
registerForm.Close;
form1.Enabled:=true;
exit;
end;



Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\DataAccess\RootBinder\nds',True);
Reg.Writestring('set','1');
reg.CloseKey;
Reg.Free;
  MessageBox(registerForm.Handle,'输入注册码成功，谢谢你使用本软件','网页加密',MB_ok or
                    MB_ICONQUESTION);
registerForm.Close;
form1.Enabled:=true;

end;

procedure TregisterForm.FormCreate(Sender: TObject);
var
H: THandle;
begin
H:= registerForm.Handle;//ToolBar在拖出来之后被"套进"另一个窗口里了
SetWindowLong(H, GWL_STYLE, GetWindowLong(H, GWL_STYLE) and not WS_SYSMENU);//把它的关闭按钮去掉
ShowWindow(H, SW_HIDE);//这两句是为了让它刷新，使关闭按钮马上消失
ShowWindow(H, SW_SHOW);//如果没有这两句，必须移动一下或者调整一下大小才行
end;

end.