Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- Title Lock
- set /p lk2=<lk2.dat
- cls
- set /p question=<q.dat
- cls
- set /p qanswer=<a.dat
- cls
- set /p dir=<dir.dat
- cls
- set /p password=<ps.dat
- cls
- if NOT exist lk.dat goto mdlk
- :mdlk1
- set /p forgotten=<lk.dat
- cls
- :menu
- cls
- echo Menu
- echo.
- echo 1) Make a new password
- echo 2) Unlock
- echo 3) Recover password
- set /p option=NUMBER:
- if %option%==1 goto mdpass1
- if %option%==2 goto unlock2
- if %option%==3 goto recover
- if exist ps.dat goto unlock1
- cls
- if %forgotten%==0 goto locked
- :mdpass
- cls
- echo Please set a password
- set/p password=
- pause
- echo %password% > ps.dat
- cls
- echo Your password is...
- echo %password%
- pause
- cls
- echo Set a directory to save files
- set /p dir=
- pause
- cls
- echo Your directory is...
- echo %dir%
- echo %dir% > dir.dat
- pause
- :unlock1
- cd %dir%
- cls
- :unlock
- if %forgotten%==0 goto locked
- cls
- echo Please enter your password
- set /p pass=
- if NOT %pass%==%password% goto reminder
- cls
- goto unlocked
- :reminder
- cls
- set /a forgotten=%forgotten%-1
- echo %forgotten% > lk.dat
- cls
- echo If you forget your password %forgotten% more time
- echo This program will be locked
- pause
- goto unlock
- :unlocked
- cls
- echo Put any cmd code here
- pause
- exit
- :locked
- cls
- echo This program is locked
- pause
- exit
- :mdlk
- echo 10 > lk.dat
- goto mdlk1
- :mdpass1
- if exist ps.dat goto mdpass2
- goto mdpass
- :mdpass2
- cls
- echo You already have a password.
- echo.
- echo To make a new password please enter you old one
- echo.
- set /p oldpass=Old password:
- pause
- if NOT %oldpass%==%password% goto oldpassfail
- cls
- echo Please set a new password.
- set /p newpass=New password:
- pause
- cls
- echo Your new password is %newpass%
- set password=%newpass%
- set /a lk2=10
- set /a forgotten=10
- echo 10 > lk2.dat
- echo 10 > lk.dat
- pause
- goto menu
- :oldpassfail
- cls
- echo That's not you password
- pause
- goto menu
- :unlock2
- if exist ps.dat goto unlock1
- cls
- echo You do not have a password.
- echo Please make one before unlocking this
- pause
- goto menu
- :recover
- cls
- if NOT exist lk2.dat goto mdlk2
- if NOT exist q.dat goto mdrecover
- if %lk2%==0 goto locked2
- cls
- echo %question%
- set /p ans=
- if NOT %ans%==%qanswer% goto recoverfail
- cls
- echo Your password is %password%
- pause
- goto menu
- :mdrecover
- cls
- echo You do not have a recovery question.
- echo Please set one now.
- pause
- cls
- echo Enter a question
- set /p question=
- cls
- echo Answer this question
- echo.
- echo %question%
- set /p qanswer=
- pause
- cls
- echo Your question is
- echo %question%
- echo.
- echo Your answer is
- echo %qanswer%
- echo.
- pause
- echo %question% > q.dat
- echo %qanswer% > a.dat
- cls
- goto menu
- :recoverfail
- cls
- set /a lk2=%lk2%-1
- if %lk2%==0 goto locked2
- echo Wrong answer!
- echo %lk2% more fails and you will get locked out from this
- pause
- goto menu
- :mdlk2
- echo 10 > lk2.dat
- set /a lk2=10
- goto recover
- :locked2
- cls
- echo Recover password is locked!
- pause
- goto menu
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement