[Perl] Finder Pass 0.3

La nueva version de un programa que habia hecho para crackear hashes md5 mediante paginas online.
#!usr/bin/perl
#Finder Pass 0.3
#Coded By pr0xXx0r
 
use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
menu();
 
sub menu {
 
    head();
 
    print "<ul class="bbc_list"><li type="square"> Option : ";[/li][/list]
    chomp( my $op = <stdin> );
 
    if ( $op eq "1" ) {
        print "\n\n</li><li type="square"> Hash : ";[/li][/list]
        chomp( my $ha = <stdin> );
        if ( ver_length($ha) ) {
            print "\n\n</li><li type="square"> Cracking Hash...\n";[/li][/list]
            my $re = crackit($ha);
            unless ( $re =~ /false01/ ) {
                print "\n</li><li type="square"> Cracked : $re\n\n";[/li][/list]
                savefile( "hashes-found.txt", $ha . ":" . $re );
            }
            else {
                print "\n[-] Not Found\n\n";
            }
        }
        else {
            print "\n\n[-] Hash invalid\n\n";
        }
        print "\n</li><li type="square"> Finished";[/li][/list]
        <stdin>;
        menu();
    }
    if ( $op eq "2" ) {
        print "\n\n</li><li type="square"> Wordlist : ";[/li][/list]
        chomp( my $fi = <stdin> );
        if ( -f $fi ) {
            print "\n\n</li><li type="square"> Opening File\n";[/li][/list]
            open( WORD, $fi );
            my @varios = <WORD>;
            close WORD;
            my @varios = repes(@varios);
            print "</li><li type="square"> Hashes Found : " . int(@varios);[/li][/list]
            print "\n\n</li><li type="square"> Cracking hashes...\n\n";[/li][/list]
            for $hash (@varios) {
                chomp $hash;
                if ( ver_length($hash) ) {
                    my $re = crackit($hash);
                    unless ( $re =~ /false01/ ) {
                        print "</li><li type="square"> $hash : $re\n";[/li][/list]
                        savefile( "hashes-found.txt", $hash . ":" . $re );
                    }
                }
            }
        }
        else {
            print "\n\n[-] File Not Found\n\n";
        }
        print "\n</li><li type="square"> Finished";[/li][/list]
        <stdin>;
        menu();
    }
    if ( $op eq "3" ) {
        copyright();
    }
}
 
sub crackit {
 
    my $target = shift;
 
    chomp $target;
 
    my %hash = (
 
        'http://md5.hashcracking.com/search.php?md5=' => {
            'tipo'  => 'get',
            'regex' => "Cleartext of $target is (.*)",
        },
 
        'http://www.hashchecker.com/index.php?_sls=search_hash' => {
            'variables' => { 'search_field' => $target, 'Submit' => 'search' },
            'regex' =>
              "<td><li>Your md5 hash is :<br><li>$target is <b>(.*)<\/b>",
        },
 
        'http://md5.rednoize.com/?q=' => {
            'tipo'  => 'get',
            'regex' => "<div id=\"result\" >(.*)<\/div>"
        },
 
        'http://md52.altervista.org/index.php?md5=' => {
            'tipo'  => 'get',
            'regex' => "<br>Password: <font color=\"Red\">(.*)<\/font><\/b>"
          }
 
    );
 
    for my $data ( keys %hash ) {
        if ( $hash{$data}{tipo} eq "get" ) {
            $code = toma( $data . $target );
            if ( $code =~ /$hash{$data}{regex}/ig ) {
                my $found = $1;
                unless ( $found =~ /\[Non Trovata\]/ ) {
                    return $found;
                    last;
                }
            }
        }
        else {
            $code = tomar( $data, $hash{$data}{variables} );
            if ( $code =~ /$hash{$data}{regex}/ig ) {
                my $found = $1;
                return $found;
                last;
            }
        }
    }
    return "false01";
}
 
sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n";
    <stdin>;
    exit(1);
}
 
sub head {
    print qq(
 
 
##########  #########  #########     #####   #    ###  ###
 #  # #  ##  #  #   #   #  # #  #     #  #   #   #  # #  #
 #    #  ##  #  #    #  #    #  #     #  #  # #  #    #   
 ###  #  # # #  #    #  ###  ###      ###   # #   ##   ## 
 #    #  # # #  #    #  #    # #      #    #####    #    #
 #    #  #  ##  #   #   #  # #  #     #    #   # #  # #  #
###  ######  # #####   ########  #   ###  ### ######  ### 
 
 
 
 
[++] Options
 
 
</li><li type="square"> 1 : Hash[/li]
</li><li type="square"> 2 : File with hashes[/li]
</li><li type="square"> 3 : Exit [/li][/list]
 
 
);
}
 
sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}
 
sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}
 
sub ver_length {
    return true if length( $_[0] ) == 32;
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}
 
#The End ?