Mailer

Con el Motivo de enseñar como usar el SMTP pues hice aqui un pequeño mailer programado en perl; con este podrian enviar mails de broma y algunas cosillas mas de hecho agregando un pequeño bucle (lazo) podrian usarlo como mailbomber... ahora espero les guste

Código:

#!/usr/bin/perl
# By Dedalo
# www.seguridadblanca.blogspot.com
print "Mailer By Dedalo\n";
print "Solo es con fines educativos\n";
use Net::SMTP;
print "tu mail o mail remitente (que desea utilizar):";
$from = ;
print "mail de la victima o usuario donde llegara el correo:";
$para = ;
print "Asunto:";
$asunto = ;
print "el mensaje (puedes usar secuencias perl para saltar linea y mas):";
$mensaje = ;
print "el mailhost:";
$host = ;
$smtp = Net::SMTP->new("$host",
Hello => "$host",
Timeout =>25,
Debug =>1,
);
die "No se pudo hacer conexion";
print $smtp->domain,"\n";
$smtp->mail("$ffrom");
$smtp->to("$para");
$smtp->data();
$smtp->datasend("To: $para");
$smtp->datasend("From: $from");
$smtp->datasend("Subject:$asunto\n");
$smtp->datasend("$mensaje");
$smtp->dataend();
$smtp->quit();


espero lo disfruten y no lo usen para el mal siempre con juicio...

Saludos

Dr.White