@echo off
title Internet Password-logger
color a
:MENU
cls
echo ================================
echo WiFi Network Menu
echo ================================
echo Listing all connected networks:
netsh wlan show profiles
echo ================================
set /p wifiname=Enter WiFi Name (SSID) or "all":

if /i "%wifiname%"=="all" (
cls
echo Running tree for visual effect...
tree
echo ================================
echo Displaying all networks and passwords:
del temp.txt >nul 2>&1
for /f "tokens=*" %%i in ('netsh wlan show profiles ^| findstr ":"') do (
for /f "tokens=2 delims=: " %%j in ("%%i") do (
call :showPassword "%%j"
)
)
echo ================================
echo All passwords have been copied to the clipboard.
type temp.txt | clip
del temp.txt >nul 2>&1
pause
goto MENU
) else (
cls
echo Running tree for visual effect...
tree
echo ================================
echo Retrieving password for "%wifiname%":
netsh wlan show profiles name="%wifiname%" key=clear | findstr "Key Content" > temp.txt
type temp.txt
type temp.txt | clip
del temp.txt >nul 2>&1
echo ================================
echo Password copied to clipboard.
pause
goto MENU
)

:showPassword
setlocal enabledelayedexpansion
set "profileName=%~1"
echo WiFi: !profileName! >> temp.txt
echo WiFi: !profileName!
netsh wlan show profile name="!profileName!" key=clear | findstr "Key Content" >> temp.txt
netsh wlan show profile name="!profileName!" key=clear | findstr "Key Content"
endlocal
exit /b