#!/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~";
Generator error
Please input Your affiliate ID Try again.
~EOT~
exit;
}
sub gencode{
print "Content-Type: text/html\n\n";
print <<"~EOT~";
Serene Dream in Galactic DNA gallery at Xxx Space Girls
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Visit
XXX SPACE GIRLS today
and see more Galactic Girls!
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. |
|
|
~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
}
}