嘿嘿,CCDebuger兄的仿CCG,我来个用Delphi+KOL的仿ZWT的!
***************************上面的代码省略***********************************
//定义所用到的网址
MyWebPage:string='http://cztool.ys168.com/';
//定义 注册机显示的标题
Caption:string = 'Keymaker for MyBDnote Products';
//定义 注册机的编写者
Author:string = 'aCaFeeL';
//定义 注册机的发布日期
Date:string = '2003--07-06';
//定义 注册机启动后的默认注册名
Name:string= '在此输入你的注册名称...';
//**************************************************************************
//****** 注册名->注册码 换算函数 ****** //某软件 V1.03 的注册算法
//**************************************************************************
function KeyGen(RegName: String): String; //定义函数
var //定义 函数所用到的变量
textP:string;
i:integer;
begin //定义 注册名->注册码的 具体算法
{}//<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>//{}
textP:='Th[is33Is20My71Sh(a)re24Wa]re'; //密码对照表
for i:=1 to Length(RegName) do
Result:=Result + textP[( ( Ord(RegName[i]) + 7904 ) mod 27 ) + 1];
{}//<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>//{}
end;
//******************************************************************************
//******************************************************************************
//开始计算注册码
procedure TForm1.EditBoxNameChange(Sender: PObj);
begin
if Form1.EditBoxName.Text = '在此输入你的注册名称...'
then Form1.EditBoxCode.Text := '你将得到正确的注册码...'
else Form1.EditBoxCode.Text := KeyGen(Form1.EditBoxName.Text); //显示正确注册码
end;
procedure TForm1.BitBtn1Click(Sender: PObj);
begin
//显示关于本软件对话框
ShowMessage(PChar(Caption + #10#13 + #10#13 +
'Made By ' + Author + #10#13 + #10#13 +
MyWebPage + #10#13 +
Date));
//连接自己的主页
ShellExecute( 0, 'open',PChar(MyWebPage), nil, nil, SW_SHOW );
end;
//**************************************************************************
//窗体启动时的代码
//**************************************************************************
procedure TForm1.KOLFormMainShow(Sender: PObj);
begin
//定义 注册机显示的标题
Form.Caption := Caption;
Form1.EditBoxName.Text := Name;
Form1.EditBoxName.Focused := True; //让光标聚焦在EditBoxName控件中
Form1.EditBoxName.SelectAll; //将注册名全部选定
end;
//程序退出
procedure TForm1.BitBtn2Click(Sender: PObj);
begin
Form.Close;
end;
***************************下面的代码省略***********************************
附件:zwtKeyGen.rar