您的位置：首页 → 精文荟萃 → 破解文章 → 回家（PBackhome)v 1.02版注册机 源码

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

时间：2004/10/15 0:49:00来源：本站整理作者：蓝点我要评论(0)

　

//回家（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是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论