回家（PBackhome)v 1.02版注册机 源码

//回家（PBackhome)v 1.02版注册机
//delphi5.0编译
//注册码计算：
//取计算机用户名（转为大写字母）作为机器码，机器码字符长度不足15位,
//则在机器码后依次加上PolarBearSoftware，凑足15位字符
//分别取每个字符的ASCII码，转为10进制数值，加1，累积求和sum1
//若机器码字符长度<15位，sum1*64*机器码字符长度＝注册码
//否则sum1*64*15=注册码

unit Unit3;

interface

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

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

var
Form1: TForm1;
a,b,d,e,h,i,len1,len2:longint;
c:String;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
len1 := length(edit1.text); //len=机器码长度
name := edit1.text; //name=机器码
b := 0;
e := 0;
for i := 1 to len1 do
begin
a := ord(name[i]) + 1; //取机器码每个字符ascii码，转为10进制数
b := a + b; //累计求和
end;

len2 := 15 - len1;
if len2 <= 0 then edit2.text := inttostr(b*64*15);
if len2 > 0 then
begin
c := 'PolarBearSoftware';
for h := 1 to len2 do
begin
d := ord(c[h]) + 1;
e := d + e;
end;
edit2.text := inttostr((b+e)*64*len1);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.

MagicWin 98 1.30f的注册机源码：【上一篇】
电脑幽灵pcGhost4.0注册机(TC编译通过)：【下一篇】