Foro de elhacker.net

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                    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

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''