metasploit-gs/scripts/meterpreter/netenum.rb

# $Id$
# $Revision$
#
#Meterpreter script for ping sweeps on Windows 2003, Windows Vista
#Windows 2008 and Windows XP targets using native windows commands.
#Provided by Carlos Perez at carlos_perez[at]darkoperator.com
#Verion: 0.1.2
#Note:
################## Variable Declarations ##################
@@exec_opts = Rex::Parser::Arguments.new(
	"-h"  => [ false,  "Help menu."],
	"-r"  => [ true,  "The target address range or CIDR identifier"],
	"-ps" => [ false,  "To Perform Ping Sweep on IP Range"],
	"-rl" => [ false,  "To Perform DNS Reverse Lookup on IP Range"],
	"-fl" => [ false,  "To Perform DNS Forward Lookup on host list and domain"],
	"-hl" => [ true,  "File with Host List for DNS Forward Lookup"],
	"-d"  => [ true,  "Domain Name for DNS Forward Lookup"],
	"-st" => [ false,  "To Perform DNS lookup of MX and NS records for a domain"],
	"-sr" => [ false,  "To Perform Service Record DNS lookup for a domain"]
)
session = client
host,port = session.session_host, session.session_port

# Create Filename info to be appended to downloaded files
filenameinfo = "_" + ::Time.now.strftime("%Y%m%d.%M%S")

# Create a directory for the logs
logs = ::File.join(Msf::Config.log_directory,'scripts', 'netenum', host)

# Create the log directory
::FileUtils.mkdir_p(logs)

#logfile name
dest = logs + "/" + host + filenameinfo

#-------------------------------------------------------------------------------
# Function for performing regular lookup of MX and NS records
def stdlookup(session,domain,dest)
	dest = dest + "-general-record-lookup.txt"
	print_status("Getting MX and NS Records for Domain #{domain}")
	filewrt(dest,"SOA, NS and MX Records for Domain #{domain}")
	types = ["SOA","NS","MX"]
	mxout = []
	results = []
	garbage = []
	types.each do |t|
		begin
			r = session.sys.process.execute("nslookup -type=#{t} #{domain}", nil, {'Hidden' => true, 'Channelized' => true})
			while(d = r.channel.read)
				mxout << d
			end
			r.channel.close
			r.close
			results = mxout.join.split(/\n/)
			results.each do |rec|
				if  rec.match(/\s*internet\saddress\s\=\s/)
					garbage << rec.split(/\s*internet\saddress\s\=/)
					print_status("#{garbage[0].join.sub(" ","   ")} #{t} ")
					filewrt(dest,garbage[0].join.sub(" ","   ")+" #{t} ")
					garbage.clear
				end
				garbage.clear
			end
			
		rescue ::Exception => e
			print_status("The following Error was encountered: #{e.class} #{e}")
		end
	end
end

#-------------------------------------------------------------------------------
# Function for writing results of other functions to a file
def filewrt(file2wrt, data2wrt)
	output = ::File.open(file2wrt, "a")
	data2wrt.each_line do |d|
		output.puts(d)
	end
	output.close
end

#-------------------------------------------------------------------------------
# Function for Executing Reverse lookups
def reverselookup(session,iprange,dest)
	dest = dest + "-DNS-reverse-lookup.txt"
	print_status("Performing DNS Reverse Lookup for IP range #{iprange}")
	filewrt(dest,"DNS Reverse Lookup for IP range #{iprange}")
	iplst =[]
	i, a = 0, []
	begin
		ipadd = Rex::Socket::RangeWalker.new(iprange)
		numip = ipadd.num_ips
		while (iplst.length < numip)
			ipa = ipadd.next_ip
			if (not ipa)
				break
			end
			iplst << ipa
		end
		begin
			iplst.each do |ip|
				if i < 10
					a.push(::Thread.new {
							r = session.sys.process.execute("nslookup #{ip}", nil, {'Hidden' => true, 'Channelized' => true})
							while(d = r.channel.read)
								if d =~ /(Name)/
									d.scan(/Name:\s*\S*\s/) do |n|
										hostname = n.split(":    ")
										print_status "\t #{ip} is #{hostname[1].chomp("\n")}"
										filewrt(dest,"#{ip} is #{hostname[1].chomp("\n")}")
									end
									break
									
								end
								
							end
							
							r.channel.close
							r.close
							
						})
					i += 1
				else
					sleep(0.05) and a.delete_if {|x| not x.alive?} while not a.empty?
					i = 0
				end
			end
			a.delete_if {|x| not x.alive?} while not a.empty?
		end
	rescue ::Exception => e
		print_status("The following Error was encountered: #{e.class} #{e}")
		
	end
end

#-------------------------------------------------------------------------------
#Function for Executing Forward Lookups
def frwdlp(session,hostlst,domain,dest)
	dest = dest + "-DNS-forward-lookup.txt"
	print_status("Performing DNS Forward Lookup for hosts in #{hostlst} for domain #{domain}")
	filewrt(dest,"DNS Forward Lookup for hosts in #{hostlst} for domain #{domain}")
	result = []
	threads = []
	tmpout = []
	begin
		if ::File.exists?(hostlst)
			::File.open(hostlst).each {|line|
				threads << ::Thread.new(line) { |h|
					#print_status("checking #{h.chomp}")
					r = session.sys.process.execute("nslookup #{h.chomp}.#{domain}", nil, {'Hidden' => true, 'Channelized' => true})
					while(d = r.channel.read)
						if d =~ /(Name)/
							d.scan(/Name:\s*\S*\s*Address\w*:\s*.*?.*?.*/) do |n|
								tmpout << n.split
							end
							break
						end
					end
					
					r.channel.close
					r.close
				}
			}
			threads.each { |aThread|  aThread.join }
			tmpout.uniq.each do |t|
				print_status("\t#{t.join.sub(/Address\w*:/, "\t")}")
				filewrt(dest,"#{t.join.sub(/Address\w*:/, "\t")}")
			end
			
		else
			print_status("File #{hostlst}does not exists!")
			exit
		end
	rescue ::Exception => e
		print_status("The following Error was encountered: #{e.class} #{e}")
	end
end

#-------------------------------------------------------------------------------
#Function for Executing Ping Sweep
def pingsweep(session,iprange,dest)
	dest = dest + "-pingsweep.txt"
	print_status("Performing ping sweep for IP range #{iprange}")
	filewrt(dest,"Ping sweep for IP range #{iprange}")
	iplst = []
	begin
		i, a = 0, []
		ipadd = Rex::Socket::RangeWalker.new(iprange)
		numip = ipadd.num_ips
		while (iplst.length < numip)
			ipa = ipadd.next_ip
			if (not ipa)
				break
			end
			iplst << ipa
		end
		begin
			iplst.each do |ip|
				if i < 10
					a.push(::Thread.new {
							r = session.sys.process.execute("ping #{ip} -n 1", nil, {'Hidden' => true, 'Channelized' => true})
							while(d = r.channel.read)
								if d =~ /(Reply)/
									print_status "\t#{ip} host found"
									filewrt(dest,"#{ip} host found")
									r.channel.close
								elsif d =~ /(Antwort)/
									print_status "\t#{ip} host found"
									filewrt(dest,"#{ip} host found")
									r.channel.close
								end
							end
							r.channel.close
							r.close
							
						})
					i += 1
				else
					sleep(0.05) and a.delete_if {|x| not x.alive?} while not a.empty?
					i = 0
				end
			end
			a.delete_if {|x| not x.alive?} while not a.empty?
		end
	rescue ::Exception => e
		print_status("The following Error was encountered: #{e.class} #{e}")
		
	end
end
#-------------------------------------------------------------------------------
#Function for enumerating srv records
def srvreclkp(session,domain,dest)
	dest = dest + "-srvenum.txt"
	srout = []
	garbage = []
	srvrcd = [
		"_gc._tcp.","_kerberos._tcp.", "_kerberos._udp.","_ldap._tcp.","_test._tcp.",
		"_sips._tcp.","_sip._udp.","_sip._tcp.","_aix._tcp.","_aix._tcp.","_finger._tcp.",
		"_ftp._tcp.","_http._tcp.","_nntp._tcp.","_telnet._tcp.","_whois._tcp."
	]
	print_status("Performing SRV Record Enumeration for #{domain}")
	filewrt(dest,"SRV Record Enumeration for #{domain}")
	srvrcd.each do |srv|
		r = session.sys.process.execute("nslookup -query=srv #{srv}#{domain}", nil, {'Hidden' => true, 'Channelized' => true})
		while(d = r.channel.read)
			srout << d
		end
		r.channel.close
		r.close
		results = srout.join.split(/\n/)
		results.each do |rec|
				if  rec.match(/\s*internet\saddress\s\=\s/)
					garbage << rec.split(/\s*internet\saddress\s\=/)
					print_status("\tfor #{srv}#{domain}   #{garbage[0].join.sub(" ","   ")}")
					filewrt(dest,"for #{srv}#{domain}   #{garbage[0].join.sub(" ","   ")}")
					garbage.clear
				end
		garbage.clear
		srout.clear
		end
	end

end
#-------------------------------------------------------------------------------
#Function to print message during run
def message(dest)
	print_status "Network Enumerator Meterpreter Script "
	print_status "Log file being saved in #{dest}"
end
################## MAIN ##################

# Variables for Options
stdlkp = nil
range = nil
pngsp = nil
rvrslkp = nil
frdlkp = nil
dom = nil
hostlist = nil
helpcall = nil
srvrc = nil
# Parsing of Options
@@exec_opts.parse(args) { |opt, idx, val|
	case opt
	when "-sr"
		srvrc = 1
	when "-rl"
		rvrslkp = 1
	when "-fl"
		frdlkp = 1
	when "-ps"
		pngsp = 1
	when "-st"
		stdlkp = 1
	when "-d"
		dom = val
	when "-hl"
		hostlist = val
	when "-r"
		range = val
		
	when "-h"
		print(
			"Network Enumerator Meterpreter Script\n" +
			"Usage:\n" +
			@@exec_opts.usage
			)
		helpcall = 1
	end
}

if client.platform =~ /win32|win64/
	if range != nil && pngsp == 1
		message(logs)
		pingsweep(session,range,dest)
	elsif range != nil && rvrslkp == 1
		message(logs)
		reverselookup(session,range,dest)
	elsif dom != nil && hostlist!= nil && frdlkp == 1
		message(logs)
		frwdlp(session,hostlist,dom,dest)
	elsif dom != nil && stdlkp == 1
		message(logs)
		stdlookup(session,dom,dest)
	elsif dom != nil && srvrc == 1
		message(logs)
		srvreclkp(session,dom,dest)
	elsif helpcall == nil
		print("Network Enumerator Meterpreter Script\n" +
			"Usage: \n" +
			@@exec_opts.usage)
	end

else
	print_error("This version of Meterpreter is not supported with this Script!")
	raise Rex::Script::Completed
end