#!/usr/bin/perl -T
######################
#¡¡author:glisten
#  http://www.dsl-speed.org
######################
&get_form_data;
&emptyid unless $FORM{'sid'};
$afid=$FORM{'sid'};
&gencode;

sub emptyid{
$login_page="http://www.adultworldmedia.com";
# Replace to your affiliate program url
print "Content-Type: text/html\n\n";
   print <<"~EOT~";
<HTML>
<HEAD>
   <TITLE>Generator error</TITLE>
<META HTTP-EQUIV=Refresh CONTENT="2; URL=http://xxxspacegirls.us/">
</HEAD>
<BODY>Please input Your affiliate ID <a href=\"$login_page\">Try again.</a></BODY>
</HTML>

~EOT~
exit;
}

sub gencode{
print "Content-Type: text/html\n\n";
   print <<"~EOT~";

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Aria - bloody vampire slut!</TITLE>
<META NAME="DESCRIPTION" CONTENT="The Vampire Empire has struck again! At the XXX Horror Castle, they converted yet another spy - Innocent Aria - into a loyal Vampire Slut!">
<META NAME="KEYWORDS" CONTENT="xxx horror, wild vamp, sci-fi sex, alien hardcore, fetish vampire, horror galleries, gothic porn images">
<META NAME="revisit-after" CONTENT="4 days">
<META NAME="copyright" CONTENT="copyright 2004, xxx horror">
<META NAME="distribution" CONTENT="Global">
<META NAME="rating" CONTENT="Mature">
<META NAME="language" CONTENT="en-us">
<META NAME="Author" CONTENT="webmaster@xxxhorror.com">
<META name="Robots" content="index,follow">
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>

<BODY bgcolor=#000000 text=#FFFFFF link=#FF0000 vlink=#CC0000 alink=#FF0000>
<h1 align="center">ARIA &quot;BLOODY VAMPIRE SLUT&quot;</h1>
<table width="585" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#990000">
  <tr>
    <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>The 
      Vampire Empire has struck again! At the XXX Horror Castle, they converted 
      yet another spy &#8211; <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0004&PA=$afid&HTML=http://babecenterfolds.com/Aria/"><font color="#FFFFFF">Innocent 
      Aria</font></a> &#8211; into a loyal &#8220;Vampire Slut&quot;! Recruited 
      by the Religious Underworld, Aria was sent to infiltrate the VE to help 
      plan future attacks. But after an intense sexual interrogation, she cracked 
      under the pressure of five cocks fucking every hole! With her transformation 
      now complete, the VE&#8217;s legion of blood (and cock) sucking Vampires 
      has added an extremely valuable double agent to their arsenal! And now that 
      she&#8217;s tasted sweet human blood, Aria will soon be looking to fuck 
      and suck everything that moves! To be continued&#8230;</strong></font></td>
  </tr>
</table>
<div align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0002&PA=$afid&HTML=http://xxxhorror.com"><img src="../../header/horror.jpg" alt="horror sex, horror porn, vampire sex, vampire porn, evil sex nuns, satan ghost sexoids, spiritual porn" width="585" height="100" border="0"></a></div>
<TABLE width="585" border=0  align="center" cellpadding=0 cellspacing=5 bgcolor="#FFFFFF">
  <TR>
		 
    <td width="107" height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0005.jpg"><IMG src="thumbnails/Aria_VampireSlut_0005.jpg" height="160" width="103" border=2 alt="Aria Vampire Slut"></A></td>
		 
    <td width="107" height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0008.jpg"><IMG src="thumbnails/Aria_VampireSlut_0008.jpg" height="160" width="103" border=2 alt="Aria_Evil Sex Nun"></A></td>
		 
    <td width="107" height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0018.jpg"><IMG src="thumbnails/Aria_VampireSlut_0018.jpg" height="160" width="103" border=2 alt="Aria Masturbating Satan Bitch"></A></td>
		 
    <td width="107" height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0024.jpg"><IMG src="thumbnails/Aria_VampireSlut_0024.jpg" height="160" width="103" border=2 alt="Aria blood sucking vampire"></A></td>
		 
    <td width="107" height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0029.jpg"><IMG src="thumbnails/Aria_VampireSlut_0029.jpg" height="160" width="103" border=2 alt="Aria sexy Vamp"></A></td>

</TR>

<TR>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0044.jpg"><IMG src="thumbnails/Aria_VampireSlut_0044.jpg" height="160" width="103" border=2 alt="Horror Sex Dungeon"></A></td>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0048.jpg"><IMG src="thumbnails/Aria_VampireSlut_0048.jpg" height="160" width="103" border=2 alt="Vampire porn movies"></A></td>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0055.jpg"><IMG src="thumbnails/Aria_VampireSlut_0055.jpg" height="160" width="103" border=2 alt="big, sexy, fetish tits"></A></td>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0081.jpg"><IMG src="thumbnails/Aria_VampireSlut_0081.jpg" height="160" width="103" border=2 alt="Aria Fetish Spanking Movies"></A></td>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0085.jpg"><IMG src="thumbnails/Aria_VampireSlut_0085.jpg" height="160" width="103" border=2 alt="Aria satan taunting porn slut"></A></td>

</TR>

<TR>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0093.jpg"><IMG src="thumbnails/Aria_VampireSlut_0093.jpg" height="160" width="103" border=2 alt="aria anal vampire nun"></A></td>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0107.jpg"><IMG src="thumbnails/Aria_VampireSlut_0107.jpg" height="160" width="103" border=2 alt="horny sci-fi fetish vampire sex episodes"></A></td>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0112.jpg"><IMG src="thumbnails/Aria_VampireSlut_0112.jpg" height="160" width="103" border=2 alt="ass spanking horror sex bitch"></A></td>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0129.jpg"><IMG src="thumbnails/Aria_VampireSlut_0129.jpg" height="160" width="103" border=2 alt="Arai - fetish lesbian"></A></td>
		 
    <td height="100%" align="center" valign="middle"><A href="images/Aria_VampireSlut_0137.jpg"><IMG src="thumbnails/Aria_VampireSlut_0137.jpg" height="160" width="103" border=2 alt="aria - Vampire Lesbian pictures"></A></td>

</TR>
</TABLE>
<table width="585" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#660000">
  <tr>
    <td align="center"><font face="Tahoma"><font face="Verdana, Arial, Helvetica, sans-serif"><strong>VISIT 
      <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0002&PA=$afid&HTML=http://xxxhorror.com" class="aspec" title="Xxx Space Girls and horror sex scenes">XXX 
      HORROR</a> TODAY AND SEE MORE <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/tour-4.htm" class="aspec" title="Xxx Space Girls and horror sex scenes">VAMPIRE 
      SEX</a>.<br>
      100'S OF THE HOTTEST PORN STARS DOING YOUR WILDEST FANTASIES. OVER 350,000
      EXCLUSIVE FETISH, HORROR, VAMPIRE, SCI-FI, ALIEN, BONDAGE IMAGES AND MOVIES.</strong></font></font></td>
  </tr>
</table>
<br>
<div align="center">
  <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539&PA=$afid&HTML=http://adultworldmedia.com">webmasters</a>
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">XXXSPACEGIRLS&#8482;</font></strong></font>
  </p>
</div>
</BODY>
</HTML>

~EOT~
exit;
}

# Get form data
sub get_form_data {
	read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	if ($ENV{'QUERY_STRING'}) {
		$buffer = "$buffer\&$ENV{'QUERY_STRING'}"
	}
	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name,$value) = split(/=/,$pair);
		$value =~ tr/+/ /;
		$value =~ s/\t//g;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
		$FORM{$name} = $value
	}
}

