HackTool.Perl.AnonyMail.a - Source Code

# anonymail - fuck, i was bored like shit. napalmed.
$script_url = "/am.cgi";
$sendmail = "/usr/sbin/sendmail";
@referers = ("");
$admin = "napalmed@fuck.au";
@friends = ("");
$good_refer = 0;
if($ENV{REQUEST_METHOD} eq 'GET')
{
&print_form;
}
elsif($ENV{REQUEST_METHOD} eq 'POST')
{
        foreach $referer(@referers)
        {
        if($ENV{HTTP_REFERER} =~ /$referer/i) { $good_refer = 1; }
        }
        if($good_refer != 1) { &error; }
&parse_form;
&send_mail;
}
else
{
&error;
}
sub print_form
{
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>jhve elohim meth :: god is dead</TITLE></HEAD>\n";
print "<BODY><B> ANONYMOUS MAIL. FUCK YOU </B><BR>\n";
print "
<CENTER>
<FORM ACTION=\"$script_url\" METHOD=\"POST\" NAME=\"mail_form\">
<TABLE BORDER=5><TH COLSPAN=2>BITCH</TH>
<tr><td>Send To:</td><td><INPUT TYPE=\"text\" NAME=\"to\" SIZE=30></td></tr>
<tr><td>From Address:</td><td><INPUT TYPE=\"text\" NAME=\"from_addy\" SIZE=30></td></tr>
<tr><td>From Name:</td><td><INPUT TYPE=\"text\" NAME=\"from_name\" SIZE=30></td></tr>
<tr><td>Subject:</td><td><INPUT TYPE=\"text\" NAME=\"subject\" SIZE=30></td></tr>
<tr><td colspan=2>Body:<br><TEXTAREA NAME=\"body\" WRAP=VIRTUAL ROWS=3 COLS=35></TEXTAREA></td></tr>
<tr><td colspan=2 align=center><INPUT TYPE=\"submit\" VALUE=\" Send Mail \">
<INPUT TYPE=\"reset\" VALUE=\" Clear \"></TD></TR></TABLE></FORM></CENTER>\n";
print "<BR><HR><BR></BODY></HTML>\n";
exit;
}
sub send_mail
{
open (MAIL, "|$sendmail -t") || &error;
print MAIL "From: $input{'from_name'} \<$input{'from_addy'}\>\n";
print MAIL "Reply-To: $input{'from_addy'}\n";
print MAIL "X-Mailer: anonmail.bitch\n";
print MAIL "To: $input{'to'}\n";
print MAIL "Subject: $input{'subject'}\n";
print MAIL "Content-Type: text/plain; charset=us-ascii\n";
print MAIL "Content-Transfer-Encoding: 7bit\n\n";

print MAIL "$input{'body'}";
close (MAIL);

print "Content-type: text/html\n\n";
print "Below is what you sent to $input{to}\n<pre>\n";
print "From: $input{'from_name'} \<$input{'from_addy'}\>\n";
print "Reply-To: $input{'from_addy'}\n";
print "To: $input{'to'}\n";
print "Subject: $input{'subject'}\n\n";
print "$input{'body'}";
exit;

}

sub parse_form {

   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   if (length($buffer) < 5) {
         $buffer = $ENV{QUERY_STRING};
    }
   @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s/<!--(.|\n)*-->//g;
        $input{$name} = $value;
   }
        if($input{'to'} =~ /microsoft.com/i) { &error; }

        foreach $friend(@friends)
        {
        if($input{'to'} =~ /$friend/i) { &error; }
        }
}


sub error
{
print "Content-type: text/html\n\n";
print "<BR>An error occured while processing the script.\n";
exit;
}