//回家（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.
相关视频
相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
热门文章
去除winrar注册框方法
最新文章
比特币病毒怎么破解 比去除winrar注册框方法
华为无线路由器HG522-C破解教程(附超级密码JEB格式文件京东电子书下载和阅读限制破解教UltraISO注册码全集(最新)通过Access破解MSSQL获得数据
人气排行 华为无线路由器HG522-C破解教程(附超级密码JEB格式文件京东电子书下载和阅读限制破解教UltraISO注册码全集(最新)qq相册密码破解方法去除winrar注册框方法(适应任何版本)怎么用手机破解收费游戏华为无线猫HG522破解如何给软件脱壳基础教程
查看所有0条评论>>