Page 1 sur 1

Wifi Passwords Recovery by Hackoo

Posté : 06 févr. 2018 02:56
par Hackoo
Salut tout le monde ;)
Je vous présente ce petit utilitaire afin de retrouver et afficher tous les SSID enregistrés sur un PC avec leurs mots de passes et les sauvegarder dans un fichier texte Wifi Passwords Recovery.bat
Image

Code : Tout sélectionner

@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 "                 [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!" >> "%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
::*************************************************************************************

Re: Wifi Passwords Recovery by Hackoo

Posté : 06 mai 2018 18:24
par barnabe0057
Bonjour Hackoo,

Merci pour ton script, cependant je dois signaler un problème que j'ai rencontré :
chez un ami qui est chez Free, j'ai voulu récupérer son mot de passe wifi, mais je n'ai récupéré qu'une partie, j'imagine que c'est à cause des caractères spéciaux que Free a choisi, le mot de passe récupéré était tronqué.

Peut-être as-tu une petite modif à proposer ?

Re: Wifi Passwords Recovery by Hackoo

Posté : 28 oct. 2020 12:00
par Hackoo
Désolé pour la réponse très tardive ;)
En 2020, J'ai réalisé deux nouvelles versions l'une en vbscript et l'autre en HTA :
Version Vbscript + HTA : Wifi Passwords Recovery

Re: Wifi Passwords Recovery by Hackoo

Posté : 30 oct. 2020 07:22
par barnabe0057
Merci, mieux vaut tard que jamais :D

Re: Wifi Passwords Recovery by Hackoo

Posté : 30 oct. 2020 14:26
par Hackoo
barnabe0057 a écrit : 30 oct. 2020 07:22 Merci, mieux vaut tard que jamais :D
Très bien, donc j'attends votre réponse après le test ;)
s'il y a des remarques a ajouter ou bien des bugs !
@+

Re: Wifi Passwords Recovery by Hackoo

Posté : 02 déc. 2021 05:48
par bolens
le lien ci-dessus est cassé

Re: Wifi Passwords Recovery by Hackoo

Posté : 02 déc. 2021 19:30
par Hackoo
bolens a écrit : 02 déc. 2021 05:48 le lien ci-dessus est cassé
Quel lien ? :roll: :roll:
Poster le pour essayer de corriger sinon c'est un troll tout simplement, car je viens de re-vérifier et il marche 5/5 8-)