> else
{
$password[$locat] = threads->create("crack",@dic3,$sql);
}
} 慢慢等待这些孩子们都一个个衣锦还乡吧：
程序代码：
for (my $locat=1;$locat<=$passlen;$locat++)
{
$password[$locat] = $password[$locat]->join();
}其它的显示细节，我就不要意思多说了，赶忙编译EXE。GO！
六． 编译perl为EXE
从perl2exe的老家http://www.indigostar.com/perl2exe.htm ，DOWN个最新版本的Perl2Exe for Win32，目前为止是8.40，直接解压缩，CMD命令行进入解压后的目录，为了避免浏览烦人的广告，我们先得注册一下这个软件：
程序代码：
D:\hemon\software>perl2exe -register
Perl2Exe V8.40 Copyright (c) 1997-2004 IndigoSTAR Software
Please enter your registration key, or press enter to cancel输入我的注册码：
hemon:hemon:20040709,36713
注册成功之后显示：
Registered
同时，程序目录生成一个名为perl2exe.key的注册表文件，可千万移不得啊！
编译PL：
程序代码：
D:\hemon\software>perl2exe si.pl
Perl2Exe V8.40 Copyright (c) 1997-2004 IndigoSTAR Software
Registered to hemon:hemon:20040709, ENT version
Converting ''''si.pl'''' to si.exe
一个多线程的、支持中文破解的PERL版注入器就诞生了！！！
大约能提高一倍的速度，也就是可以节约一半的时间，与我的预期还是有很大出入的。美中不足的是，还真应了“欲速则不达”的古语，我提供了两个版本（thr.pl\sig.pl），对于那些网速较慢的网站，呵呵……用了你就知道，一般人我不告诉！最好还是改用单线程的，稳定性较好。
不过，代码在手，我就不怕你会改，增强稳定性什么的，稍微加上几个函数，让它支持PHP+MYSQL，ASP+MSSQL什么的……
一句话：网聚人的力量！支持开放原代码！
上一页 [1] [2] [3] |
