cls
@ECHO OFF
title Folder qHoST
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST qHoST goto MDqHoST
:CONFIRM
echo Klasor kilitlenecek eminmisin?(E/H)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren qHoST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder qHoST
goto End
:UNLOCK
echo Kilidini Acmak icin Sifreyi Giriniz
set/p "pass=>"
if NOT %pass%== BURAYA İSTEDİĞİN ŞİFREYİ YAZ goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" qHoST
echo qHoST Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDqHoST
md qHoST
echo qHoST created successfully
goto End
:End
aRkadaşLaR bu kodu not defterine yapıştırıp farklı kaydetten uzantısını qHoST.bat yapın.
buradan sonra eger yeni klasör olusturmak istediyseniz.
en son olusturdugunuz msdos dosyasını (sonu bat ile biten)klasörün olusmasını istediginiz ( örnk: D:\ ) dizine kopyalayınız. daha sonra cift tıklayınız. size orada belirttiginiz isimde bir klasör olusturacaktır.
olusturulan klasörün icerisine sifrelemek istediginiz dosyaları kopyalayınız..
ve msdos dosyasına tekrar cift tıkladıgımızda karsımıza
Klasor kilitlenecek eminmisin?(E/H)
sorusu cıkacak Evet olarak cevaplamak icin E ye basıyoruz..
vede Klasor sifrelenip kayboluyor...daha sonra tekrar acmak istedigimizde bu msdos dosyasına tekrar cift tıkladıgımızda
Klasor Kilidini Acmak için yukarıda yazdığınız Sifreyi Giriniz yazısı cıkacak buraya belirttiginiz sifreyi girerek dosya tekrar görünür olacaktır...
olayın güzel tarafı klasör format atıldıktan sonra bile yine görünmez vede sifreli oluyor yani format bile cözüm olamıyor
(tabiki sistemin bulundugu yerdeki klasör degil D:\ sürücüsündeyse