24/1/2009 - Dosya Şifreleme ( PROGRAMSIZ )

cls

@ECHO OFF
title Folder Kilitli
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Kilitli goto MDKilitli
:CONFIRM
echo Klasor kilitlensin mi?(e/h)
set/p "cho=>"

if %cho%==e goto LOCK
if %cho%==E goto LOCK
if %cho%==h goto END
if %cho%==H goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Kilitli "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Sifreyi giriniz:
set/p "pass=>"
if NOT %pass%== BURAYA ŞEFRE YAZILACAK goto FAIL

attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Kilitli
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password

goto end
:MDKilitli
md Kilitli
echo Locker created successfully
goto End
:End

 

2009-01-28 02:21:26 - uygulamada pürüz