comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Finder Pass 0.3

  • 0 Respuestas
  • 921 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Marzo 31, 2012, 05:51:24 pm »
La nueva version de un programa que habia hecho para crackear hashes md5 mediante paginas online.

Código: Perl
  1. #!usr/bin/perl
  2. #Finder Pass 0.3
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6.  
  7. my $nave = LWP::UserAgent->new;
  8. $nave->agent(
  9. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  10. );
  11. $nave->timeout(5);
  12.  
  13. menu();
  14.  
  15. sub menu {
  16.  
  17.     head();
  18.  
  19.     You are not allowed to view links. Register or Login "[+] Option : ";
  20.     You are not allowed to view links. Register or Login( my $op = <stdin> );
  21.  
  22.     if ( $op eq "1" ) {
  23.         You are not allowed to view links. Register or Login "\n\n[+] Hash : ";
  24.         You are not allowed to view links. Register or Login( my $ha = <stdin> );
  25.         if ( ver_length($ha) ) {
  26.             You are not allowed to view links. Register or Login "\n\n[+] Cracking Hash...\n";
  27.             my $re = crackit($ha);
  28.             unless ( $re =~ /false01/ ) {
  29.                 You are not allowed to view links. Register or Login "\n[+] Cracked : $re\n\n";
  30.                 savefile( "hashes-found.txt", $ha . ":" . $re );
  31.             }
  32.             else {
  33.                 You are not allowed to view links. Register or Login "\n[-] Not Found\n\n";
  34.             }
  35.         }
  36.         else {
  37.             You are not allowed to view links. Register or Login "\n\n[-] Hash invalid\n\n";
  38.         }
  39.         You are not allowed to view links. Register or Login "\n[+] Finished";
  40.         <stdin>;
  41.         menu();
  42.     }
  43.     if ( $op eq "2" ) {
  44.         You are not allowed to view links. Register or Login "\n\n[+] Wordlist : ";
  45.         You are not allowed to view links. Register or Login( my $fi = <stdin> );
  46.         if ( -f $fi ) {
  47.             You are not allowed to view links. Register or Login "\n\n[+] Opening File\n";
  48.             You are not allowed to view links. Register or Login( WORD, $fi );
  49.             my @varios = <WORD>;
  50.             You are not allowed to view links. Register or Login WORD;
  51.             my @varios = repes(@varios);
  52.             You are not allowed to view links. Register or Login "[+] Hashes Found : " . You are not allowed to view links. Register or Login(@varios);
  53.             You are not allowed to view links. Register or Login "\n\n[+] Cracking hashes...\n\n";
  54.             for $hash (@varios) {
  55.                 You are not allowed to view links. Register or Login $hash;
  56.                 if ( ver_length($hash) ) {
  57.                     my $re = crackit($hash);
  58.                     unless ( $re =~ /false01/ ) {
  59.                         You are not allowed to view links. Register or Login "[+] $hash : $re\n";
  60.                         savefile( "hashes-found.txt", $hash . ":" . $re );
  61.                     }
  62.                 }
  63.             }
  64.         }
  65.         else {
  66.             You are not allowed to view links. Register or Login "\n\n[-] File Not Found\n\n";
  67.         }
  68.         You are not allowed to view links. Register or Login "\n[+] Finished";
  69.         <stdin>;
  70.         menu();
  71.     }
  72.     if ( $op eq "3" ) {
  73.         copyright();
  74.     }
  75. }
  76.  
  77. sub crackit {
  78.  
  79.     my $target = You are not allowed to view links. Register or Login;
  80.  
  81.     You are not allowed to view links. Register or Login $target;
  82.  
  83.     my %hash = (
  84.  
  85.         'http://md5.hashcracking.com/search.php?md5=' => {
  86.             'tipo'  => 'get',
  87.             'regex' => "Cleartext of $target is (.*)",
  88.         },
  89.  
  90.         'http://www.hashchecker.com/index.php?_sls=search_hash' => {
  91.             'variables' => { 'search_field' => $target, 'Submit' => 'search' },
  92.             'regex' =>
  93.               "<td><li>Your md5 hash is :<br><li>$target is <b>(.*)<\/b>",
  94.         },
  95.  
  96.         'http://md5.rednoize.com/?q=' => {
  97.             'tipo'  => 'get',
  98.             'regex' => "<div id=\"result\" >(.*)<\/div>"
  99.         },
  100.  
  101.         'http://md52.altervista.org/index.php?md5=' => {
  102.             'tipo'  => 'get',
  103.             'regex' => "<br>Password: <font color=\"Red\">(.*)<\/font><\/b>"
  104.           }
  105.  
  106.     );
  107.  
  108.     for my $data ( You are not allowed to view links. Register or Login %hash ) {
  109.         if ( $hash{$data}{tipo} eq "get" ) {
  110.             $code = toma( $data . $target );
  111.             if ( $code =~ /$hash{$data}{regex}/ig ) {
  112.                 my $found = $1;
  113.                 unless ( $found =~ /\[Non Trovata\]/ ) {
  114.                     You are not allowed to view links. Register or Login $found;
  115.                     last;
  116.                 }
  117.             }
  118.         }
  119.         else {
  120.             $code = tomar( $data, $hash{$data}{variables} );
  121.             if ( $code =~ /$hash{$data}{regex}/ig ) {
  122.                 my $found = $1;
  123.                 You are not allowed to view links. Register or Login $found;
  124.                 last;
  125.             }
  126.         }
  127.     }
  128.     You are not allowed to view links. Register or Login "false01";
  129. }
  130.  
  131. sub copyright {
  132.     You are not allowed to view links. Register or Login "\n\n(C) Doddy Hackman 2012\n";
  133.     <stdin>;
  134.     You are not allowed to view links. Register or Login(1);
  135. }
  136.  
  137. sub head {
  138.     You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  139.  
  140.  
  141. ##########  #########  #########     #####   #    ###  ###
  142.  #  # #  ##  #  #   #   #  # #  #     #  #   #   #  # #  #
  143.  #    #  ##  #  #    #  #    #  #     #  #  # #  #    #  
  144.  ###  #  # # #  #    #  ###  ###      ###   # #   ##   ##
  145.  #    #  # # #  #    #  #    # #      #    #####    #    #
  146.  #    #  #  ##  #   #   #  # #  #     #    #   # #  # #  #
  147. ###  ######  # #####   ########  #   ###  ### ######  ###
  148.  
  149.  
  150.  
  151.  
  152. [++] Options
  153.  
  154.  
  155. [+] 1 : Hash
  156. [+] 2 : File with hashes
  157. [+] 3 : Exit
  158.  
  159.  
  160. );
  161. }
  162.  
  163. sub savefile {
  164.     You are not allowed to view links. Register or Login( SAVE, ">>" . $_[0] );
  165.     You are not allowed to view links. Register or Login SAVE $_[1] . "\n";
  166.     You are not allowed to view links. Register or Login SAVE;
  167. }
  168.  
  169. sub repes {
  170.     my @limpio;
  171.     foreach $test (@_) {
  172.         You are not allowed to view links. Register or Login @limpio, $test unless $repe{$test}++;
  173.     }
  174.     You are not allowed to view links. Register or Login @limpio;
  175. }
  176.  
  177. sub ver_length {
  178.     You are not allowed to view links. Register or Login true if You are not allowed to view links. Register or Login( $_[0] ) == 32;
  179. }
  180.  
  181. sub toma {
  182.     You are not allowed to view links. Register or Login $nave->get( $_[0] )->content;
  183. }
  184.  
  185. sub tomar {
  186.     my ( $web, $var ) = @_;
  187.     You are not allowed to view links. Register or Login $nave->post( $web, [ %{$var} ] )->content;
  188. }
  189.  
  190. #The End ?
  191.  
« Última modificación: Marzo 14, 2015, 10:17:34 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3002
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1406
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1548
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1234
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1037
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear