WiGLE

[D3M0N]

Como verán en mi firma, actualmente estoy realizando mi aporte y mi granito de arena para que la hermosa geolocalización vuelva a reinar... nada sera como Samy, pero a estas alturas no queda otra que hacer todo lo posible por encontrar algún medio en el cual poder aunque sea mínimo encontrar la red deseada, desde septiembre de 2001 el sitio web WiGLE comenzó con lo que google luego utilizo para saber hasta cuando ibas al baño.. WiGLE es un sitio web para la recopilación de Puntos de Acceso o AP's que a su ves son geolocalizados utilizando una tecnología como es la del GPS. El 1 de febrero de 2012, WiGLE ha contado más de 55,3 millones de registros de redes en su base de datos, de los cuales 54,1 millones se registró con las coordenadas GPS de la misma y cerca de 1300 millones observaciones únicas registradas (sin coordenadas). Por ende lo hace un material muy especial y que no hay que perderse... a medida que va avanzando la tecnología nos encontramos con cada ves mas utilidades en un mismo dispositivo por ejemplo, las 1.833 Redes que he aportado no fueron tomadas con un adaptador usb+gps+notebook, fueron simplemente tomados de un Samsung Galaxy SII con el mismo You are not allowed to view links. Register or Login; y sus cálculos no son tan errados, el marguen de error geolocalizando por un dispositivo móvil es de 5Mtrs, cosa que con un dispositivo USB+GPS+PC se amplia a 10/20 y hasta 30 o 40Mts de marguen de error.

Lo bueno de WiGLE es que su base de datos esta habilitada para todo publico desde 2001 y a su ves tenemos API's para realizar consultas en la misma.

Por ejemplo realice un pequeño código para verificar si el nombre (SSID) de una Red ya fue localizado, especial para NetStumbler:


Posicion en WiGLE.vbs

Código: You are not allowed to view links. Register or Login

sub WiGLE (bssid, ssid)

Set objshel = createobject("Wscript.shell")
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)

Set objshell = createobject("Wscript.shell")
objshell.run "http://wigle.net/gps/gps/main/confirmquery/?ssid=" & (SSID)

end sub

AddItemContextMenu "WiGLE", "Geolocalizar con WiGLE"
You are not allowed to view links. Register or Login

Lo que realiza este Script es crear un sub menu de Geolocalización que tomara el SSID de la red y la buscara en la base de datos:

luego nos mostrara en nuestro navegador, si es que encontró la red los datos y podemos ver el mapa de su posición actual:

Actualmente estoy trabajando en el Script para Localizar ya por MAC Address.

Como les decía y vuelvo a repetir, hay que usar lo q uno tiene, así que si tienes un celu con GPS/Wi-Fi y Android, copate y aporta tu granito de arena.

[D3M0N]

y de paso les dejo el segundo Script, para localizar por MAC Address:

Código: You are not allowed to view links. Register or Login

sub WiGLEMAC (bssid, ssid)

Dim i
Dim s
Dim a()
s = BSSID
m = ":"

Redim a(len(s))

For i = 1 to Len(s)
a(i) = mid(s,i,1)
Next

Set objshel = createobject("Wscript.shell")

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)

Set objshell = createobject("Wscript.shell")
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

AddItemContextMenu "WiGLEMAC", "Geolocalizar MAC Address con WiGLE"
You are not allowed to view links. Register or Login

Saludos!

[D3M0N]

Script mejorado y todo en uno:

Código: You are not allowed to view links. Register or Login

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                    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: You are not allowed to view links. Register or Login

[D3M0N]

y pensar que eran poquitas... ya estoy en las 6.000 redes geolocalizadas!