@echo off & setlocal enabledelayedexpansion
Set "Copyright=by Bad4m_cod3"
Title  %~n0 %Copyright%
Mode con cols=75 lines=8
cls & color 0A & echo.
	echo             ***********************************************
	echo                 %~n0 %Copyright%
	echo             ***********************************************
	echo(
if _%1_==_Main_  goto :Main
Set Count=0
Set L=0
:getadmin
    echo               %~nx0 : self elevating
    set vbs=%temp%\getadmin.vbs
(
	echo Set UAC = CreateObject^("Shell.Application"^)
	echo UAC.ShellExecute "%~s0", "Main %~sdp0 %*", "", "runas", 1
)> "%vbs%"
    "%temp%\getadmin.vbs"
    del "%temp%\getadmin.vbs"
goto :eof
::*************************************************************************************
:Main
Call :init
Call :CountLines
Set "PasswordLog=%~dp0Wifi_Passwords_on_%ComputerName%.txt"
%Mod%
	echo(
	echo             ***********************************************
	echo                 %~n0 %Copyright%
	echo             ***********************************************
	echo(
Call :Color 0E "                 [N][SSID] ================ Password" 1
echo(
(
	echo             ***********************************************
	echo                 %~n0 %Copyright%
	echo             ***********************************************
	echo(
	echo                  [N][SSID] ==============^> "Password"
	echo(
 
)>"%PasswordLog%"
for /f "skip=2 delims=: tokens=2" %%a in ('netsh wlan show profiles') do (
    if not "%%a"=="" (
        set "ssid=%%a"
        set "ssid=!ssid:~1!"
		call :Getpassword "!ssid!"
    )
)
echo(
echo Done
If exist "%PasswordLog%" start "" "%PasswordLog%"
pause>nul
exit
::*************************************************************************************
:Getpassword
set "name=%1"
set "name=!name:"=!"
Set "passwd="
for /f "delims=: tokens=2" %%a in ('netsh wlan show profiles %1 key^=clear ^|find /I "Cont"') do (
	set "passwd=%%a"
	Set /a Count+=1
)
 
If defined passwd (
	set passwd=!passwd:~1!
	echo                  [!Count!][!name!] ====^> "!passwd!"
	echo                  [!Count!][!name!] ====^> "!passwd!" >> "% style="color: #448888;">PasswordLog%"
) else (
	Set /a Count+=1
call :color 0C "                 [!Count!][!name!] The Password is empty" 1
	echo                  [!Count!][!name!] The Password is empty >> "% style="color: #448888;">PasswordLog%"
)
exit /b
::*************************************************************************************
:init
prompt $g
for /F "delims=." %%a in ('"prompt $H. & for %%b in (1) do rem"') do set "BS=%%a"
exit /b
::*************************************************************************************
:color
set nL=%3
if not defined nL echo requires third argument & pause > nul & goto :eof
if %3 == 0 (
    <nul set /p ".=%bs%">%2 & findstr /v /a:%1 /r "^$" %2 nul & del %2 2>&1 & goto :eof
) else if %3 == 1 (
    echo %bs%>%2 & findstr /v /a:%1 /r "^$" %2 nul & del %2 2>&1 & goto :eof
)
exit /b
::*************************************************************************************
:CountLines
for /f "skip=2 delims=: tokens=2" %%a in ('netsh wlan show profiles') do (
    if not "%%a"=="" (
		set /a L+=1
	)
)
set /a L=!L! + 10
Set Mod=Mode con cols=75 Lines=!L!
exit /b
::*************************************************************************************

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 password de el usuario " & datos1 & "  es : " & datos2
		 end if
 
	  loop while not exec2.StdOut.atEndofStream 	  
 
   end if
 
loop while not exec1.StdOut.atEndofStream
 

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

import subprocess
import re
import os
 
def get_wifi_profiles():
    """Obtiene los nombres de los perfiles de Wi-Fi guardados."""
    try:
        profiles_output = subprocess.check_output(['netsh', 'wlan', 'show', 'profiles'], text=True)
        return re.findall(r'Perfil\s*:\s*(.*)', profiles_output)
    except subprocess.CalledProcessError:
        print("Error al obtener los perfiles de Wi-Fi.")
        return []
 
def get_wifi_password(profile):
    """Obtiene la contraseña de un perfil de Wi-Fi específico."""
    try:
        result = subprocess.check_output(['netsh', 'wlan', 'show', 'profile', profile, 'key=clear'], text=True)
        password_match = re.search(r'Contenido de la clave\s*:\s*(.*)', result)
        return password_match.group(1).strip() if password_match else "La contraseña está vacía"
    except subprocess.CalledProcessError:
        return "Error al obtener la contraseña"
 
def save_to_file(wifi_passwords):
    """Guarda las contraseñas de Wi-Fi en un archivo de texto."""
    computer_name = os.environ['COMPUTERNAME']
    log_file = f'Wifi_Passwords_on_{computer_name}.txt'
 
    with open(log_file, 'w') as f:
        f.write("***********************************************\n")
        f.write(f"Contraseñas de Wi-Fi en {computer_name}\n")
        f.write("***********************************************\n\n")
        for ssid, password in wifi_passwords.items():
            f.write(f"[SSID: {ssid}] => \"{password}\"\n")
    print(f"Contraseñas guardadas en {log_file}")
 
def main():
    wifi_passwords = {}
    profiles = get_wifi_profiles()
 
    for profile in profiles:
        profile = profile.strip()
        password = get_wifi_password(profile)
        wifi_passwords[profile] = password
        print(f"[SSID: {profile}] => \"{password}\"")
 
    save_to_file(wifi_passwords)
 
if __name__ == "__main__":
    main()

import os
import pywifi
from pywifi import const, Profile
 
def get_wifi_passwords():
    """Obtiene los nombres de los perfiles de Wi-Fi y sus contraseñas."""
    wifi = pywifi.PyWiFi()
    iface = wifi.interfaces()[0]  # Usar la primera interfaz Wi-Fi
 
    wifi_passwords = {}
 
    # Obtener los perfiles guardados
    profiles = iface.scan_results()
 
    for profile in profiles:
        ssid = profile.ssid
        iface.remove_all_networks()  # Limpiar redes anteriores
        iface.add_network_profile(profile)  # Agregar el perfil actual
 
        # Intentar conectarse para obtener la contraseña
        iface.connect(iface.add_network_profile(profile))
        iface.disconnect()  # Desconectar inmediatamente
 
        # Obtener la contraseña
        password = profile.akm[0] if profile.akm else "La contraseña está vacía"
        wifi_passwords[ssid] = password
 
    return wifi_passwords
 
def save_to_file(wifi_passwords):
    """Guarda las contraseñas de Wi-Fi en un archivo de texto."""
    computer_name = os.environ['COMPUTERNAME']
    log_file = f'Wifi_Passwords_on_{computer_name}.txt'
 
    with open(log_file, 'w') as f:
        f.write("***********************************************\n")
        f.write(f"Contraseñas de Wi-Fi en {computer_name}\n")
        f.write("***********************************************\n\n")
        for ssid, password in wifi_passwords.items():
            f.write(f"[SSID: {ssid}] => \"{password}\"\n")
 
    print(f"Contraseñas guardadas en {log_file}")
 
def main():
    wifi_passwords = get_wifi_passwords()
 
    for ssid, password in wifi_passwords.items():
        print(f"[SSID: {ssid}] => \"{password}\"")
 
    save_to_file(wifi_passwords)
 
if __name__ == "__main__":
    main()