0byt3m1n1

Path: /data/0/0/22/44/22370/user/22848/cgi-bin/ [ Home ]
File: ybf.cgi
#!/usr/bin/perl

#################################################################
#								#
#		     You've Been Framed! V1.0 			#
#			24th January 2001 			#
#		    (c) 2001 Mark Brailsford			#
#			brailz@gmx.net				#
#								#
#################################################################
# This script is free to use and distribute, all I ask is that  #
# you email me at the above address the URL of the site that is #
# using this script and that this copyright header stays intact # 
#################################################################

$static_frame = "http://www.linkinvite.com/sendpage/friend.php";

# URL to the top (static) component of the frame set.

$frame_height = 100;

# Height (in pixels) of the top (static) frame.

$title = "My Site"; 			

# Title of your web site

$meta_desc = "Describe your website here";

# Description of your web site (page) for inclusion in the pages
# meta tags. NOTE: The meta information will be the same for every
# frame set that is created by YBF!

$meta_keywords = "Keywords separated by commas";

# Meta keywords for search engines. Note as with the $meta_desc
# variable the meta information will be the same for every
# frame created with YBF!

########## DO NOT EDIT BELOW THIS LINE ############################

print "Content-type:text/html\n\n";

$query = $ENV{'QUERY_STRING'};
($name, $value) = split(/==/, $query);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;

print "<HTML>\n<HEAD>\n<meta name=\"description\" content=\"$meta_desc\">\n";
print "<meta name=\"keywords\" content=\"$meta_keywords\">\n<TITLE>$title</TITLE>\n</HEAD>\n";
print "<frameset rows=\"$frame_height,*\" frameborder=\"0\" frameborder=\"no\" framespacing=\"0\" border=\"0\">\n";
print "<frame src=\"$static_frame\" name=\"topframe\" scrolling=\"no\" noresize marginwidth=\"0\" marginheight=\"0\">\n";
print "<frame src=\"$FORM{url}\" name=\"mainframe\" scrolling=\"auto\" marginwidth=\"10\" marginheight=\"10\">\n";
print "</frameset>\n<noframes>\nSorry your browser ";
print "does not support frames please<a href=\"$FORM{url}\">click here</a>.\n";
print "</NOFRAMES>\n</html>\n\n";
print "<!--- Copyright &copy; 2001 Mark Brailsford (brailz\@gmx.net) ---->\n\n";
print "<!--- Get this frame script at http://www.nero-systems.com/scripts/ybf/index.shtml ---->\n";

exit;