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.

Anonymous Mail

  • 0 Respuestas
  • 1219 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:47 pm »
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 "        |            Anonymous mail by Erik           |\n";
  4. No tienes permisos para ver links. Registrate o Entra con tu cuenta "        |           youareowned@.hotmail.es           |\n";
  5. No tienes permisos para ver links. Registrate o Entra con tu cuenta "        |              www.code-makers.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 "Introduzca el mailhost al que desea solicitar la conexion:";
  9. $mailhost = <STDIN>;
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el email que desea utilizar:";
  11. $emailfrom = <STDIN>;
  12. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el email que desea bombear:";
  13. $emailto = <STDIN>;
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el asunto del correo:";
  15. $asunto = <STDIN>;
  16. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Introduzca el mensaje que desea enviar (Puede usar secuencias de escape (\\n, \\a...)):";
  17. $sms = <STDIN>;
  18. $smtp = Net::SMTP->new("$mailhost",
  19. Hello => "$mailhost",
  20. Timeout =>25,
  21. Debug   =>1,
  22. );
  23. No tienes permisos para ver links. Registrate o Entra con tu cuenta "No se ha podido conectar al servidor";
  24. No tienes permisos para ver links. Registrate o Entra con tu cuenta $smtp->domain,"\n";
  25. $smtp->mail("$emailfrom");
  26. $smtp->to("$emailto");
  27. $smtp->data();
  28. $smtp->datasend("To: $emailto");
  29. $smtp->datasend("From: $emailfrom");
  30. $smtp->datasend("Subject:$asunto\n");
  31. $smtp->datasend("$sms");
  32. $smtp->dataend();
  33. $smtp->quit();
« Última modificación: Marzo 14, 2015, 09:42:19 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Mail Bomber

Iniciado por ProcessKill

Respuestas: 0
Vistas: 1465
Último mensaje Febrero 24, 2010, 04:31:09 pm
por ProcessKill