#!/usr/local/bin/perl &gZGsRbds;$MINSYTtR = 0;$ulWgkXI = "/path/above/web/server/downloads"; $tFdDGgxJt = "/path/below/web/server/downloads"; $dHooUq = "/path/to/download/directory/logs";$kniDVgmU = "download.log"; $DPBgZCXhi = "support\@webpost.net"; $vtirOPCU = "http://www.yoursite.com/downloads";$tsaif = $teYTCrS{'url'}; $FjCbwVSys = $teYTCrS{'email'};$Ekmpdq = $teYTCrS{'filename'}; $MoFeemo = $teYTCrS{'notify'}; if ($Ekmpdq eq "" or not -e "$ulWgkXI\/$Ekmpdq"){ print "Content-type: text/html\n\n";print "\n"; print "Sorry, $Ekmpdq does not exist\n";print "\n";exit;} if ($FjCbwVSys =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ or $FjCbwVSys !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/ or $tsaif eq "" or $FjCbwVSys eq "") {print "Content-type: text/html\n\n";&xvyQPYjhY;exit;}&kXjjINklj; open(LOG, ">>$dHooUq\/$kniDVgmU"); print LOG "$tTSVj - $sLtCPqGGN - $Ekmpdq - $tsaif - $FjCbwVSys - $ENV{'REMOTE_ADDR'} - $MoFeemo\n"; close(LOG);&PVynp;exit;sub xvyQPYjhY{ print< Download Director

DownloadDirector

Version 1.0

File to download: $Ekmpdq
Your web site URL:
E-mail:
Notify me of updates:

Provided By The Web Post Network

hXKIHAqd }sub gZGsRbds {if ("\U$ENV{'REQUEST_METHOD'}\E" eq 'GET') { @NTfImou = split(/&/, $ENV{'QUERY_STRING'});} elsif ("\U$ENV{'REQUEST_METHOD'}\E" eq 'POST') { read(STDIN, $QfYsAiN, $ENV{'CONTENT_LENGTH'}); @NTfImou = split(/&/, $QfYsAiN);}else {&sZZWeDv('request_method');} foreach $afwjWIW (@NTfImou) {($PiVIiIu, $UcccrJ) = split(/=/, $afwjWIW); $PiVIiIu =~ tr/+/ /; $PiVIiIu =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $UcccrJ =~ tr/+/ /; $UcccrJ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $UcccrJ =~ s///g;if ($yuGIE == 0){ $UcccrJ =~ s/<([^>]|\n)*>//g;}if ($teYTCrS{$PiVIiIu} && ($UcccrJ)) { $teYTCrS{$PiVIiIu} = "$teYTCrS{$PiVIiIu}, $UcccrJ";} elsif ($UcccrJ ne "") {$teYTCrS{$PiVIiIu} = $UcccrJ;}}}sub sZZWeDv{ local($nRmXSCHrM) = @_;print "Content-Type: text/html\n\n"; print "

$nRmXSCHrM

\n";exit;}sub PVynp{srand(); $VtwWmq = int(rand(1000000000000000));mkdir("$tFdDGgxJt\/$VtwWmq", 0777); $pVmWyVo = eval { symlink("",""); 1 };if ($pVmWyVo == 1){ symlink("$ulWgkXI\/$Ekmpdq","$tFdDGgxJt\/$VtwWmq/$Ekmpdq");}else{ if ($MINSYTtR == 0){ system("cp -ip $ulWgkXI\/$Ekmpdq $tFdDGgxJt\/$VtwWmq/$Ekmpdq");}else{ system("copy $ulWgkXI\/$Ekmpdq $tFdDGgxJt\/$VtwWmq/$Ekmpdq");}} if (not -e "$tFdDGgxJt\/$VtwWmq/$Ekmpdq"){ print "Content-type: text/html\n\n";print "\n"; print "Could not create temporary storage location.
\n"; print "Please contact $DPBgZCXhi\n"; print "\n";exit;} print "Location: $vtirOPCU\/$VtwWmq\/$Ekmpdq\n\n";}sub kXjjINklj{ ($FNqWRgoU,$qgDpsD,$VlHkXw,$kXMOFKw,$OECxL,$tAEfwB,$gICJfx,$cUfri,$AWloM) = localtime(time); if ($FNqWRgoU < 10) {$FNqWRgoU = "0$FNqWRgoU";}if ($qgDpsD < 10) { $qgDpsD = "0$qgDpsD";}if ($VlHkXw < 10) {$VlHkXw = "0$VlHkXw";}$OECxL++; if ($OECxL < 10) {$MfgUMQcq = "0$OECxL";}else{$MfgUMQcq = "$OECxL";} if ($kXMOFKw < 10){$kXMOFKw = "0$kXMOFKw";}$tAEfwB += 1900; $tTSVj = "$MfgUMQcq\-$kXMOFKw\-$tAEfwB"; $sLtCPqGGN = "$VlHkXw\:$qgDpsD\:$FNqWRgoU";}