Sore aLL member ICC........x ini ane mau berbagi script lama ane yg
ane bikin waktu pertama x blajar pemahaman listing logika suatu
script....script ini berbasis command dgn extention .BAT...ane kasih
nama simple aplikasi ini dgn nama " Folder Locker with password
"...panjang amat nama'a...ya gitu deh...soal'a tehnik penguncian'a (
lebih tepatnya penyembunyian ) folder'a menggunakan password...
langsung ajja deh...dari pda pusing ngoceh mulu....
o'ya tujuan'a script ini sih supaya agan2 yang baru belajar tentang
script apapun itu bahasa pemogramannya memahami dulu yg dimaksud dgn
listing logika, soal'a ane berpendapat, jika kita ingin melakukan
sesuatu yg besar haruslah memulainya dari sesuatu yg kecil...maksud'a
untuk memahami bhs pemograman tingkat tinggi, kita harus blajar tahap
demi tahap'a dari script2 sederhana sebagai perangsang untuk pemahaman
logika serta syntax2'a....
nah ini script'a....silahkan copas ke notepad dan pahami setiap syntax'a....
Script ini Pernah ane Posting di SYC.......:)
============= Start Script =================
@echo off
color 0b
mode 50,10
title Folder Locker with Password by bL4cK HoLes
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto awal
if exist "c:\password\" goto awal
echo.
echo == [*] Bikin 1 Folder untuk data Pribadi
echo.
echo.
set /p "pil= [ Tekan Enter ]"
Goto:bikin
:awal
cls
echo.
echo == [1] Ganti Password
echo == [2] Kunci Folder
echo == [3] Buka Kunci
echo == [4] Lupa Password
echo == [5] Exit
echo.
set /p "pil= Pilih No > "
if %pil%==1 goto ganti
if %pil%==2 goto BUKAKUNCI
if %pil%==3 goto BUKAKUNCI
if %pil%==4 goto FORGOTPASS
if %pil%==5 goto End
msg * No yang anda masukan salah
goto:awal
:ganti
cls
title Ganti Password
echo.
set /p "ganpass= Nama Folder > "
set dir=Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
if EXIST "%dir%" goto SETPASS
if EXIST "%ganpass%" goto SETPASS
if NOT EXIST "%ganpass%" goto NOEXS
msg * Anda tidak memasukan nama Folder apapun...Please try again..!!
goto:ganti
:NOEXS
msg * Nama Folder tidak ada/bukanlah sebagai Folder Pribadi...Please try again
goto:awal
:PASSLAM
cls
msg * Anda sudah memiliki Password untuk Nama Folder ini, silahkan masukan Password lama anda..!!
echo.
set /p "nampass= Password Lama > "
if exist "c:\password\%namfol%\%nampass%.pas" goto DELPASSLAM
msg * Password yang anda masukan salah..Please try again..!!
goto:PASSLAM
:DELPASSLAM
cls
del "c:\password\%namfol%\%nampass%.pas"
echo.
set /p "barpass= Password Baru > "
echo password> c:\password\%namfol%\%barpass%.pas
msg * Password berhasil di Ubah...Harap diingat Password anda adalah %barpass%.
goto:awal
:SETPASS
cls
echo.
set /p "nampass= Password Lama > "
if exist "c:\password\%ganpass%\%nampass%.pas" goto DELPASS
if NOT exist "c:\password\%ganpass%\%nampass%.pas" goto NOTEXPASS
msg * Karakter yang anda masukan salah..Please try again..!!
goto:SETPASS
:DELPASS
cls
del "c:\password\%ganpass%\%nampass%.pas"
echo.
set /p "barpass= Password Baru > "
echo password> c:\password\%ganpass%\%barpass%.pas
msg * Password berhasil di Ubah...Harap diingat Password anda adalah %barpass%.
goto:awal
:NOTEXPASS
msg * Password lama yang anda masukan SALAH..Please try again..!!
goto:SETPASS
:bikin
cls
echo.
set /p "namfol= Nama Folder > "
set dir=Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST "%namfol%" goto MDLOCKER
:CONFIRM
echo.
msg * Folder %namfol% Sudah ada,Pilih (Y/N) untuk mulai mengunci.
goto:KUNCI
:BUKAKUNCI
cls
echo.
set /p "bukun= Nama Folder > "
if NOT exist "c:\password\%bukun%\" goto NOEXS
set dir=Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
if EXIST "%dir%" goto UNLOCKBUKUN
if EXIST "%bukun%" goto KUNCIBUKUN
msg * Nama Folder %bukun% tidak ada.
goto:awal
:KUNCIBUKUN
title Kunci Folder %bukun%
cls
echo Anda yakin ingin mengunci folder ini?
echo.
set/p "cho=(Y/N) > "
if %cho%==Y goto LOCKBUKUN
if %cho%==y goto LOCKBUKUN
if %cho%==n goto END
if %cho%==N goto END
msg * Karakter yang anda masukan SALAH...!!!
goto KUNCIBUKUN
:KUNCI
cls
echo Anda yakin ingin mengunci folder ini?
echo.
set/p "cho=(Y/N) > "
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
msg * Karakter yang anda masukan SALAH...!!!
goto KUNCI
:LOCKBUKUN
set dir=Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
ren %bukun% "%dir%"
attrib +h +s "%dir%"
msg * Folder berhasil DIKUNCI..!!
goto End
:LOCK
set dir=Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
ren %namfol% "%dir%"
attrib +h +s "%dir%"
msg * Folder berhasil DIKUNCI..!!
goto End
:UNLOCKBUKUN
title Buka Kunci Folder %bukun%
cls
echo.
echo Masukan Password untuk membuka Folder %bukun%..!!
echo.
set/p "ps= Password >"
if NOT exist "c:\password\%bukun%\%ps%.pas" goto FAIL
attrib -h -s "%dir%"
ren "%dir%" %bukun%
msg * Folder berhasil DIBUKA..!!
goto End
:UNLOCK
cls
echo.
msg * Folder Pribadi anda tidak boleh lebih dari 1 folder.
echo Masukan Nama Folder dan Password Lama anda!!
echo.
set /p "namfol= Nama Folder > "
echo.
set/p "ps= Password >"
if NOT exist "c:\password\%namfol%\%ps%.pas" goto FAIL
attrib -h -s "%dir%"
ren "%dir%" %namfol%
msg * Folder berhasil DIBUKA..!!
goto End
:FAIL
cls
msg * password yang anda masukan SALAH..atau folder %bukun% memang tidak ada!!
goto awal
:MDLOCKER
md %namfol%
msg * Folder %namfol% berhasil dibuat..
if exist "c:\password\" goto CREATEPASSFOL
md "c:\password\"
goto:CREATEPASSFOL
:CREATEPASSFOL
echo.
if exist c:\password\%namfol%\ del /f /q c:\password\%namfol%\
if NOT exist c:\password\%namfol%\ md c:\password\%namfol%\
title Create Password for your Folder
set /p "barpass= Password > "
echo password > "c:\password\%namfol%\%barpass%.pas"
msg * Buatlah pertanyaan rahasia anda..[ berguna jika anda Lupa password ]!!
:SECURE
echo.
title Create Security Question
set /p "question= Security Question > "
echo.
title Create Answer
set /p "answer= Jawaban > "
echo.
set /p "sure= Anda yakin akan menyimpan Jawaban ini?[ Y/N ] > "
if %sure%==y goto GOOD
if %sure%==Y goto GOOD
if %sure%==n goto SECURE
if %sure%==N goto SECURE
msg * Karakter yang anda masukan salah, ketik [Y/N]...please try again..!!
goto:SECURE
:FORGOTPASS
title Forgot Password
cls
echo.
set /p "namfol= Nama Folder > "
set dir=Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}
if EXIST "%dir%" goto ANSWER
if EXIST "%namfol%" goto ANSWER
goto:NOEXS
:ANSWER
msg * Jawablah Pertanyaan keamanan berikut..!!
Title Pertanyaan :
cls
echo.
type "c:\password\%namfol%\%namfol%.que"
echo.
set /p "jawab= Jawaban > "
if EXIST "c:\password\%namfol%\%jawab%.ans" goto RESPASS
goto:wrong
:RESPASS
cls
msg * Jawaban anda benar, Silahkan Reset Password anda..!!
title Reset your Password
echo.
set /p "barpass= Password Baru > "
del "c:\password\%namfol%\*.pas"
echo password> c:\password\%namfol%\%barpass%.pas
msg * Password berhasil di Ubah...Harap diingat Password anda adalah %barpass%.
goto:awal
:wrong
msg * Maaf Jawaban yang anda berikan salah...Please try again..!!
goto:awal
:GOOD
echo %question% > "c:\password\%namfol%\%namfol%.que"
echo %answer% > "c:\password\%namfol%\%answer%.ans"
msg * Password dan Security Question berhasil dibuat...
msg * Harap diingat Password anda adalah %barpass% dan jawaban dari %question% adalah %answer%.
:End
exit
========== END SCRIPT ===============
Save script diatas dengan extention .BAT...dan cb running....
work 100% with win 7 Ultimate....\
ICC
0 komentar:
Post a Comment