PX : code

ANTI leech script by Marcel Lemmen
Download this code


<?
/*
Copyright (c) 1999 Marcel Lemmen
       E-mail: lemmen@support.nl
       All  rights  reserved.

Version: V1.1
Homepage: http://home.support.nl/~lemmen             

       This code provided "As Is" with no warrantees  express or implied.
       The author and contributors are not liable for anything good or bad
       that results from your use of this code.

       You are free to distribute this for free provided this notice is included
.
       Please forward fixes/enhancements to the
       downloading (CAN be different then file's!!!)
       Replace $URL with your directory or the other URL.
       Replace $additional_info with the info on each file.
       
       That's all!!!

*/

$files=array( 'track01.mp3', 'escreen.exe');
$filenames=array( 'Thank ABBA for the music.mp3', 'Escreen.exe');
$additional_info=array( 'Various artists - Thanx ABBA for the music : 4978602 by
tes', 'Shareware program to make a screenshot: 529920 bytes');
$url= "/home/lemmen/public_html/data/";
/* When the files are on another server, use the
   whole address (http://www.server.com/dir/) in stead of /home/lemmen... */
       
$referer=ereg_replace( "\?.", "",$HTTP_REFERER); 
$thisfile= "http://$HTTP_HOST$PHP_SELF";
       
if ($referer!=$thisfile){
        echo "<center><big>Homepage: <a href=\"http://home.support.nl/~lemmen\">
http://home.support.nl/~lemmen</big><br><hr><br><br></center>";
        for ($i=0;$i<count($files);$i++)
        echo  "<P><A HREF=\"$PHP_SELF?$i\">",$filenames[$i], "</A> $additional_i
nfo[$i]\n";
}
else {
        $i=$QUERY_STRING;
        $total=$url . $files[$i];
        Header ( "Content-Type: application/octet-stream");
        Header ( "Content-Length: ".filesize($total));
        Header( "Content-Disposition: attachment; filename=$filenames[$i]");
        readfile($total);
}
?>

Comments or questions?
PX is running PHP 5.2.17
Thanks to Miranda Productions for hosting and bandwidth.
Use of any code from PX is at your own risk.