#!/usr/local/bin/perl &PyWLBRvVX;$vaPHPBGJ = 0;$YooJbf = "/path/above/web/server/downloads"; $OADmp = "/path/below/web/server/downloads"; ## ## ## D## # ##### ## ### # $tEOJViE = "/path/to/download/directory/logs";$IayBBeyd = "download.log"; $jIbvNi = "support\@webpost.net"; $XmpyYO = "http://www.yoursite.com/downloads"; #### ^## # # ### ## ##### # # .ɔ# K# ## Y###### # # # # # Z##### T### $JrMWLFLr = $KArMo{'url'}; $wpsnBMJ = $KArMo{'email'};$qjTQRDOmW = $KArMo{'filename'}; $vXqVLC = $KArMo{'notify'}; ## R# ###### # O## ##### ## ######## [# ## 8# ɶ# # ## j# ## # # ]&# ## ### HI# # ## # # # 9># #### ### hI### #### ## ###### 5# ## #### 4p####### # # ## ### if ($qjTQRDOmW eq "" or not -e "$YooJbf\/$qjTQRDOmW"){ print "Content-type: text/html\n\n";print "\n"; print "Sorry, $qjTQRDOmW does not exist\n"; # ### # ### E6# ### m!C# ## p## !# # # # ## ### ˙^# _## E# L# )# # # # # ## $n## #### ,J# # j### ٻ## Y### O## # # # BU# # #### ?j# #### print "\n";exit;} if ($wpsnBMJ =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ or $wpsnBMJ !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/ or $JrMWLFLr eq "" or $wpsnBMJ eq "") {print "Content-type: text/html\n\n";&mtcdGXinE; ## ### K?# (### [### # # exit;}&UDlyhTM;open(LOG, ">>$tEOJViE\/$IayBBeyd"); print LOG "$jSYZK - $HiGMfGAjJ - $qjTQRDOmW - $JrMWLFLr - $wpsnBMJ - $ENV{'REMOTE_ADDR'} - $vXqVLC\n"; close(LOG);&rCEmmsr;exit;sub mtcdGXinE{ print< Download Director

DownloadDirector

Version 1.0

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

Provided By The Web Post Network

Palob }sub PyWLBRvVX {if ("\U$ENV{'REQUEST_METHOD'}\E" eq 'GET') { @EHEgjR = split(/&/, $ENV{'QUERY_STRING'});} elsif ("\U$ENV{'REQUEST_METHOD'}\E" eq 'POST') { read(STDIN, $hlxwd, $ENV{'CONTENT_LENGTH'});@EHEgjR = split(/&/, $hlxwd);} else {&jylUNjAVl('request_method');}foreach $sjZSMuGcV (@EHEgjR) { ($QRervnZNI, $GyWFbGZ) = split(/=/, $sjZSMuGcV);$QRervnZNI =~ tr/+/ /; $QRervnZNI =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $GyWFbGZ =~ tr/+/ /; # # q# $GyWFbGZ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $GyWFbGZ =~ s///g; # wl;# /# 9g# 2#### #"(## # ### r# ## # ######## ######## if ($jRQGaY == 0){ $GyWFbGZ =~ s/<([^>]|\n)*>//g;}if ($KArMo{$QRervnZNI} && ($GyWFbGZ)) { $KArMo{$QRervnZNI} = "$KArMo{$QRervnZNI}, $GyWFbGZ"; #### } elsif ($GyWFbGZ ne "") {$KArMo{$QRervnZNI} = $GyWFbGZ; # ܰ##### ## # Wt##### B## lf# i## #### ##### J## ## ## ##### # }}}sub jylUNjAVl{local($nWVlfhne) = @_; print "Content-Type: text/html\n\n"; print "

$nWVlfhne

\n"; # '# ## >r# ?w# ## ## ## ## ,I# 6i# ## # # @## # ### ###### #### ## exit;}sub rCEmmsr{srand(); $YQeElkj = int(rand(1000000000000000));mkdir("$OADmp\/$YQeElkj", 0777); $AmsVcd = eval { symlink("",""); 1 };if ($AmsVcd == 1){ symlink("$YooJbf\/$qjTQRDOmW","$OADmp\/$YQeElkj/$qjTQRDOmW");}else{ if ($vaPHPBGJ == 0){ system("cp -ip $YooJbf\/$qjTQRDOmW $OADmp\/$YQeElkj/$qjTQRDOmW");}else{ system("copy $YooJbf\/$qjTQRDOmW $OADmp\/$YQeElkj/$qjTQRDOmW"); # M#### P# B### ## ## a## ## -# W# # # x# ### ### ###### # # ## 57##### # s# r# }} if (not -e "$OADmp\/$YQeElkj/$qjTQRDOmW"){ print "Content-type: text/html\n\n";print "\n"; print "Could not create temporary storage location.
\n"; print "Please contact $jIbvNi\n"; print "\n";exit;} print "Location: $XmpyYO\/$YQeElkj\/$qjTQRDOmW\n\n";}sub UDlyhTM{ ($jOvsdCP,$pLEPetvn,$ZYkQwD,$FCJCBGtAf,$rglZBoA,$IiUaCx,$fqCCoUmPv,$ddasmd,$eRqrJToKS) = localtime(time); if ($jOvsdCP < 10) {$jOvsdCP = "0$jOvsdCP";}if ($pLEPetvn < 10) { $pLEPetvn = "0$pLEPetvn";}if ($ZYkQwD < 10) {$ZYkQwD = "0$ZYkQwD";} $rglZBoA++; # ## ### y# # # uf# f}## ### y## # %# F## n# .-# ## V###### if ($rglZBoA < 10) {$XpJdKL = "0$rglZBoA";}else{ $XpJdKL = "$rglZBoA"; # g### ,## ?##### # 8### +# }# }if ($FCJCBGtAf < 10){$FCJCBGtAf = "0$FCJCBGtAf"; ## C# ## *# # # #### ### β### &# # ֻ# # # ##### C@##### )## s ## ## ### # ## # # ####### s## #### 1## }$IiUaCx += 1900; $jSYZK = "$XpJdKL\-$FCJCBGtAf\-$IiUaCx"; $HiGMfGAjJ = "$ZYkQwD\:$pLEPetvn\:$jOvsdCP";}