-
-
[旧帖]
[求助]我想请问一下我做的这个delphi注册机那里出错
0.00雪花
-
发表于:
2009-10-10 11:11
3207
-
[旧帖] [求助]我想请问一下我做的这个delphi注册机那里出错
0.00雪花
软件是一个简单的小软件,我只是拿来学习的。因为刚接触DELPHI。。。
希望大家多多指教。。
那个小软件的用户名算法是: 取全部用户名转换为大写(前提用户名必须是字母)
转换结果与 5678 xor 疑惑// 结果是十进制的。。。
下面是delphi注册机代码:
var
a,b:string;
c,d,e:integer;
begin
c:=0;
for d:=0 to length(edit1.text)-1 do
begin
a:=UPPERCASE(edit1.Text[d]);
c:= (strtoint(a) xor 5678)
end;
edit2.Text:=inttostr(c);
希望大家能够帮帮小弟。。
[课程]Linux pwn 探索篇!