小子贼野 发表于 2007-8-8 14:22:12

Delphi版本的算法注册机源码：
var
a,b,c:integer;
begin
a:=Randomrange(100,999);
b:=randomrange(0,9);
c:=randomrange(0,9);
repeat
b:=randomrange(0,9);
c:=randomrange(0,9);
until
((48+b)+(48+c)) mod 10=4;
if b/2=0 then edit1.text:='A1910'+inttostr(a)+inttostr(b)+inttostr(c)
else
edit1.Text:='A1423'+inttostr(a)+inttostr(b)+inttostr(c);
end;

才发现，此软件并不被我一个人蹂躏/:017

[ 本帖最后由 小子贼野 于 2007-9-18 16:54 编辑 ]

zxwbj 发表于 2007-9-9 19:35:07

厉害！分析得够清析。
学习

speedboy 发表于 2007-11-10 19:56:20

不错分析很好学习算法很有帮助

rb191195 发表于 2007-11-12 03:03:06

太厉害了。还好看得懂易语言

fengasdf 发表于 2007-11-19 17:16:19

看看,学习一下,请各位多多关照

sdprtf 发表于 2007-11-21 17:12:55

好东西,谢谢楼主

sdprtf 发表于 2007-11-22 09:37:31

懂易语言很重要啊

gyp 发表于 2007-12-2 14:03:37

/:good

语言不懂，看不懂啊。

ps：还以为是c++写的呢...

l4nneret 发表于 2007-12-2 19:15:50

太棒了，在这里看到易语言，用中文编写，看起来很亲切

xunhua 发表于 2007-12-4 15:56:37

学习中....辛苦了/!
页: 1 [2] 3
查看完整版本: eXeScope 6.50 中文版注册分析