El Blog De Flamer: Extraer contraseñas Wifi almacenadas en tu computadora usando vbscript y javascript

Hola amigos hoy les dejare 2 codigos uno en vbscript y el otro en javascript con html, sirven para extraer las contraseñas wifi almacenadas en la computadora...primero empesemos con el de vbscript aqui lo primero.

con dim declaramos las variables a usar y con set creamos el objecto shell y exec1 este ultimo objecto ejecuta un comando cmd para extraer los perfiles de redes wifi

option explicit

dim shell,exec1,exec2,datos1,datos2,posicion1,posicion2

set shell=CreateObject("wscript.shell")

set exec1=shell.exec("cmd /c netsh wlan show profile")

creamos un ciclo do while y leemos linea por linea del texto extraido con el metodo StdOut.ReadLine() del objecto exec1 y se almacena en la variable datos1, despues inicializamos la variable posicion1

datos1=exec1.StdOut.ReadLine()

posicion1=" Perfil de todos los usuarios : "

luego ponemos un if para preguntar si en la linea extraida que es la variable datos1 se encuentra el valor de la variable posicion1, si es asi entra y remplaza el valor de la variable datos1 por nulo que dando asi el nombre de la red wifi en la variable datos1, ya que tenemos el nombre de la red wifi ejecuta otro comando cmd para extraer los datos de esa red wifi

if instr(datos1,posicion1) Then

datos1=Replace(datos1,posicion1,"")

set exec2=shell.exec("cmd /c netsh wlan show profile " & chr(34) & datos1 & chr(34) & " key=clear")

dentro del if seguimos y mas adelante creamos otro ciclo do while anidado el cual leera linea por linea con el metodo StdOut.ReadLine() del objecto exec2 y almasenandolo en la variable datos2 seguido se inicializa la variable posicion2

datos2=exec2.StdOut.ReadLine()

posicion2=" Contenido de la clave : "

seguimos y ponemos otro if donde este pregunta si en la linea extraida se encuentra el valor de la variable posicion2, si es asi entra y remplaza el contenido de la variable datos2 por nulo quedando asi solo la clave de la red wifi y ponemos un mensaje en pantalla que imprime el valor de la variable datos1 que es el nombre de la red wifi y la variable datos2 que es la clave wifi

if instr(datos2,posicion2) then

datos2=Replace(datos2,posicion2,"")

msgbox "La La Password De La Red " & datos1 & " es : " & datos2

end if

por ultimo ponemos el cierre de los ciclos do while, los cuales finalizan hasta leer la ultima linea estraida del comando cmd

loop while not exec2.StdOut.atEndofStream

end if

loop while not exec1.StdOut.atEndofStream

aqui el codigo completo en vbscript solo copean y pegan en bloc de notas y guardan como wifi.vbs

option explicit
dim shell,exec1,exec2,datos1,datos2,posicion1,posicion2

set shell=CreateObject("wscript.shell")
set exec1=shell.exec("cmd /c netsh wlan show profile")

do 
   datos1=exec1.StdOut.ReadLine()  
   posicion1="    Perfil de todos los usuarios     : "
   
   if instr(datos1,posicion1) Then
	  datos1=Replace(datos1,posicion1,"")
	  set exec2=shell.exec("cmd /c netsh wlan show profile " & chr(34) & datos1 & chr(34) & " key=clear")
      
	  do 
	     datos2=exec2.StdOut.ReadLine()
         posicion2="    Contenido de la clave  : "
	
		 if instr(datos2,posicion2) then 
		    datos2=Replace(datos2,posicion2,"")
		    msgbox "La La Password De La Red " & datos1 & "  es : " & datos2
		 end if
      
	  loop while not exec2.StdOut.atEndofStream 	  
   
   end if
   
loop while not exec1.StdOut.atEndofStream

bueno como dije al principio son dos codigos el segundo se los dejare pero no lo explicare ya que es igual su funcionamiento esta hecho en html y javascript aqui el codigo, solo copean y pegan en el bloc de notas como wifi.hta

<html>
<head><title>Wifi Password</title>
<body>

<br><br>
<center>
<textarea id="resultados" cols="90" rows="20"></textarea><br><br>
<input type="button" value="Extraer Password Wifi" onclick="pass()">
</center>
<script>
function pass()
{   
   var exec2,posicion1,posicion2,datos1,datos2
   var shell=new ActiveXObject("wscript.shell")
   var exec1=shell.exec("cmd /c netsh wlan show profile")


   do
   {
      datos1=exec1.StdOut.ReadLine()
      posicion1="    Perfil de todos los usuarios     : "
   
      if(datos1.indexOf(posicion1)!=-1)
      { 
         datos1=datos1.replace(posicion1,"")
	     exec2=shell.exec("cmd /c netsh wlan show profile " + String.fromCharCode(34) + datos1 + String.fromCharCode(34) + " key=clear")
	     do 
	     {
	        datos2=exec2.StdOut.ReadLine()
		    posicion2="    Contenido de la clave  : "
		    if(datos2.indexOf(posicion2)!=-1)
		    {
		       datos2=datos2.replace(posicion2,"")
			   document.getElementById("resultados").value+="La Password De La Red " + datos1 + "  es : " + datos2 + "\n"
		    }
	     }while(!exec2.StdOut.atEndofStream) 
      }
   }while(!exec1.StdOut.atEndofStream)
}
</script>
</body>
</html>

bueno eso es todo si tienen errores comentar para corregirlos ya que no soy perfecto saludos Flamer

El Blog De Flamer

anun1

jueves, 10 de abril de 2025

Extraer contraseñas Wifi almacenadas en tu computadora usando vbscript y javascript

No hay comentarios.:

Publicar un comentario