Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement