Secret File

@echo off
mode con: cols=80 lines=8
title Secret File / Version 2.0 / LeNarvalo
color 0A
: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 (
                exit
            )
        )

: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 (
                exit
            )
        )

: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 :eof
            ) else (
                exit
            )
        )

: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
)
attrib -h -s "%fnametodisclover%"
goto :start


:openfile
echo Veuillez entrer le mot de passe :
set /p mdp=
if "%mdp%" 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