Script location for Netstumbler

[D3M0N]

Hola a todos los miembros de WiGLE.

El texto original es en español, por ende pueda que el ingles correspodiente no este traducido correctamente.

Hoy les traigo un simple Script que construi para localizar desde netstumbler mediante el SSID o la MAC Address. Les dejo el Script para quien quiera utilizarlo.

Code: Select all

Hello to all members of Wigle. The original text is in Spanish, hence the English can source the is not translated correctly. Today I bring you a simple script I built from netstumbler to locate using the SSID or MAC Address. I leave the script for those who want to use it.

WiGLE.vbs

Code: Select all

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Netstumbler Geolocation Script v1.1 ' ' Creado por: D3M0N www.Arg-Wireless.com.ar ' ' Fecha: 16 de Julio de 2012 ' ' Ultima Modificación: 21 Julio de 2012 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Agregamos un Menu Contextual para la funcion ALTERVISTA. AddItemContextMenu "ALTERVISTA", "Geolocalizar WirelessTester (Europa)" ' Agregamos un Menu Contextual para la funcion WiGLEMAC. AddItemContextMenu "WiGLEMAC", "Geolocalizar MAC Address con WiGLE" ' Agregamos un Menu Contextual para la funcion WiGLESSID. AddItemContextMenu "WiGLESSID", "Geolocalizar SSID con WiGLE" ' Agregamos un Menu Contextual para la funcion OUISEARCH. AddItemContextMenu "OUISEARCH", "Reconocer Fabricante de AP." ' Creamos una funcion para la localización mediante MAC Address. sub WiGLEMAC (bssid, ssid) ' Variables a utilizar para poder leer caracter por caracter de la MAC Address ' y poder dividirla cada dos caracteres con un ":"... ' Pasaje de: XXXXXXXXXXXX a XX:XX:XX:XX:XX:XX Dim i Dim s Dim a() s = BSSID m = ":" ' Tomamos cada caracter y lo movemos a un Vector llamado "a" Redim a(len(s)) For i = 1 to Len(s) a(i) = mid(s,i,1) Next ' Creamos un Objeto nuevo. Set objshel = createobject("Wscript.shell") ' Lanzamos un Mensaje antes de continuar. rmensaje = objshel.popup("La MAC seleccionada sera buscada en la base de datos de WiGLE. Este proceso tardara unos segundo dependiendo de la velocidad de conexion que tengas... Este Script utiliza ¨WiGLE.NET¨ para geolocalizar. Visita ¨www.Arg-Wireless.com.ar¨",3,"NetStumbler v0.4.0 - Script by D3M0N",64) ' Creamos un Objeto nuevo. Set objshell = createobject("Wscript.shell") ' Ejecutanos y completamos la URL de WiGLE para Buscar la MAC Address en su ' base de datos, simplemente cada a(x) y a(x) completamos con un ":" creando ' asi la MAC Address adecuada para la Localización. objshell.run "http://wigle.net/gps/gps/main/confirmquery/?netid=" & a(1) & a(2) & m & a(3) & a(4) & m & a(5) & a(6) & m & a(7) & a(8) & m & a(9) & a(10) & m & a(11) & a(12) end sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Creamos una funcion para la localización mediante MAC Address. sub WiGLESSID (bssid, ssid) ' Creamos un Objeto nuevo. Set objshel = createobject("Wscript.shell") ' Lanzamos un Mensaje antes de continuar. rmensaje = objshel.popup("El SSID seleccionado sera buscada en la base de datos de WiGLE. Este proceso tardara unos segundo dependiendo de la velocidad de conexion que tengas... Este Script utiliza ¨WiGLE.NET¨ para geolocalizar. Visita ¨www.Arg-Wireless.com.ar¨",3,"NetStumbler v0.4.0 - Script by D3M0N",64) ' Creamos un Objeto nuevo. Set objshell = createobject("Wscript.shell") ' Ejecutanos y completamos la URL de WiGLE para Buscar el SSID en su base de ' datos. objshell.run "http://wigle.net/gps/gps/main/confirmquery/?ssid=" & (SSID) end sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Creamos una funcion para la localización mediante MAC Address (Opt. Europa). sub ALTERVISTA (bssid, ssid) ' Creamos un Objeto nuevo. Set objshel = createobject("Wscript.shell") ' Lanzamos un Mensaje antes de continuar. rmensaje = objshel.popup("La MAC seleccionada sera Geolocalizada. Este proceso tardara unos segundo dependiendo de la velocidad de conexion que tengas... Este Script utiliza ¨Samy's Geolocation proof of concept¨ para geolocalizar. Si no se geolocaliza; o samy dice que no sirve la MAC o es Erronea, pueda que sea una red LAN Wireless o un dispocitivo como una Impresora, etc. Visita ¨www.Arg-Wireless.com.ar¨",3,"NetStumbler v0.4.0 - Script by D3M0N",64) ' Creamos un Objeto nuevo. Set objshell = createobject("Wscript.shell") ' Ejecutanos y completamos la URL de Altervista para Buscar la MAC Address en ' su base de datos. objshell.run "http://wirelesstester.altervista.org/php5/iplocator-street.php?mac=" + (BSSID) end sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Creamos una funcion para saber el fabricante sub OUISEARCH (bssid, ssid) ' Creamos una variable llamada cadena. Dim Cadena ' En cadena agregaremos los primeros 6 digistos del BSSID. Cadena = Left(BSSID, 6) ' Creamos un Objeto nuevo. Set objshel = createobject("Wscript.shell") ' Lanzamos un Mensaje antes de continuar. rmensaje = objshel.popup("Se reconocera el fabricante de la MAC que usted ha seleccionado.",3,"NetStumbler v0.4.0 - Script by D3M0N [www.Arg-Wireless.com.ar]",64) ' Creamos un Objeto nuevo. Set objshell = createobject("Wscript.shell") ' Ejecutanos y completamos la URL de IEEE para Buscar la MAC Address en ' su base de datos y saber cual es el fabricante. objshell.run "http://standards.ieee.org/cgi-bin/ouisearch?" + cadena end sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

DOWNLOAD: http://www.mediafire.com/?xmvh3ha559tqk0r