#!/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>Nikki Nova starring in... Evil Nikki</TITLE>

<META NAME="DESCRIPTION" CONTENT="Nikki Nova battles the evil sexoids, using her hot fetish mind and body moves.">

<META NAME="KEYWORDS" CONTENT="galaxy babe, sci-fi sex, alien porn, vampire lesbian, horror galleries, robot uniforms, fetish tits, Nikki Nova, anime perversions">

<META NAME="revisit-after" CONTENT="4 days">

<META NAME="copyright" CONTENT="copyright 2004, xxx space girls">

<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">

<link href="style.css" rel="stylesheet" type="text/css">

</HEAD>



<BODY bgcolor="#000000" text="#FFFFFF" link="#FF0000" vlink="#CC0000" alink="#FF3333">

<h1 align="center">Nikki Nova starring in... EVIL NIKKI</h1>

<table width="585" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#003300">

  <tr>

    <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>XXXSpacegirl 

      Nikki Nova Impregnated by the Sexoids is taken back to there ship to undergo 

      a deadly alien surgery. See Nikki as she is transformed into Evil Sinister 

      Mind Puppet!</strong></font></td>

  </tr>

</table>

<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876967"><img src="../../header/alien-slime.jpg" alt="fetish girls, xxx alien, space porn, horror sex, vampire models, euro babes, hentai gothic girls" width="585" height="150" border="0"></a></div>

<TABLE width="585" border="0"  align="center" cellpadding="0" cellspacing="4" bgcolor="#003300">

  <TR>

		

    <TD width="113" align="center"> <A href="images/eevil22002.jpg"><IMG src="thumbnails/eevil22002.jpg" border="2" alt="eevil22002"></A></TD>

		

    <TD width="112" align="center"> <A href="images/eevil22005.jpg"><IMG src="thumbnails/eevil22005.jpg" border="2" alt="eevil22005"></A></TD>

		

    <TD width="112" align="center"> <A href="images/eevil22017.jpg"><IMG src="thumbnails/eevil22017.jpg" border="2" alt="eevil22017"></A></TD>

		

    <TD width="112" align="center"> <A href="images/eevil22021.jpg"><IMG src="thumbnails/eevil22021.jpg" border="2" alt="eevil22021"></A></TD>

		

    <TD width="112" align="center"> <A href="images/enextras002.jpg"><IMG src="thumbnails/enextras002.jpg" border="2" alt="enextras002"></A></TD>



</TR>



<TR>

		

    <TD align="center"> <A href="images/enextras009.jpg"><IMG src="thumbnails/enextras009.jpg" alt="enextras009" width="106" height="160" border="2"></A></TD>

		<TD align="center">	<A href="images/enextras025.jpg"><IMG src="thumbnails/enextras025.jpg" border="2" alt="enextras025"></A></TD>

		<TD align="center">	<A href="images/enextras028.jpg"><IMG src="thumbnails/enextras028.jpg" border="2" alt="enextras028"></A></TD>

		<TD align="center">	<A href="images/enextras029.jpg"><IMG src="thumbnails/enextras029.jpg" border="2" alt="enextras029"></A></TD>

		<TD align="center">	<A href="images/enextras039.jpg"><IMG src="thumbnails/enextras039.jpg" border="2" alt="enextras039"></A></TD>



</TR>



<TR>

		<TD align="center">	<A href="images/enextras048.jpg"><IMG src="thumbnails/enextras048.jpg" border="2" alt="enextras048"></A></TD>

		

    <TD align="center"> <A href="images/evil2007.jpg"><IMG src="thumbnails/evil2007.jpg" alt="evil2007" width="103" height="160" border="2"></A></TD>

		<TD align="center">	<A href="images/evilnikki008.jpg"><IMG src="thumbnails/evilnikki008.jpg" border="2" alt="evilnikki008"></A></TD>

		<TD align="center">	<A href="images/evilnikki037.jpg"><IMG src="thumbnails/evilnikki037.jpg" border="2" alt="evilnikki037"></A></TD>

		<TD align="center">	<A href="images/evilnikki040.jpg"><IMG src="thumbnails/evilnikki040.jpg" border="2" alt="evilnikki040"></A></TD>



</TR>

</TABLE>

<table width="585" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#003300">

  <tr>

    <td align="center"><strong><font face="Tahoma"><font face="Tahoma"><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font face="Tahoma"><font face="Tahoma"><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Visit 

      <a href="http://tracker.zombaio.com/?$afid.7876967" title="Sci-Fi Sex" class="aspec">Xxx Space 

      Girls</a> today and see more <a href="http://tracker.zombaio.com/?$afid.7876969" title="Nikki Nova" class="aspec">Nikki 

      Nova</a>!<br>

      100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 350,000 

      exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, 

      Alien Manga and Bondage Pictures.</strong></font></font><font face="Verdana, Arial, Helvetica, sans-serif"></font></font></strong></font></font><font face="Verdana, Arial, Helvetica, sans-serif"></font></font></strong></td>

  </tr>

</table>

<br>

<div align="center">

  <a href="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

	}

}



