Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- color c
- title SC FolderLock v0.1
- echo Membuat sebuah folder bernama Personal
- echo yang bersifat pribadi bisa dikunci
- pause.
- cls
- title Verifikasi - SC FolderLock v0.1
- echo Verifikasi ...
- if exist "Personal" goto lock
- if exist "Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto startopen
- echo.
- echo Vefifikasi selesai
- pause.
- cls
- :nokey
- echo.
- echo Kunci/KEY belum ada
- echo menuju proses pembuatan key
- pause.
- cls
- goto makepass
- :makepass
- color 2
- title Buat password - SC FolderLock v0.1
- echo Masukkan password (satu kata saja, tanpa spasi)
- set /p kunci1=
- echo.
- echo Ulangi password
- set /p kunci2=
- echo.
- if %kunci1%==%kunci2% goto pre
- echo ERROR! password ndak sama
- pause
- goto makepass
- :pre
- echo Menyimpan ...
- echo %kunci2% > key.sc
- attrib +s +h key.sc
- echo Membuat Folder ...
- md Personal
- cd Personal
- start. Personal
- cls
- goto eof
- :lock
- title SC FolderLock v0.1
- echo.
- echo Folder akan dikunci
- if not exist "key.sc" goto nokey
- pause.
- echo Mengunci ...
- ren Personal Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D}
- if errorlevel 1 goto halt
- attrib +s +h Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D}
- echo selesai mengunci
- pause.
- cls
- goto eof
- :startopen
- color 2
- title SC FolderLock v0.1
- echo.
- echo.
- if not exist "key.sc" goto makepass
- set /p key=<key.sc
- echo Masukkan password
- set /p input=
- if %input%==%key% goto open
- cls
- goto error
- :error
- color c
- echo.
- echo Password salah, ulangi lagi? (y/n)
- set /p opsi=
- if %opsi%==Y goto ulang
- if %opsi%==y goto ulang
- if %opsi%==N goto eof
- if %opsi%==n goto eof
- goto eof
- :ulang
- set /p key=<key.sc
- echo Masukkan password (kesempatan terakhir)
- set /p input=
- if %input%==%key% goto open
- cls
- msg %username% anda ndak punya hak untuk membuka folder pribadi
- goto eof
- :open
- attrib -s -h Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D}
- ren Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D} Personal
- cls
- goto eof
- :halt
- msg %username% ndak bisa mengunci folder, tutup dulu semua file yg terbuka
- goto eof
- :eof
- exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement