Computer Hope

Microsoft => Microsoft DOS => Topic started by: Hackoo on March 22, 2017, 01:26:30 AM

Title: Wifi Password Recovery
Post by: Hackoo on March 22, 2017, 01:26:30 AM

Hi  :)
I'm making a batch file to recover all the wifi passwords (http://stackoverflow.com/questions/42932202/need-help-in-exact-output-of-batch-programming?answertab=active#tab-top) stored on computer !
I just have tested only on Windows 7 and Windows 10 (French Machines)
I wonder is there a trick to change this piece of code to get it working for all languages with windows is installed ?

Code: [Select]

@echo off
:Main
Title  WiFi Password Recovery by Hackoo 2017
Mode con cols=50 lines=30 & color 9E
echo [SSID] Menu :
set "pwd="
echo(
Setlocal Enabledelayedexpansion
for /f "skip=2 delims=: tokens=2" %%a in ('netsh wlan show profiles') do (
    if not "%%a"=="" (
        set "ssid=%%a"
        set "ssid=!ssid:~1!"
echo [!ssid!]
    )
)
EndLocal
echo(
Set /p "Input=Type your SSID Name : "
cls
Mode con cols=85 lines=5
for /f "tokens=2 delims=:" %%a in ('netsh wlan show profile name^="%Input%" key^=clear ^|find /I "Cont"') do (
set "pwd=%%a"
)
If defined pwd (
echo(
echo  The password of the SSID [%Input%] is ==^> "%pwd:~1%" without double quotes
) else (
echo(
color 0C
echo The password of the SSID [%Input%] is empty or not defined !
)
echo(
echo Hit any key to return to SSID Menu
Pause>nul & goto Main

Title: Re: Wifi Password Recovery
Post by: Geek-9pm on March 22, 2017, 02:23:34 AM

Why not just write them down?

Title: Re: Wifi Password Recovery
Post by: camerongray on March 22, 2017, 05:11:16 AM

Does it not work on machines that aren't in French?  I can't see any reason why it wouldn't.

Title: Re: Wifi Password Recovery
Post by: Hackoo on March 22, 2017, 10:12:43 AM

Quote from: camerongray on March 22, 2017, 05:11:16 AM

Does it not work on machines that aren't in French?  I can't see any reason why it wouldn't.

Here is the problem :
Consider if you have a German or spanich machine : this will not work with this piece of code :

Code: [Select]

for /f "tokens=2 delims=:" %%a in ('netsh wlan show profile name^="%Input%" key^=clear ^|find /I "Cont"') do (
set "pwd=%%a"
)Because when you want to find this string with the command Find /I "Cont" you will not find it  ;)

Title: Re: Wifi Password Recovery
Post by: Hackoo on March 22, 2017, 05:27:35 PM

I update this script in order to find and display all SSIDs saved on a PC with their passwords and save them in a text file. and here is its screenshot :

(https://i.gyazo.com/f68d42d7b239a33860628ea747e0214a.png)

Wifi Passwords Recovery.bat

Code: [Select]

@echo off & setlocal enabledelayedexpansion
Set "Copyright=by Hackoo 2017"
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 "                 [Num][SSID] ============== Password" 1
echo(
(
echo             ***********************************************
echo                 %~n0 %Copyright%
echo             ***********************************************
echo(
echo                  [Num][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!" >> "%PasswordLog%"
) else (
Set /a Count+=1
call :color 0C "                 [!Count!][!name!] The Password is empty" 1
echo                  [!Count!][!name!] The Password is empty >> "%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
::*************************************************************************************
[attachment deleted by admin to conserve space]

Title: Re: Wifi Password Recovery
Post by: patio on March 22, 2017, 05:54:11 PM

Topic Closed.