@echo off
title F.O.L.D.E.R Locker v2.50
color 0C
Set Recy=Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}
SET REGS=software\microsoft\windows\currentversion\explorer\advanced
CLS

:REGISTRY
REG ADD "HKCU\%REGS%" /V ShowSuperHidden /T reg_dword /D 0 /F>nul
REG ADD "HKCU\%REGS%" /V HideFileExt /T reg_dword /D 1 /F>nul
REG ADD "HKCR\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}" /V NeverShowExt /T REG_DWORD /D 1 /F>nul
REG ADD "HKLM\%REGS%\folder\HideFileExt" /v "WarningIfNotDefault" /t reg_sz /d "Please do not change this option. Continue Anyway ?" /f>nul

if not exist readme.txt (
Echo __________________________________ >>readme.txt
Echo           Folder Locker >>readme.txt
Echo               V 2.50 >>readme.txt
Echo __________________________________ >>readme.txt
Echo. >>readme.txt
Echo Main features : >>readme.txt
Echo   * Change Password Ability >>readme.txt
Echo   * Hidden Password Input [XP Only] >>readme.txt
Echo   * New User Interface >>readme.txt
Echo   * User Report Function >>readme.txt
Echo   * Registry Manipulation >>readme.txt
Echo   * Clear Recent Files >>readme.txt
Echo   * Portable Application >>readme.txt
Echo __________________________________ >>readme.txt
Attrib +r readme.txt )
del "%userprofile%\recent\*.*" /f /q>nul
cls

:CHECKING
if EXIST "%Recy%" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER

:CONFIRM
CLS
Echo.
Echo __________________________________
Echo          Folder Locker
Echo             V 2.50
Echo __________________________________
Echo __________________________________
Echo             Main Menu
Echo __________________________________
Echo        1. Lock the Folder
Echo        2. Change Password
Echo        3. Read Report
Echo        4. About
Echo        5. Exit
Echo.
set/p "cho=       Enter Your Choice : "
if %cho%==1 goto LOCK
if %cho%==2 goto Encr
if %cho%==3 goto READ
if %cho%==4 Goto ABOUT
if %cho%==5 Exit
msg "%username%" /time:2 "Invalid Choice... Try Again..."
goto CONFIRM

:LOCK
Cd Locker
Attrib -s -h -r locker.dat
for /f "tokens=*" %%a in (locker.dat) do set %%a
Set user=%abc%
Set pawd=%xyz%
Attrib +s +h +r locker.dat
Cd..
if not exist log.txt Echo User Report: >>log.txt
attrib -s -h -r log.txt
echo ____________________________________________________________________________ >>log.txt
echo Name   : %user% >>log.txt
echo Date   : %date% >>log.txt
ECHO Time   : %TIME% >>log.txt
echo Status : Lock >>log.txt
ren Locker "%Recy%">nul
attrib +h +s +r "%Recy%"
if exist "Locker" goto EROR
attrib +s +h +r log.txt
msg "%username%" /time:2 "Folder Locked"
goto End

:UNLOCK
Cd "%Recy%"
Attrib -s -h -r "locker.dat"
for /f "tokens=*" %%a in (locker.dat) do set %%a
Set user=%abc%
Set pawd=%xyz%
Attrib +s +h +r "locker.dat"
Cd..
If "%pawd%"=="" goto Encr
If not "%SystemRoot%"=="%SystemDrive%\WINDOWS" goto ALTERN
If exist "%temp%\locker.vbs" del /a /f "%temp%\locker.vbs"
Echo WScript.Echo CreateObject("ScriptPW.Password").GetPassword()>"%temp%\locker.vbs"
Attrib +s +h +r "%temp%\locker.vbs"
CLS
Echo.
Echo __________________________________
Echo.
Echo          Folder Locker
Echo             V 2.50
Echo __________________________________
Echo.

Echo Enter Password to UNLOCK FOLDER :
For /f "tokens=*" %%p in ('cscript.exe /nologo "%temp%\locker.vbs"') do set pass=%%p
If exist "%temp%\locker.vbs" del /a /f "%temp%\locker.vbs"
If /i "%pass%"=="%pawd%" (
Msg "%username%" "Please do not cheating..."
Exit)
Goto Decr

:ALTERN
Cls
Echo.
Echo __________________________________
Echo.
Echo          Folder Locker
Echo             V 2.50
Echo __________________________________
Echo.
Set /p "pass=Enter Password to UNLOCK FOLDER : "
If /i "%pass%"=="%pawd%" (
Msg "%username%" "Please do not cheating..."
Exit)
Goto Decr

:Next1
if /i not "%pass%"=="%pawd%" goto FAIL
Echo Please Wait. Now Loading...
attrib -h -s -r "%Recy%"
ren "%Recy%" Locker
if not exist log.txt Echo User Report:>log.txt
attrib -s -h -r log.txt
echo ____________________________________________________________________________ >>log.txt
echo Name   : %user% >>log.txt
echo Date   : %date% >>log.txt
echo Time   : %TIME% >>log.txt
echo Status : Open >>log.txt
attrib +s +h +r log.txt
msg "%username%" /time:2 "Folder Unlocked Successfully..."
explorer.exe "locker"
goto End

:FAIL
if not exist log.txt Echo User Report:>log.txt
attrib -s -h -r log.txt
echo ____________________________________________________________________________ >>log.txt
echo Name     : %username% >>log.txt
echo Date     : %date% >>log.txt
ECHO Time     : %TIME% >>log.txt
echo Status   : Invalid Password >>log.txt
echo Password : %pass% >>log.txt
attrib +s +h +r log.txt
set pass=
msg "%username%" /time:2 "Invalid Password..."
Goto UNLOCK

:ABOUT
Cls
type readme.txt
Pause>nul
Goto CONFIRM

:MDLOCKER
md Locker
If not exist log.txt Echo User Report:>log.txt
attrib -s -h -r log.txt
echo ____________________________________________________________________________ >>log.txt
echo Date     : %date% >>log.txt
ECHO Time     : %TIME% >>log.txt
echo Status   : Locker Created >>log.txt
attrib +s +h +r log.txt
msg "%username%" /time:2 "Locker Created Successfully"
if not exist "Locker\desktop.ini" (
echo [.ShellClassInfo]>"Locker\desktop.ini"
Echo CLSID={645FF040-5081-101B-9F08-00AA002F954E}>>"Locker\desktop.ini"
Attrib +s +h +r "Locker\desktop.ini")
goto Encr

:EROR
Echo Warning : Locked Error >>log.txt
attrib +s +h +r log.txt
msg "%username%" "Warning! Cannot lock Folder. It may be used by another application. Save your data and close all application. Thus, Try Again..."
goto End

:READ
start /wait notepad.exe log.txt
Goto CONFIRM

:Encr
Cls
Echo.
Echo __________________________________
Echo.
Echo          Folder Locker
Echo             V 2.50
Echo __________________________________
Echo.
Set /p "user=Enter Your Name : "
Set /p "pawd=Enter Your New Password : "
Set pawd=%pawd:x=x24/%
Set pawd=%pawd:z=x26/%
Set pawd=%pawd:a=x1/%
Set pawd=%pawd:b=x2/%
Set pawd=%pawd:c=x3/%
Set pawd=%pawd:d=x4/%
Set pawd=%pawd:e=x5/%
Set pawd=%pawd:f=x6/%
Set pawd=%pawd:g=x7/%
Set pawd=%pawd:h=x8/%
Set pawd=%pawd:i=x9/%
Set pawd=%pawd:j=x10/%
Set pawd=%pawd:k=x11/%
Set pawd=%pawd:l=x12/%
Set pawd=%pawd:m=x13/%
Set pawd=%pawd:n=x14/%
Set pawd=%pawd:o=x15/%
Set pawd=%pawd:p=x16/%
Set pawd=%pawd:q=x17/%
Set pawd=%pawd:r=x18/%
Set pawd=%pawd:s=x19/%
Set pawd=%pawd:t=x20/%
Set pawd=%pawd:u=x21/%
Set pawd=%pawd:v=x22/%
Set pawd=%pawd:w=x23/%
Set pawd=%pawd:y=x25/%
Set pawd=%pawd: =x27/%
Set pawd=%pawd:-=x28/%
Set pawd=%pawd:1=za/%
Set pawd=%pawd:2=zb/%
Set pawd=%pawd:3=zc/%
Set pawd=%pawd:4=zd/%
Set pawd=%pawd:5=ze/%
Set pawd=%pawd:6=zf/%
Set pawd=%pawd:7=zg/%
Set pawd=%pawd:8=zh/%
Set pawd=%pawd:9=zi/%
Set pawd=%pawd:0=zj/%

If exist "Locker" (
If exist "Locker\locker.dat" Attrib -s -h -r "Locker\locker.dat"
Echo abc=%user%>locker\locker.dat
Echo xyz=%pawd%>>locker\locker.dat
Attrib +s +h +r "Locker\locker.dat")
If exist "%Recy%" (
If exist "%Recy%\locker.dat" Attrib -s -h -r "%Recy%\locker.dat"
Echo abc=%user%>"%Recy%\locker.dat"
Echo xyz=%pawd%>>"%Recy%\locker.dat"
Attrib +s +h +r "%Recy%\locker.dat"
Exit)
msg "%username%" /time:2 "Hey, %user%! Your New Password Successfully Created"
Goto CONFIRM

:Decr
Set pawd=%pawd:za/=1%
Set pawd=%pawd:zb/=2%
Set pawd=%pawd:zc/=3%
Set pawd=%pawd:zd/=4%
Set pawd=%pawd:ze/=5%
Set pawd=%pawd:zf/=6%
Set pawd=%pawd:zg/=7%
Set pawd=%pawd:zh/=8%
Set pawd=%pawd:zi/=9%
Set pawd=%pawd:zj/=0%
Set pawd=%pawd:x1/=a%
Set pawd=%pawd:x2/=b%
Set pawd=%pawd:x3/=c%
Set pawd=%pawd:x4/=d%
Set pawd=%pawd:x5/=e%
Set pawd=%pawd:x6/=f%
Set pawd=%pawd:x7/=g%
Set pawd=%pawd:x8/=h%
Set pawd=%pawd:x9/=i%
Set pawd=%pawd:x10/=j%
Set pawd=%pawd:x11/=k%
Set pawd=%pawd:x12/=l%
Set pawd=%pawd:x13/=m%
Set pawd=%pawd:x14/=n%
Set pawd=%pawd:x15/=o%
Set pawd=%pawd:x16/=p%
Set pawd=%pawd:x17/=q%
Set pawd=%pawd:x18/=r%
Set pawd=%pawd:x19/=s%
Set pawd=%pawd:x20/=t%
Set pawd=%pawd:x21/=u%
Set pawd=%pawd:x22/=v%
Set pawd=%pawd:x23/=w%
Set pawd=%pawd:x25/=y%
Set pawd=%pawd:x27/= %
Set pawd=%pawd:x28/=-%
Set pawd=%pawd:x26/=z%
Set pawd=%pawd:x24/=x%
Goto Next1

:End
Exit