oicq密码破解的代码

[netken]

用下面这个吧，perl写的
#!/usr/bin/perl
# writen by NetKen.
open(FILE,"<oicq2000.cfg");
binmode FILE;
$content=<FILE>;
close(FILE);
$leng=length($content);
$i=7;
while ($i++<$leng) {
my $tmp = substr($content,$i,1);
$tmp = ord $tmp;
last if $tmp==0;
print sprintf("%c",255-$tmp)."\t";
}
不过破这个密码没什么用，因为必须人家用了保存密码，也就是自动登录选项，才会在oicq2000.cfg中写密码的，文中所提的 验证密码，不是在 oicq2000.cfg 中完成的。
详细的看
http://www.csdn.net/expert/topic/210/210667.shtm
我会尝试写一个真正破解的perl程序
谁如果有这方面的资料，请给我个mail，thx
NetKen.

[qb_zhm]

up

[jinandsun]

最好写个解释~谢谢~期待。。。。