Secret File 3.2.3

@echo off
rem Style de la fenêtre DOS
mode con: cols=80 lines=8
title Secret File / Version 2.0 / LeNarvalo
color 0A

rem Modification de la base de registre pour ne pas voir les fichiers cachés systèmes (Valeurs par défaut : CheckedValue : 0; DefaultValue : 0; UncheckedValue : 1; ShowSuperHidden : 0)
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"  /v ShowSuperHidden /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden"  /v CheckedValue /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden"  /v DefaultValue /t REG_DWORD /d 0 /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden"  /v UncheckedValue /t REG_DWORD /d 0 /f
if errorlevel 1 ((echo Droit insuffisant, lancez le logiciel en tant qu'administrateur!)
 (timeout /t 10)
 (exit)
 ) else (
 (CLS)
 (echo Base de registre modifi‚e avec succŠs.))

:start
for /f "usebackq" %%f in (
    `mshta "javascript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject('WScript.Shell').PopUp('Voulez vous cacher un dossier?',0,'Cacher un dossier!',35));close();"`
        ) do (
            if "%%f"=="6" (
                rem YES
                mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Veuillez mettre votre fichier sur le bureau et inscrivez son nom dans la fenetre noire!', 120, 'Consigne', 0 );close()"
                goto :hide

            ) else if "%%f"=="7" (
                rem NO
                goto :open?
            ) else (
                goto :end
            )
        )

:hide
cls
echo Veuillez entrer le nom du fichier s'il vous plait :
set /p fname=
if not exist "%fname%" (
rundll32 user32.dll,MessageBeep
mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Fichier inconnu!', 10, 'Erreur', 64 );close()"
goto :hide
)
attrib +h +s "%fname%"

:open?
for /f "usebackq" %%f in (
    `mshta "javascript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject('WScript.Shell').PopUp('Voulez vous ouvrir un dossier cach‚?',0,'Ouvrir un dossier!',35));close();"`
        ) do (
            if "%%f"=="6" (
                rem YES
                mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Inscrivez le nom du dossier dans la fenetre noire!', 120, 'Consigne', 0 );close()"
                goto :open

            ) else if "%%f"=="7" (
                rem NO
                goto :decacher?
            ) else (
                goto :end
            )
        )

:open
cls
echo Veuillez entrer le nom du fichier s'il vous plait :
set /p fnametoopen=
if exist "%fnametoopen%" (
goto :openfile
) else (
rundll32 user32.dll,MessageBeep
mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Fichier inconnu!', 10, 'Erreur', 64 );close()"
goto :open
)

:decacher?
for /f "usebackq" %%f in (
    `mshta "javascript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject('WScript.Shell').PopUp('Voulez vous rendre visible un dossier cach‚?',0,'D‚voiler un dossier!',35));close();"`
        ) do (
            if "%%f"=="6" (
                rem YES
                mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Inscrivez le nom du dossier dans la fenetre noire!', 120, 'Consigne', 0 );close()"
                goto :decacher

            ) else if "%%f"=="7" (
                rem NO
                goto :end
            ) else (
                goto :end
            )
        )

:decacher
cls
echo Veuillez entrer le nom du fichier s'il vous plait :
set /p fnametodisclover=
if not exist "%fnametodisclover%" (
rundll32 user32.dll,MessageBeep
mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Fichier inconnu!', 10, 'Erreur', 64 );close()"
goto :decacher
)

:decacherfile
set "psCommand=powershell -Command "$pword = read-host 'Enter Password' -AsSecureString ; ^
    $BSTR=[System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($pword); ^
        [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR)""
for /f "usebackq delims=" %%p in (`%psCommand%`) do set password=%%p

if "%password%" NEQ "HackByLeNa" goto :wrong2

attrib -h -s "%fnametodisclover%"
goto :start

:wrong2
mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Mot de passe incorrect!', 1, 'Erreur', 64 );close()"
cls
goto :decacherfile


:openfile
set "psCommand=powershell -Command "$pword = read-host 'Enter Password' -AsSecureString ; ^
    $BSTR=[System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($pword); ^
        [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR)""
for /f "usebackq delims=" %%p in (`%psCommand%`) do set password=%%p

if "%password%" NEQ "HackByLeNa" goto :wrong

explorer %userprofile%\Desktop\"%fnametoopen%"
timeout /t 10
goto :decacher?

:wrong
mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Mot de passe incorrect!', 1, 'Erreur', 64 );close()"
cls
goto :openfile

:end
for /f "usebackq" %%f in (
    `mshta "javascript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject('WScript.Shell').PopUp('Voulez vous supprimer les modifications apport‚es … la base de registre? En choisissant [Oui] les dossiers cach‚s seront moins securis‚s!!!',0,'Base de registre!',36));close();"`
        ) do (
            if "%%f"=="6" (
                rem YES
                reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden"  /v UncheckedValue /t REG_DWORD /d 1 /f
            )
        )
mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Merci d\'avoir utiliser ce logiciel. Pour tout renseignement veuillez contacter : [email protected]', 120, 'Merci! =)', 0 );close()"
exit