Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: maik78 en 25 Julio 2012, 00:05 AM
Perdonar la ignorancia pero sí no fuesen compatibles qué llegué el conteo a esto:
0.56% complete @ 2012-07-22 10:03:19 (265 seconds/pin)
Es posible??
Cita de: divad112 en 22 Julio 2012, 11:55 AMfacil y economica.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Here are the results of your search through the public section of the IEEE Standards OUI database report for 62559C:
Sorry!
The public OUI listing contains no match for the query 62559C
Please back up to the search page and try again.