[ CODE ] Scripts para Netstumbler (VBScripts)

[D3M0N]

[ CODE ] Scripts para Netstumbler (VBScripts)

NO ejecuten el script con el NetStumbler aparte de ir a la web para geolocalisar envia nuestros datos personales y de nuestra coneccion a una ip rara. si no estan seguros pidanlen a un amigo que sepa algo de vbscript que hojee el archivo y van a ver que no es cuento.
saludos

PD: Cuidensen de estos delincuentes sin escrupulos que lo poco que deben tener
seguro se lo robaron a alguien

Bueno, me canse de estas "El Usuario penso en insultar pero como no puede no lo hace"... de primer momento habia publicado sin ninguna copilaciín los scripts que habia creado para el netstumbler. Por consiguiente, se pueden editar facilmente con el "Bloc de Notas", algo que todo el mundo sabe menos el de arriba... pero mí¡s aun, habia publicado el codigo base en un pdf en You are not allowed to view links. Register or Login ya que este pequeíño trabajo fue para mejorar un par de cosas del netstumbler y para que nadie lo deje de lado, ya que el netstumbler es el unico programa actual en el que mí¡s uno puede confiar. Solo tiene un solo error... el error es que no tenga soporte desde el aíño 2004; sino actulmente mataria tanto al Vistumbler, inSSIDer y otros que no hacen nada bien... recien hoy veo este mensaje y admiro la ignoracia que tiene la gente. VBS es un lenguaje nativo de Windows y no saben nada... admiro como la gente sigue asustada que le roben informaciín y bla... bla... bla... si tienes miedo te va a pasar... si no sabes como defenderte... te va a pasar... si ejecutas cualquier cosa que descargas... te va a pasar... bueno como no quiero hablar mí¡s de esto, dejo denuevo ahora si como codigo base... (El cual nunca copile), para que vean lo facil que es esto... solo hay que estudiar... hay todo un mundo por descubrir... lastima que me pongo cada ves mí¡s viejo...



//Geolocalizar.vbs 'Nombre del archivo

sub arch (bssid, ssid) 'Crea una funcion a ejecutar.

Set objshel = createobject("Wscript.shell") 'crea un objeto para la funcion del mensaje.

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.WirelessD3M0N.com.ar¨",3,"NetStumbler v0.4.0 - Script by D3M0N",64) 'Crea un mensaje previo antens de la funcion.

Set objshell = createobject("Wscript.shell") 'crea un nuevo objeto para la funcion de geolocalizar.

objshell.run "You are not allowed to view links. Register or Login" + (BSSID) 'ejecuta la url de samy y la completa con la BSSID seleccionada.

end sub 'Termina la funcion.

AddItemContextMenu "arch", "Geolocalizar con un Clic" 'Crea una funcion en el menu al hacer clic derecho.



//SaveMAC.vbs iNombre del archivo

Sub SaveMAC (bssid, ssid) 'crea una funcion para el guardado.

Set objfso = createobject("scripting.filesystemobject") 'crea un objeto que hara la acciín.
Set archivotexto = objfso.createtextfile("C:\listMAC.txt",True) ' el objeto sera guardado en listMAC.txt
archivotexto.writeline (BSSID) 'se guardara la linea BSSID.
archivotexto.close 'cierra el archivo de texto.

Set objfso = createobject("scripting.filesystemobject") 'crea un nuevo objeto
Set archivotexto = objfso.createtextfile("C:\listSSID.txt",True) ' ahora creara el archivo listSSID.txt.
archivotexto.newwriteline (SSID) 'abre el archivo anterior y lo guarda.
archivotexto.close 'finalmente cierra el archivo.

Set objshell = createobject("Wscript.shell") 'crea un nuevo objeto para la funcion de mensaje.

rmensaje = objshell.popup("La MAC seleccionada ha sido guardada Correctamente en
¨listMAC.txt¨ en el disco C:\; tambien se ha guardado el nombre de la MAC seleccionada en
¨listSSID.txt¨; por favor visita tu disco local.
",3,"NetStumbler v0.4.0 - Script by D3M0N",48) 'se crea el dialogo del mensaje.

End Sub 'terminan todas las funciones

AddItemContextMenu "SaveMAC", "Guardar Solo MAC" ise crea en el boton derecho una funcion que llamara al SaveMAC.



//SaveMACall.vbs 'nombre del archivo.

Sub SaveMAC (bssid, ssid) 'La funcion en espera... la siguiente.
Set objfso = createobject("scripting.filesystemobject") 'crea un objeto para cumplir con la siguiente funcion.

Set archivotexto = objfso.opentextfile("C:\listMAC.txt",8,true) 'crea un archivo de multilinea.
archivotexto.writeline (BSSID) 'guarda el valor de BSSID en el archivo.
archivotexto.close 'cierra el archivo.

Set objfso = createobject("scripting.filesystemobject") 'crea un objeto para ejecutar la funcion.
Set archivotexto = objfso.opentextfile("C:\listSSID.txt",8,true) 'crea un archivo de texto multilinea en donde grabar.
archivotexto.writeline (SSID) 'grabara el valor de la BSSID.
archivotexto.close 'cierra el archivo

Set objfso = createobject("scripting.filesystemobject") 'crea un objeto para cumplir la siguiente funcion.
Set archivotexto = objfso.opentextfile("C:\list.txt",8,true) 'crea el archivo y graba la informaciín en multi linea.
archivotexto.writeline (SSID) + "                       " + (BSSID) 'guarda la SSID separada y la BSSID en el archivo.
archivotexto.close 'cierra el archivo.

Set objshell = createobject("Wscript.shell") 'crea un objeto para llamar al mensaje.

rmensaje = objshell.popup("La MAC seleccionada ha sido guardada Correctamente en
¨listMAC.txt¨ en el disco C:\; tambien se ha guardado el nombre de la MAC seleccionada en
¨listSSID.txt¨ y tambien se ha guardado el nombre de la red seguido de la MAC en ¨list.txt¨ por
favor visita tu disco local.
",3,"NetStumbler v0.4.0 - Script by D3M0N [www.Arg-
Wireless.com.ar]",64) 'dialogo del mensaje.

End Sub 'finaliza todas las funciones.

AddItemContextMenu "SaveMAC", "Aíñadir MAC a una Lista" 'crea un menu en el boton derecho que llamara a la funcion SaveMAC.



//DetectarFabricante.vbs 'nombre del archivo.

sub arch3 (bssid, ssid) 'la funcion a cumplir...

Dim CadenaMAC 'registra la funcion de la cadenaMAC para no tener problemas...
CadenaMAC = Left(BSSID, 6) 'hace que el valor CadenaMAC solo tenga los primeros 6 numeros de la MAC.
Set objshel = createobject("Wscript.shell") 'crea un objeto para la siguiente funcion.

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) 'crea un mensaje.

Set objshell = createobject("Wscript.shell") 'crea un objeto para la funcion siguiente.
objshell.run "You are not allowed to view links. Register or Login?" + CadenaMAC 'ejecuta la url de ieee y la termina con los primeros 6 numeros de la MAC.

end sub 'termina la funcion.

AddItemContextMenu "arch3", "Reconocer Fabricante de AP." 'crea un item en el menu del boton derecho con la funcion.



EDITO: Pueden encontrar estos scripts en este You are not allowed to view links. Register or Login