动易2005-2006算号器的源代码--动易,算号器,源代码

[推荐]动易2005-2006算号器的源代码

荐 ★★★★★

动易2005-2006算号器的源代码

文章整理发布：黑客风云文章来源：www.05112.com 更新时间：2007-8-11

动易2006算法
动易2007就快发布了，把2006的算法公开吧，赚点人气，希望动易不要来找我。

以下是引用片段：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,MD5,BASE64,math,CLIPBRD, ExtCtrls,DateUtils;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
Label4: TLabel;
ComboBox2: TComboBox;
Label3: TLabel;
ComboBox3: TComboBox;
Label5: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
RadioGroup1: TRadioGroup;
Image1: TImage;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Procedure GenPE2006Key();
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

const
PublicKey=63169;
Modulus=43679;
Function Crypt(const pLngMessage, pLngKey:integer):Integer;
var
lLngMod,lLngResult,lLngIndex:integer;
begin
If pLngKey Mod 2 = 0 Then
begin

lLngResult := 1;
For lLngIndex := 1 To pLngKey div 2 do
begin
lLngMod := round(Power(pLngMessage , 2)) Mod Modulus;
// Mod may error on key generation
lLngResult := (lLngMod * lLngResult) Mod Modulus
end;
end
Else
begin
lLngResult := pLngMessage ;
For lLngIndex := 1 To pLngKey div 2 do
begin
lLngMod := round(Power(pLngMessage , 2)) Mod Modulus ;

// Mod may error on key generation
lLngResult := (lLngMod * lLngResult) Mod Modulus ;

end;
End;
Result := lLngResult ;
End;

Function Encode(const pStrMessage:String):String;
var
lLngIndex,lLngMaxIndex:Integer;
lBytAscii:Byte;
lLngEncrypted:Integer;
begin
Result := ’’;
lLngMaxIndex := Length(pStrMessage);
If lLngMaxIndex = 0 Then
Exit;
For lLngIndex := 1 To lLngMaxIndex do
begin
lBytAscii := Ord(pStrMessage[lLngIndex]);
lLngEncrypted := Crypt(lBytAscii, PublicKey);
Result := Result + IntToHex(lLngEncrypted, 4)
end;
End;

Procedure Gen2006Key(var st1:String; Const sSiteName,sYear,sVersion:String;iStr:Integer);
var
sSiteMD5,SA,sCRC:String;
i,k:Integer;
begin
SA:=’’;
sSiteMD5:= cMD5.UpperMD5(cBase64.StrToBase64(sSiteName)+ cBase64.StrToBase64(sVersion));

sCRC:=Encode(Trim(Copy(sSiteMD5,1,5)));
SA:=sSiteMD5+sSiteMD5+sYear+sCRC;

//填充散列
k:=iStr;
for i:=1 to Length(SA) do
begin
st1[k]:= SA[i];
k:= k+(i mod 9) +1;
end;

end;

procedure TForm1.GenPE2006Key;
const
sBase=’123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-=’;
var
sSiteName,sYear:String;
SN:String;
st1,st2:String;

i:integer;

F1: TextFile;

begin

sSiteName:=Trim(Edit1.Text);

DateSeparator := ’-’;
ShortDateFormat := ’yyyy-mm-dd’;

case RadioGroup1.ItemIndex of
0:sYear:=DateToStr(IncDay(Date,3));
1:sYear:=DateToStr(IncDay(Date,10));
2:sYear:=DateToStr(IncDay(Date,365));
3:sYear:=DateToStr(IncDay(Date,3650));
4:sYear:=Trim(Edit2.Text);
end;
sYear:= Trim(cBase64.StrToBase64(sYear));

Setlength(SN,4096);

//生成随机数
SetLength(st1,4064);
Randomize;
for i:=1 to Length(st1) do
st1[i]:= sBase[Random(63)+1];

if ComboBox1.ItemIndex 〉0 then
Gen2006Key(st1,sSiteName,sYear,’CMS’+intTostr(ComboBox1.ItemIndex),1);

if ComboBox2.ItemIndex 〉0 then
Gen2006Key(st1,sSiteName,sYear,’eShop’+intTostr(ComboBox2.ItemIndex),501);

if ComboBox3.ItemIndex 〉0 then
Gen2006Key(st1,sSiteName,sYear,’CRM’+intTostr(ComboBox3.ItemIndex),1001);

//供求
if CheckBox1.Checked then
Gen2006Key(st1,sSiteName,sYear,’SD’,3001);

//房产
if CheckBox2.Checked then
Gen2006Key(st1,sSiteName,sYear,’House’,3501);

//企业招聘
if CheckBox3.Checked then
Gen2006Key(st1,sSiteName,sYear,’HR’,2501);

//室场登记
if CheckBox4.Checked then
Gen2006Key(st1,sSiteName,sYear,’Equipment’,2001);

//学生学籍
if CheckBox5.Checked then
Gen2006Key(st1,sSiteName,sYear,’SDMS’,1501);

st2:= cMD5.UpperMD5(st1);

//填充序列号
for i:=1 to 4000 do
SN[i]:= st1[i];
for i:=1 to Length(st2) do
SN[4000+i]:= st2[i];
for i:=1 to 64 do
SN[4032+i]:= st1[4000+i];

Clipboard.Astext := SN ;

AssignFile(F1, ’[’+sSiteName+’]SN.txt’);
Rewrite(F1);
Write(F1,SN);
CloseFile(F1);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GenPE2006Key();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.Color := RGB(78,111,214);
GroupBox1.Color := RGB(78,111,214);
end;

end.

上一页 [1] [2]

文章录入：cainiaowang 责任编辑：cainiaowang

上一篇文章： API对注册表进行操作(Delphi编程)

下一篇文章：没有了

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

VIP 专区

	抽根憋闷烟的心声
	学习网页制作的理由
	加入终身会员的理由!!!
	学习黑客编程的5大理由
	学习免杀的6大理由
	学习软件破解的理由
	常见问题解答
	汇款向导
	学员报名咨询

	实例解析蠕虫病毒的原理	03-28
	在Delphi编程中使用C语言代码	01-31
	黑客非法探取密码的原理及安全防	01-29
	熊猫烧香核心源码-Delphi编程	01-26
	端口截听实现端口隐藏，嗅探与攻	01-20
	delphi基础学堂-详细讲解delphi	01-10
	Visual C++编程窃取QQ密码	12-08
	编程实现重起网卡等设备	12-07
	一个邮件群发的Delphi代码!	12-06
	Delphi下Internet的编程技巧	11-20
	Delphi黑客编程－如何映射虚拟盘	11-15
	用DETOURS库获取NT管理员权限	11-08