#!/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=index.shtml">
</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>VICTORIA SIN in SATAN's SLUT I</TITLE>
<META NAME="DESCRIPTION" CONTENT=" Wild Porn Star Victoria Sin Cums to our Evil Lair to display her LUST for the DARK ARTS!">
<META NAME="KEYWORDS" CONTENT="Victoria Sin, xxx vamp, sci-fi sex, alien hardcore, fetish vampire, horror movie, gothic slut, lesbian porn, Satan porn">
<META NAME="revisit-after" CONTENT="14 days">
<META NAME="copyright" CONTENT="copyright 2005, xxx horror">
<META NAME="distribution" CONTENT="Global">
<META NAME="rating" CONTENT="Mature">
<META NAME="language" CONTENT="en-us">
<META name="Robots" content="index,follow">
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY bgcolor="#000000" text="#FFFFFF" link="#FF0000" vlink="#CC0000" alink="#FF0000">
<h1 align="center">VICTORIA SIN in SATAN's SLUT I</h1>
<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/horror2.jpg" alt="horror sex movies" width="585" height="100" border="0"></a></div>
<TABLE width="585" border=0  align="center" cellpadding=0 cellspacing=5 bgcolor="#FFFFFF">
  <TR> 
    <td height="100%" colspan="5" valign="middle"> <strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Wild 
      Porn Star <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0004&PA=$afid&HTML=http://babecenterfolds.com/Victoria_Sin/index.htm">Victoria 
      Sin</a> Cums to our Evil Lair to display her LUST for the DARK ARTS! Her 
      pussy is dripping with anticipation of entering the Demonic World of Satan 
      as she begins to temp him through Ritualistic Heresy! As a Porn Star Victoria 
      Sin believes she has seen everything the Sexual World has to offer&#8230;she 
      is not ready for the next wild SATANIC ENCOUNTER!!!</font></strong></td>
  </TR>
  <TR> 
    <td width="111" height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0001.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0001.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0001"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0003.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0003.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0003"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0035.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0035.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0035"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0050.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0050.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0050"></A></td>
    <td width="111" height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0064.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0064.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0064"></A></td>
  </TR>
  <TR> 
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0071.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0071.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0071"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0079.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0079.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0079"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0086.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0086.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0086"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0090.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0090.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0090"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0100.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0100.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0100"></A></td>
  </TR>
  <TR> 
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0101.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0101.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0101"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0113.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0113.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0113"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0118.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0118.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0118"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0121.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0121.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0121"></A></td>
    <td height="100%" align="center" valign="middle"><A href="images/VictoriaSinSatansSlut1_0125.jpg"><IMG src="thumbnails/VictoriaSinSatansSlut1_0125.jpg" height="160" width="104" border=2 alt="VictoriaSinSatansSlut1_0125"></A></td>
  </TR>
  <TR> 
    <td height="100%" colspan="5" align="center" valign="middle"><font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Visit 
      <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/tour4.htm">Xxx Space Girls</a> today and 
      see more Horror Sex Scenes!<br>
      100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 
      exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, 
      Alien Manga and Bondage Pictures.</strong></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">xxxHorror&#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
	}
}

