Anonymous Mailer (Rev. 2)

				
=**************************************
= Name: Anonymous Mailer (Rev. 2)
= Description:sends e-mail spoofed from any domain! the last one i submitted, everythign had to be on one line. this new revison, simplifies everything, asking the user each field seperately. also supports a subject in the e-mail now =D
= By: TonikGin
=
= Inputs:mail server, recepient, sender, subject, and message.
=
= Returns:status of connecting
=
= Assumes:no error handling, one day i'll learn how though =D
=
= Side Effects:program only checks to see if mail server exits, and if it has port 25 open (smtp port), then it goes about it's business. no real error handling.
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=363&lngWId=6=for details.=**************************************

#! /usr/bin/perl
# Program to connect to mail server
# and send mail to a specified user
# Robert Wolfe 8-24-2002
# Pray to god this works
###################################
use IO::Socket;
if (!$ARGV[0]) { 
print "Program intended to send mail anonymously\n";
print "Usage: perl $0 [server]\n";
exit; # finish this routine
}
# Time to define some variables!
$server = $ARGV[0]; # what server to use to send the mail
{ 
print"Senders E-Mail Address: ";
$sender = <STDIN>;
print"Receipents E-Mail Address: ";
$recpt = <STDIN>;
print"Subject: ";
$subject = <STDIN>;
print"Type message to send: ";
$message = <STDIN>;
$remote = IO::Socket::INET->new( PeerAddr => "$server", Proto => "tcp", PeerPort => "25") || die "[Unable to Connect!]\n";;
print "Connecting...\n";
sleep(1);
print $remote "HELO computer\n";
sleep(1); 
print "Sending E-Mail Header Information...\n";
print $remote "MAIL FROM: $sender\r\n"; 
sleep(1);
print $remote "RCPT TO: $recpt\n"; 
sleep(1); 
print $remote "DATA\n"; 
sleep(1);
print "Sending Message...\n";
print $remote "Subject: $subject\n";
print $remote "$message\n";
sleep(1);
print $remote ".\n";
sleep(1);
print "Anonymous E-Mail Sent!\n";
exit;
}