写了一下算法注册机:
测试成功:
注册成功后的界面:
贴上注册机源码:
[Asm] 纯文本查看 复制代码 var
//公共变量,不要动
strName,strSn: string;
{----公共函数不要动----}
procedure Init;
begin
strName := edtName.Text;
end;
procedure SetSn;
begin
edtSn.Text := strSn
end;
{----公共函数结束----}
function GetSn(sName: string): string;
begin
Result := LowerCase(MD5('wulili' + sName + 'liyueyue'+ sName));
end;
{----注册机入口----}
begin
Init;
if strName <> '' then
begin
{------这里开始写算法}
strSn := GetSn(strName);
strName := LowerCase(strSn);
strSn := GetSn(strName);
SetSn;
end;
end.
{------------------} |