回家（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.

（出处：赢政天下收集整理）

相关文章：

·MD5的VB类模块源码

·adsubstract pro 2.1注册器（带源码）

·HappyIcon注册机TC源码

·irfanview注册器源码

·MagicWin 98 1.30f的注册机源码

·winzip注册机 源码

·语音界面2.0算法分析及注册机源码！

·算法分析《AceReader V4.5》破文+注册机源码 (12千字)

·《DesktopX v1.0》PJ 记录 + 注册机源码 (13千字)

·eBook Edit Pro 3.21 算法分析及注册机源码

相关软件：

·智能源码统计专家 v3.2

·智能源码统计专家 V3.4.05

·智能源码统计专家 V3.5

·源码备份 V2.22

→ 特别推荐

→ 热点TOP10

关于我们 |

帮助(？)

| 广告服务 |

版权声明 |

商业合作 |

发展历程 |

加盟我们 |

联系我们

Copyright © 1999-2003

winzheng.com All Rights Reserved.

繁体版:由华琦数码技术提供

Powered

by:MeSky.Net