#!/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.html">

</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>Nicki Hunter in the Cybourg DNA Doctor</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="778" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="778" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><a href="http://tracker.zombaio.com/?$afid.7876960"><img src="../../../images/join-top.jpg" alt="galactic girls performing in alien sex and SciFi Porn movies" width="778" height="138" border="0"></a></td>
        </tr>
        <tr>
          <td>
<TABLE width="750" border=0  align="center" cellpadding="5" cellspacing="5">
<TR>
  <TD colspan="3" align="center"><h2>Nicki Hunter in the Cybourg DNA Doctor </h2>
    Back at the lab the <a href="http://tracker.zombaio.com/?$afid.7876960/index.php">Cybourgian Doctor</a> was collecting specimens on the human   race. Pornstar Nikki Hunter was abducted in her sleep and transported in a sleep   capsule. She awoke to find herself on a space ship with a strange doctor   standing over her. She began to struggle and to make the process easier; the   doctor placed a mind control device on her head. The doctor probed inside her   pussy using strange devices attached to the extractor machine. The extractor was   a collection capsule for all of his experiments and also was used to suck and   drain fluids. The doctor gave Nikki pleasure that she has never experienced   before, so enormous that she squirted all over him. He removed some fluids from   her to continue his sick studies on the human race but...<strong>Read the whole story   on GalacticGirls.com</strong>!</TD>
  </TR>
<TR>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0001.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0001.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0001"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0018.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0018.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0018"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0074.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0074.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0074"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0077.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0077.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0077"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0128.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0128.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0128"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0238.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0238.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0238"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0297.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0297.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0297"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0319.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0319.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0319"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0331.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0331.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0331"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0381.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0381.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0381"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0441.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0441.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0441"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0480.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0480.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0480"></A></TD>
</TR>
<TR>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0491.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0491.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0491"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0492.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0492.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0492"></A></TD>
  <TD align="center"><A href="images/NickiHunter_PusseanDNA_0496.jpg"><IMG src="thumbnails/NickiHunter_PusseanDNA_0496.jpg" height="340" width="225" alt="NickiHunter_PusseanDNA_0496"></A></TD>
</TR>
</TABLE></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td><img src="../../../images/index2-bottom.jpg" alt="scifi porn and alien sex movies and videos" width="778" height="249" border="0"></td>
  </tr>
</table>
<br>
<div align="center"><a href="http://tracker.zombaio.com/?$afid.7876960"><font size="6">CLICK HERE TO ENTER GALACTIC GIRLS</font></a></div>
<br>
<br>
<div align="center">GalacticGirls&#8482;<strong><br>
  </strong>18 U.S.C. 2257 Record-Keeping Requirements Compliance Statement at:<br>
  http://tracker.zombaio.com/?$afid.7876960<br>
</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

	}

}



