#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<Head><Title>You better RU...........N!</Title></Head>";
print "<Body text=#ffffff><H2><font color=#000000>Phf? Well that is too old man just a bit behind I guess </H2>";
print "<H2><font color=#000000>Why dont you play these tricks on your <blink>mama</blink></H2>";


print "<center><img src=/erpunch.gif></center>";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@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;



    $FORM{$name} = $value;
}

&blank_response unless $FORM{'comments'};


open (LOGFILE, ">>/usr/local/etc/httpd/htdocs/computer.txt");
 

 
print LOGFILE "$FORM{'comments'}\n";
print LOGFILE "==========================================================================\n";


close (LOGFILE);


print "Thank you!<P>";
sub blank_response
{

# by me kaskasbaba so get the hell out before I shoot you again.. Your mama.
#!/usr/bin/perl
# KASRA MESHKIN EZENET INC.

$standalone = 1 ;
$language = 0 ;	

require 'cgi-lib.pl';   ## For parsing the form
&ReadParse();

$agent = $ENV{'HTTP_USER_AGENT'}.$ENV{'HTTP_USERAGENT'};
$host  = $ENV{'REMOTE_HOST'};
$ip_address  = $ENV{'REMOTE_ADDR'};
$refer = $ENV{'HTTP_REFERER'};


$your_cdm = substr($host,length($host)-3,3);
$your_cdm =~ tr/a-z/A-Z/;
   if ($your_cdm eq '.AD') {$country='Andorra';}
elsif ($your_cdm eq '.AE') {$country='The United Arab Emirates';}
elsif ($your_cdm eq '.AF') {$country='Afghanistan';}
elsif ($your_cdm eq '.AG') {$country='Antigua and Barbuda';}
elsif ($your_cdm eq '.AI') {$country='Anguilla';}
elsif ($your_cdm eq '.AL') {$country='Albania';}
elsif ($your_cdm eq '.AM') {$country='Armenia';}
elsif ($your_cdm eq '.AN') {$country='Netherlands Antilles';}
elsif ($your_cdm eq '.AO') {$country='Angola';}
elsif ($your_cdm eq '.AQ') {$country='Antarctica';}
elsif ($your_cdm eq '.AR') {$country='Argentina';}
elsif ($your_cdm eq '.AS') {$country='American Samoa';}
elsif ($your_cdm eq '.AT') {$country='Austria';}
elsif ($your_cdm eq '.AU') {$country='Australia';}
elsif ($your_cdm eq '.AW') {$country='Aruba';}
elsif ($your_cdm eq '.AZ') {$country='Azerbaijan';}
elsif ($your_cdm eq '.BA') {$country='Bosnia and Herzegovina';}
elsif ($your_cdm eq '.BB') {$country='Barbados';}
elsif ($your_cdm eq '.BD') {$country='Bangladesh';}
elsif ($your_cdm eq '.BE') {$country='Belgium';}
elsif ($your_cdm eq '.BF') {$country='Burkina Faso';}
elsif ($your_cdm eq '.BG') {$country='Bulgaria';}
elsif ($your_cdm eq '.BH') {$country='Bahrain';}
elsif ($your_cdm eq '.BI') {$country='Burundi';}
elsif ($your_cdm eq '.BJ') {$country='Benin';}
elsif ($your_cdm eq '.BM') {$country='Bermuda';}
elsif ($your_cdm eq '.BN') {$country='Brunei Darussalam';}
elsif ($your_cdm eq '.BO') {$country='Bolivia';}
elsif ($your_cdm eq '.BR') {$country='Brazil';}
elsif ($your_cdm eq '.BS') {$country='Bahamas';}
elsif ($your_cdm eq '.BT') {$country='Bhutan';}
elsif ($your_cdm eq '.BV') {$country='Bouvet Island';}
elsif ($your_cdm eq '.BW') {$country='Botswana';}
elsif ($your_cdm eq '.BY') {$country='Belarus';}
elsif ($your_cdm eq '.BZ') {$country='Belize';}
elsif ($your_cdm eq '.CA') {$country='Canada';}
elsif ($your_cdm eq '.CC') {$country='Cocos Islands';}
elsif ($your_cdm eq '.CF') {$country='The Central African Republic';}
elsif ($your_cdm eq '.CG') {$country='The Congo';}
elsif ($your_cdm eq '.CH') {$country='Switzerland';}
elsif ($your_cdm eq '.CI') {$country='The Ivory Coast';}
elsif ($your_cdm eq '.CK') {$country='The Cook Islands';}
elsif ($your_cdm eq '.CL') {$country='Chile';}
elsif ($your_cdm eq '.CM') {$country='Cameroon';}
elsif ($your_cdm eq '.CN') {$country='China';}
elsif ($your_cdm eq '.CO') {$country='Colombia';}
elsif ($your_cdm eq '.CR') {$country='Costa Rica';}
elsif ($your_cdm eq '.CS') {$country='The Former Czechoslovakia';}
elsif ($your_cdm eq '.CU') {$country='Cuba';}
elsif ($your_cdm eq '.CV') {$country='Cape Verde';}
elsif ($your_cdm eq '.CX') {$country='Christmas Island';}
elsif ($your_cdm eq '.CY') {$country='Cyprus';}
elsif ($your_cdm eq '.CZ') {$country='The Czech Republic';}
elsif ($your_cdm eq '.DE') {$country='Germany';}
elsif ($your_cdm eq '.DJ') {$country='Djibouti';}
elsif ($your_cdm eq '.DK') {$country='Denmark';}
elsif ($your_cdm eq '.DM') {$country='Dominica';}
elsif ($your_cdm eq '.DO') {$country='The Dominican Republic';}
elsif ($your_cdm eq '.DZ') {$country='Algeria';}
elsif ($your_cdm eq '.EC') {$country='Ecuador';}
elsif ($your_cdm eq '.EE') {$country='Estonia';}
elsif ($your_cdm eq '.EG') {$country='Egypt';}
elsif ($your_cdm eq '.EH') {$country='Western Sahara';}
elsif ($your_cdm eq '.ER') {$country='Eritrea';}
elsif ($your_cdm eq '.ES') {$country='Spain';}
elsif ($your_cdm eq '.ET') {$country='Ethiopia';}
elsif ($your_cdm eq '.FI') {$country='Finland';}
elsif ($your_cdm eq '.FJ') {$country='Fiji';}
elsif ($your_cdm eq '.FK') {$country='The Falkland Islands';}
elsif ($your_cdm eq '.FM') {$country='Micronesia';}
elsif ($your_cdm eq '.FO') {$country='The Faroe Islands';}
elsif ($your_cdm eq '.FR') {$country='France';}
elsif ($your_cdm eq '.FX') {$country='France, Metropolitan';}
elsif ($your_cdm eq '.GA') {$country='Gabon';}
elsif ($your_cdm eq '.GB') {$country='Great Britain';}
elsif ($your_cdm eq '.GD') {$country='Grenada';}
elsif ($your_cdm eq '.GE') {$country='Georgia';}
elsif ($your_cdm eq '.GF') {$country='French Guiana';}
elsif ($your_cdm eq '.GH') {$country='Ghana';}
elsif ($your_cdm eq '.GI') {$country='Gibraltar';}
elsif ($your_cdm eq '.GL') {$country='Greenland';}
elsif ($your_cdm eq '.GM') {$country='Gambia';}
elsif ($your_cdm eq '.GN') {$country='Guinea';}
elsif ($your_cdm eq '.GP') {$country='Guadeloupe';}
elsif ($your_cdm eq '.GQ') {$country='Equatorial Guinea';}
elsif ($your_cdm eq '.GR') {$country='Greece';}
elsif ($your_cdm eq '.GS') {$country='S. Georgia and S. Sandwich Isls.';}
elsif ($your_cdm eq '.GT') {$country='Guatemala';}
elsif ($your_cdm eq '.GU') {$country='Guam';}
elsif ($your_cdm eq '.GW') {$country='Guinea-Bissau';}
elsif ($your_cdm eq '.GY') {$country='Guyana';}
elsif ($your_cdm eq '.HK') {$country='Hong Kong';}
elsif ($your_cdm eq '.HM') {$country='The Heard and McDonald Islands';}
elsif ($your_cdm eq '.HN') {$country='Honduras';}
elsif ($your_cdm eq '.HR') {$country='Croatia';}
elsif ($your_cdm eq '.HT') {$country='Haiti';}
elsif ($your_cdm eq '.HU') {$country='Hungary';}
elsif ($your_cdm eq '.ID') {$country='Indonesia';}
elsif ($your_cdm eq '.IE') {$country='Ireland';}
elsif ($your_cdm eq '.IL') {$country='Israel';}
elsif ($your_cdm eq '.IN') {$country='India';}
elsif ($your_cdm eq '.IO') {$country='British Indian Ocean Territory';}
elsif ($your_cdm eq '.IQ') {$country='Iraq';}
elsif ($your_cdm eq '.IR') {$country='Iran';}
elsif ($your_cdm eq '.IS') {$country='Iceland';}
elsif ($your_cdm eq '.IT') {$country='Italy';}
elsif ($your_cdm eq '.JM') {$country='Jamaica';}
elsif ($your_cdm eq '.JO') {$country='Jordan';}
elsif ($your_cdm eq '.JP') {$country='Japan';}
elsif ($your_cdm eq '.KE') {$country='Kenya';}
elsif ($your_cdm eq '.KG') {$country='Kyrgyzstan';}
elsif ($your_cdm eq '.KH') {$country='Cambodia';}
elsif ($your_cdm eq '.KI') {$country='Kiribati';}
elsif ($your_cdm eq '.KM') {$country='Comoros';}
elsif ($your_cdm eq '.KN') {$country='Saint Kitts and Nevis';}
elsif ($your_cdm eq '.KP') {$country='North Korea';}
elsif ($your_cdm eq '.KR') {$country='South Korea';}
elsif ($your_cdm eq '.KW') {$country='Kuwait';}
elsif ($your_cdm eq '.KY') {$country='Cayman Islands';}
elsif ($your_cdm eq '.KZ') {$country='Kazakhstan';}
elsif ($your_cdm eq '.LA') {$country='Laos';}
elsif ($your_cdm eq '.LB') {$country='Lebanon';}
elsif ($your_cdm eq '.LC') {$country='Saint Lucia';}
elsif ($your_cdm eq '.LI') {$country='Liechtenstein';}
elsif ($your_cdm eq '.LK') {$country='Sri Lanka';}
elsif ($your_cdm eq '.LR') {$country='Liberia';}
elsif ($your_cdm eq '.LS') {$country='Lesotho';}
elsif ($your_cdm eq '.LT') {$country='Lithuania';}
elsif ($your_cdm eq '.LU') {$country='Luxembourg';}
elsif ($your_cdm eq '.LV') {$country='Latvia';}
elsif ($your_cdm eq '.LY') {$country='Libya';}
elsif ($your_cdm eq '.MA') {$country='Morocco';}
elsif ($your_cdm eq '.MC') {$country='Monaco';}
elsif ($your_cdm eq '.MD') {$country='Moldova';}
elsif ($your_cdm eq '.MG') {$country='Madagascar';}
elsif ($your_cdm eq '.MH') {$country='Marshall Islands';}
elsif ($your_cdm eq '.MK') {$country='Macedonia';}
elsif ($your_cdm eq '.ML') {$country='Mali';}
elsif ($your_cdm eq '.MM') {$country='Myanmar';}
elsif ($your_cdm eq '.MN') {$country='Mongolia';}
elsif ($your_cdm eq '.MO') {$country='Macau';}
elsif ($your_cdm eq '.MP') {$country='The Northern Mariana Islands';}
elsif ($your_cdm eq '.MQ') {$country='Martinique';}
elsif ($your_cdm eq '.MR') {$country='Mauritania';}
elsif ($your_cdm eq '.MS') {$country='Montserrat';}
elsif ($your_cdm eq '.MT') {$country='Malta';}
elsif ($your_cdm eq '.MU') {$country='Mauritius';}
elsif ($your_cdm eq '.MV') {$country='The Maldives';}
elsif ($your_cdm eq '.MW') {$country='Malawi';}
elsif ($your_cdm eq '.MX') {$country='Mexico';}
elsif ($your_cdm eq '.MY') {$country='Malaysia';}
elsif ($your_cdm eq '.MZ') {$country='Mozambique';}
elsif ($your_cdm eq '.NA') {$country='Namibia';}
elsif ($your_cdm eq '.NC') {$country='New Caledonia';}
elsif ($your_cdm eq '.NE') {$country='Niger';}
elsif ($your_cdm eq '.NF') {$country='Norfolk Island';}
elsif ($your_cdm eq '.NG') {$country='Nigeria';}
elsif ($your_cdm eq '.NI') {$country='Nicaragua';}
elsif ($your_cdm eq '.NL') {$country='Netherlands';}
elsif ($your_cdm eq '.NO') {$country='Norway';}
elsif ($your_cdm eq '.NP') {$country='Nepal';}
elsif ($your_cdm eq '.NR') {$country='Nauru';}
elsif ($your_cdm eq '.NT') {$country='Neutral Zone';}
elsif ($your_cdm eq '.NU') {$country='Niue';}
elsif ($your_cdm eq '.NZ') {$country='New Zealand';}
elsif ($your_cdm eq '.OM') {$country='Oman';}
elsif ($your_cdm eq '.PA') {$country='Panama';}
elsif ($your_cdm eq '.PE') {$country='Peru';}
elsif ($your_cdm eq '.PF') {$country='French Polynesia';}
elsif ($your_cdm eq '.PG') {$country='Papua New Guinea';}
elsif ($your_cdm eq '.PH') {$country='Philippines';}
elsif ($your_cdm eq '.PK') {$country='Pakistan';}
elsif ($your_cdm eq '.PL') {$country='Poland';}
elsif ($your_cdm eq '.PM') {$country='St. Pierre and Miquelon';}
elsif ($your_cdm eq '.PN') {$country='Pitcairn';}
elsif ($your_cdm eq '.PR') {$country='Puerto Rico';}
elsif ($your_cdm eq '.PT') {$country='Portugal';}
elsif ($your_cdm eq '.PW') {$country='Palau';}
elsif ($your_cdm eq '.PY') {$country='Paraguay';}
elsif ($your_cdm eq '.QA') {$country='Qatar';}
elsif ($your_cdm eq '.RE') {$country='Reunion';}
elsif ($your_cdm eq '.RO') {$country='Romania';}
elsif ($your_cdm eq '.RU') {$country='The Russian Federation';}
elsif ($your_cdm eq '.RW') {$country='Rwanda';}
elsif ($your_cdm eq '.SA') {$country='Saudi Arabia';}
elsif ($your_cdm eq '.SB') {$country='The Solomon Islands';}
elsif ($your_cdm eq '.SC') {$country='The Seychelles';}
elsif ($your_cdm eq '.SD') {$country='The Sudan';}
elsif ($your_cdm eq '.SE') {$country='Sweden';}
elsif ($your_cdm eq '.SG') {$country='Singapore';}
elsif ($your_cdm eq '.SH') {$country='St. Helena';}
elsif ($your_cdm eq '.SI') {$country='Slovenia';}
elsif ($your_cdm eq '.SJ') {$country='The Svalbard and Jan Mayen Islands';}
elsif ($your_cdm eq '.SK') {$country='Slovak Republic';}
elsif ($your_cdm eq '.SL') {$country='Sierra Leone';}
elsif ($your_cdm eq '.SM') {$country='San Marino';}
elsif ($your_cdm eq '.SN') {$country='Senegal';}
elsif ($your_cdm eq '.SO') {$country='Somalia';}
elsif ($your_cdm eq '.SR') {$country='Suriname';}
elsif ($your_cdm eq '.ST') {$country='Sao Tome and Principe';}
elsif ($your_cdm eq '.SU') {$country='The Former USSR';}
elsif ($your_cdm eq '.SV') {$country='El Salvador';}
elsif ($your_cdm eq '.SY') {$country='Syria';}
elsif ($your_cdm eq '.SZ') {$country='Swaziland';}
elsif ($your_cdm eq '.TC') {$country='The Turks and Caicos Islands';}
elsif ($your_cdm eq '.TD') {$country='Chad';}
elsif ($your_cdm eq '.TF') {$country='The French Southern Territories';}
elsif ($your_cdm eq '.TG') {$country='Togo';}
elsif ($your_cdm eq '.TH') {$country='Thailand';}
elsif ($your_cdm eq '.TJ') {$country='Tajikistan';}
elsif ($your_cdm eq '.TK') {$country='Tokelau';}
elsif ($your_cdm eq '.TM') {$country='Turkmenistan';}
elsif ($your_cdm eq '.TN') {$country='Tunisia';}
elsif ($your_cdm eq '.TO') {$country='Tonga';}
elsif ($your_cdm eq '.TP') {$country='East Timor';}
elsif ($your_cdm eq '.TR') {$country='Turkey';}
elsif ($your_cdm eq '.TT') {$country='Trinidad and Tobago';}
elsif ($your_cdm eq '.TV') {$country='Tuvalu';}
elsif ($your_cdm eq '.TW') {$country='Taiwan';}
elsif ($your_cdm eq '.TZ') {$country='Tanzania';}
elsif ($your_cdm eq '.UA') {$country='Ukraine';}
elsif ($your_cdm eq '.UG') {$country='Uganda';}
elsif ($your_cdm eq '.UK') {$country='The United Kingdom';}
elsif ($your_cdm eq '.UM') {$country='The US Minor Outlying Islands';}
elsif ($your_cdm eq '.US') {$country='United States';}
elsif ($your_cdm eq '.UY') {$country='Uruguay';}
elsif ($your_cdm eq '.UZ') {$country='Uzbekistan';}
elsif ($your_cdm eq '.VA') {$country='Vatican City State';}
elsif ($your_cdm eq '.VC') {$country='Saint Vincent and the Grenadines';}
elsif ($your_cdm eq '.VE') {$country='Venezuela';}
elsif ($your_cdm eq '.VG') {$country='The British Virgin Islands';}
elsif ($your_cdm eq '.VI') {$country='The US Virgin Islands';}
elsif ($your_cdm eq '.VN') {$country='Vietnam';}
elsif ($your_cdm eq '.VU') {$country='Vanuatu';}
elsif ($your_cdm eq '.WF') {$country='The Wallis and Futuna Islands';}
elsif ($your_cdm eq '.WS') {$country='Samoa';}
elsif ($your_cdm eq '.YE') {$country='Yemen';}
elsif ($your_cdm eq '.YT') {$country='Mayotte';}
elsif ($your_cdm eq '.YU') {$country='Yugoslavia';}
elsif ($your_cdm eq '.ZA') {$country='South Africa';}
elsif ($your_cdm eq '.ZM') {$country='Zambia';}
elsif ($your_cdm eq '.ZR') {$country='Zaire';}
elsif ($your_cdm eq '.ZW') {$country='Zimbabwe';}
elsif ($your_cdm eq 'COM') {$country='The USA (Commercial)';}
elsif ($your_cdm eq 'EDU') {$country='The USA (Educational)';}
elsif ($your_cdm eq 'GOV') {$country='The USA (Government)';}
elsif ($your_cdm eq 'MIL') {$country='The USA (Military)';}
elsif ($your_cdm eq 'ORG') {$country='The USA (Non-Profit Organization)';}
elsif ($your_cdm eq 'INT') {$country='International';}
elsif ($your_cdm eq 'NET') {$country='Network';}
elsif ($your_cdm eq 'RPA') {$country='Old style Arpanet';}
elsif ($your_cdm eq 'ATO') {$country='The Nato field';}
else  {$country='UNKNOWN';}


print &PrintHeader();

if ($language ne "0"){ ### IN CASE OF JAPANESE
   if ($standalone ne "0"){
        print "<HTML><HEAD><TITLE>A Message For You</TITLE></HEAD><BODY>\n
           <H1>A Message For You !!</H1><P>\n";
   }

   if (($host ne "") && ($ip_address ne "")){
     	print " $host ($ip_address) ΤͤؤΤ<P>\n";
   }elsif (($host ne "") && ($ip_address eq "")){
     	print " $host ΤͤؤΤ<P>\n";
   }elsif (($host eq "") && ($ip_address ne "")){
     	print " $ip_address ΤͤؤΤ<P>\n";
   }else{print " <P>\n";
   }

   if ($country ne "UNKNOWN"){ 
   	print "<b>$country</b> Ȥϰ衦ɥᥤ󤫤Τͤܥӥؤ褦<P>\n"; 
   }

   print "ǤϡǸޤǤڤ߲<P><HR>\n";

   if ($refer ne ""){
        print "<A href=\"$refer\"> Υڡ</A><BR><HR>\n";
   }

} else { ### IN CASE OF ENGLISH
   if ($standalone ne "0"){
	   
   }

   if (($host ne "") && ($ip_address ne "")){
     	print " <br><font size=+1 color=#000000>I have your host and the time and an email already has been sent to my webmaster to take care of you and submit the log to your provider ... happy .....<b> $host ($ip_address)</b>";
   }elsif (($host ne "") && ($ip_address eq "")){
     	print " If I am correct you are connecting from <b> $host </b>";
   }elsif (($host eq "") && ($ip_address ne "")){
     	print " If I am correct you are connectiong from <b> $ip_address </b>";
   }else{print " Hello you ";
   }

   if ($country ne "UNKNOWN"){
    	print " !! <P>\n";
   }else{ print " !!<P>\n";
   }

   if ($refer ne ""){
   }
}

if ($standalone ne "0"){
}

### END ###
exit;
}
