PONER CONTRASEÑA A UNA CARPETA EN WINDOWS (SIN PROGRAMA)

Sdílet
Vložit
  • čas přidán 24. 08. 2024

Komentáře • 1

  • @Nestorpuri
    @Nestorpuri  Před 2 lety

    Código:
    --------------------------------
    ECHO OFF
    color 1e
    cls
    if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
    if NOT EXIST Privado goto MDLOCKER
    :CONFIRM
    set/p "cho=Estas seguro que queres bloquear la carpeta (s/n)? "
    if %cho%==S goto LOCK
    if %cho%==s goto LOCK
    if %cho%==n goto END
    if %cho%==N goto END
    echo Eleccion Invalida
    pause
    cls
    goto CONFIRM
    :LOCK
    ren Privado "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
    attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
    msg * Se ha bloqueado la carpeta
    goto End
    :UNLOCK
    set /p "pass=Escriba la clave para desbloquear "
    if NOT %pass%==CZcams goto FAIL
    attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
    ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Privado
    msg * Acceso permitido
    goto End
    :FAIL
    msg * Clave incorrecta, vuelva a intentarlo
    goto UNLOCK2
    :FAIL2
    echo Acceso denegado, reinicie el programa
    goto end
    :MDLOCKER
    md Privado
    echo La carpeta se ha creado
    pause
    goto End
    :UNLOCK2
    echo Ultima Chance
    set /p "pass=Clave? "
    if not %pass%==nestorps goto FAIL2
    attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
    ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Privado
    msg * Desbloqueado