Anonymous Mail

Iniciado por ProcessKill, Febrero 24, 2010, 04:31:47 PM

Tema anterior - Siguiente tema

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

Febrero 24, 2010, 04:31:47 PM Ultima modificación: Marzo 14, 2015, 09:42:19 AM por Expermicid
Código: perl
#!/usr/bin/perl
print "        |---------------------------------------------|\n";
print "        |            Anonymous mail by Erik           |\n";
print "        |           [email protected]           |\n";
print "        |              www.code-makers.es             |\n";
print "        |---------------------------------------------|\n";
use Net::SMTP;
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, \\a...)):";
$sms = <STDIN>;
$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();