Bikin Folder Lock Sendiri

Beranda
Komunitas
Buat Latihan Posting
Bikin Folder Lock Sendiri
faid.alfarisi
24-04-2012 13:50
Ini dia gan, updet dari Folder Locker bikinan ane, dengan fitur ganti password & ganti nama folder, langsung aja gan, buka notepad n copass semua codenya, lalu save dengan extensi *.bat ...
Code:
@ECHO OFF

COLOR 1F

MODE 50,13

TITLE Folder Locker

SET "-=------------------------------------------------"

SET "A=%MyFiles%"

SET "B=C2F41D69-E2A7-5795-89E40080"

SET "C=D4E221D2-3A5B-1069-52DD0600"

SET "D=E65D24D8-98B5-68C0-BB820100"

SET "E=F89CDCE2-B7C3-28FF-A9FA0070"

SET "_=________________________________________________"

SET "T=* Tekan sembarang tombol untuk keluar."

SET "L=TITLE Folder Locker - ["

SET "IE=IF EXIST"

SET "INE=IF NOT EXIST"

%IE% "%A%\%B%" (

ATTRIB +H +S +A "%A%\%B%" >NUL

)

%IE% "%A%\%B%\%D%" (

FOR /F "TOKENS=*" %%F IN (%A%\%B%\%D%) DO SET "FD=%%F"

)

%IE% "%A%\%B%\%E%" (

FOR /F "TOKENS=*" %%S IN (%A%\%B%\%E%) DO SET "SN=%%S"

)

%IE% "%A%\%B%\%C%" GOTO:KONFIRMASI0

%INE% "%A%\%B%\%C%" GOTO:KONFIRMASI2

:KONFIRMASI0

%IE% "%A%\%B%\%E%" GOTO:KONFIRMASI1

%INE% "%A%\%B%\%E%" GOTO:SANDIBARU1

:KONFIRMASI1

%IE% "%A%\%B%\%C%" GOTO:KONFIRMASIBUKA

%INE% "%A%\%B%\%C%" GOTO:KONFIRMASIKUNCI

:KONFIRMASI2

%IE% "%FD%" GOTO:KONFIRMASI0

%INE% "%FD%" GOTO:BUAT

:BUAT

%L%BUAT FOLDER]

SET "PILIHAN="

CLS

ECHO. %_%

ECHO. ANDA YAKIN MAU MEMBUAT FOLDER BARU ?

ECHO. %-%

ECHO. * Tulis "YA" untuk membuat folder baru.

ECHO. * Tulis "TIDAK" untuk keluar.

ECHO. %_%

ECHO.

SET /P "PILIHAN=ÿ¯ "

IF NOT DEFINED PILIHAN (

ECHO.

ECHO. ¯ Pilihan Salah!!!

PAUSE>NUL

GOTO:BUAT

)

IF /I "%PILIHAN%"=="Y" GOTO:BUATNAMAFOLDER

IF /I "%PILIHAN%"=="YA" GOTO:BUATNAMAFOLDER

IF /I "%PILIHAN%"=="T" EXIT

IF /I "%PILIHAN%"=="TIDAK" EXIT

ECHO.

ECHO. ¯ Pilihan Salah!!!

PAUSE>NUL

CLS

GOTO:BUAT

:BUATNAMAFOLDER

SET "NAMAFOLDER="

CLS

ECHO. %_%

ECHO. TULIS NAMA UNTUK FOLDER BARU ANDA !!!

ECHO. %-%

ECHO.

SET /P "NAMAFOLDER=ÿ¯ "

IF DEFINED NAMAFOLDER GOTO:MEMBUAT

IF NOT DEFINED NAMAFOLDER (

ECHO.

ECHO. ¯ Nama Kosong!!!

PAUSE>NUL

GOTO:BUATNAMAFOLDER

)

:MEMBUAT

CLS

ECHO. %_%

ECHO. HARAP TUNGGU . . .

ECHO. %-%

%INE% "%A%\%B%" MD "%A%\%B%" >NUL

%IE% "%A%\%B%" ATTRIB +H +S +A "%A%\%B%" >NUL

%IE% "%NAMAFOLDER%" (

CLS

ECHO. %_%

ECHO. KESALAHAN !!!

ECHO. %-%

ECHO.

ECHO. * Gagal membuat folder.

ECHO.

ECHO. * Nama folder sudah ada.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

)

%INE% "%NAMAFOLDER%" MD "%NAMAFOLDER%" >NUL

%INE% "%NAMAFOLDER%" (

CLS

ECHO. %_%

ECHO. KESALAHAN !!!

ECHO. %-%

ECHO.

ECHO. * Gagal membuat folder.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

)

%IE% "%A%\%B%\%D%" (

ATTRIB -H -S -A "%A%\%B%\%D%" >NUL

DEL "%A%\%B%\%D%" >NUL

)

ECHO.%NAMAFOLDER%>"%A%\%B%\%D%"

%IE% "%A%\%B%\%D%" (

ATTRIB +H +S +A "%A%\%B%\%D%" >NUL

)

%INE% "%A%\%B%\%E%" (

CLS

ECHO. %_%

ECHO. BERHASIL !!!

ECHO. %-%

ECHO.

ECHO. * Folder baru berhasil dibuat.

ECHO.

ECHO. * Tekan sembarang tombol untuk menetapkan sandi.

PAUSE>NUL

GOTO:SANDIBARU1

)

CLS

ECHO. %_%

ECHO. BERHASIL !!!

ECHO. %-%

ECHO.

ECHO. * Folder baru berhasil dibuat.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

:KONFIRMASIKUNCI

%L%KUNCI FOLDER]

SET "PILIHAN="

CLS

ECHO. %_%

ECHO. ANDA YAKIN MAU MENGUNCI FOLDER ANDA ?

ECHO. %-%

ECHO. * Tulis "YA" untuk mengunci folder Anda.

ECHO. * Tulis "TIDAK" untuk keluar.

ECHO. * Tulis "UBAH" untuk mengubah nama folder Anda.

ECHO. * Tulis "GANTI" untuk mengganti sandi Anda.

ECHO. %_%

ECHO.

SET /P "PILIHAN=ÿ¯ "

IF NOT DEFINED PILIHAN (

ECHO.

ECHO. ¯ Pilihan Salah!!!

PAUSE>NUL

GOTO:KONFIRMASIKUNCI

)

IF /I "%PILIHAN%"=="Y" GOTO:MENGUNCI

IF /I "%PILIHAN%"=="YA" GOTO:MENGUNCI

IF /I "%PILIHAN%"=="T" EXIT

IF /I "%PILIHAN%"=="TIDAK" EXIT

IF /I "%PILIHAN%"=="G" GOTO:GANTISANDI1

IF /I "%PILIHAN%"=="GANTI" GOTO:GANTISANDI1

IF /I "%PILIHAN%"=="U" GOTO:UBAHNAMA

IF /I "%PILIHAN%"=="UBAH" GOTO:UBAHNAMA

ECHO.

ECHO. ¯ Pilihan Salah!!!

PAUSE>NUL

GOTO:KONFIRMASIKUNCI

:MENGUNCI

CLS

ECHO. %_%

ECHO. HARAP TUNGGU . . .

ECHO. %-%

%IE% "%A%\%B%\%C%" (

ATTRIB -H -S -A "%A%\%B%\%C%" >NUL

RD/S/Q "%A%\%B%\%C%" >NUL

)

%IE% "%FD%" MOVE "%FD%" "%A%\%B%\" >NUL

%IE% "%FD%" (

CLS

ECHO. %_%

ECHO. KESALAHAN !!!

ECHO. %-%

ECHO.

ECHO. * Gagal mengunci folder.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

)

%IE% "%A%\%B%\%FD%" REN "%A%\%B%\%FD%" "%C%" >NUL

%IE% "%A%\%B%\%C%" (

ATTRIB +H +S +A "%A%\%B%\%C%" >NUL

)

CLS

ECHO. %_%

ECHO. BERHASIL !!!

ECHO. %-%

ECHO.

ECHO. * Folder berhasil dikunci.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

:UBAHNAMA

%L%UBAH NAMA]

SET "NAMABARU="

CLS

ECHO. %_%

ECHO. TULIS NAMA BARU UNTUK FOLDER ANDA !!!

ECHO. %-%

ECHO.

SET /P "NAMABARU=ÿ¯ "

IF NOT DEFINED NAMABARU (

ECHO.

ECHO. ¯ Nama Kosong!!!

PAUSE>NUL

GOTO:UBAHNAMA

)

%IE% "%NAMABARU%" (

CLS

ECHO. %_%

ECHO. KESALAHAN !!!

ECHO. %-%

ECHO.

ECHO. * Gagal mengubah nama folder.

ECHO.

ECHO. * Nama folder sudah ada.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

)

%IE% "%FD%" REN "%FD%" "%NAMABARU%" >NUL

%INE% "%NAMABARU%" (

CLS

ECHO. %_%

ECHO. KESALAHAN !!!

ECHO. %-%

ECHO.

ECHO. * Gagal mengubah nama folder.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

)

%IE% "%A%\%B%\%D%" (

ATTRIB -H -S -A "%A%\%B%\%D%" >NUL

DEL "%A%\%B%\%D%" >NUL

)

ECHO.%NAMABARU%>"%A%\%B%\%D%"

%IE% "%A%\%B%\%D%" (

ATTRIB +H +S +A "%A%\%B%\%D%" >NUL

)

CLS

ECHO. %_%

ECHO. BERHASIL !!!

ECHO. %-%

ECHO.

ECHO. * Nama folder berhasil diubah.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

:BUATNAMA

%L%BUAT NAMA]

SET "NAMABARU="

CLS

ECHO. %_%

ECHO. NAMA FOLDER BELUM DITETAPKAN, TULIS NAMA BARU !!

ECHO. %-%

ECHO.

SET /P "NAMABARU=ÿ¯ "

IF NOT DEFINED NAMABARU (

ECHO.

ECHO. ¯ Nama Kosong!!!

PAUSE>NUL

GOTO:BUATNAMA

)

%INE% "%NAMABARU%" MD "%NAMABARU%" >NUL

%INE% "%NAMABARU%" (

CLS

ECHO. %_%

ECHO. KESALAHAN !!!

ECHO. %-%

ECHO.

ECHO. * Gagal membuat nama folder.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

)

%IE% "%NAMABARU%" RD "%NAMABARU%" >NUL

%IE% "%A%\%B%\%D%" (

ATTRIB -H -S -A "%A%\%B%\%D%" >NUL

DEL "%A%\%B%\%D%" >NUL

)

ECHO.%NAMABARU%>"%A%\%B%\%D%"

%IE% "%A%\%B%\%D%" (

ATTRIB +H +S +A "%A%\%B%\%D%" >NUL

)

GOTO:MEMBUKA

:GANTISANDI1

%L%GANTI SANDI]

SET "PASSWORD="

CLS

ECHO. %_%

ECHO. MASUKKAN SANDI !!!

ECHO. %-%

ECHO.

SET /P "PASSWORD=ÿ¯ Masukkan Sandi Lama : "

IF NOT DEFINED PASSWORD (

ECHO.

ECHO. ¯ Sandi Salah!!!

PAUSE>NUL

GOTO:GANTISANDI1

)

IF "%PASSWORD%"=="%SN%" GOTO:GANTISANDI2

ECHO.

ECHO. ¯ Sandi Salah!!!

PAUSE>NUL

GOTO:GANTISANDI1

:GANTISANDI2

SET "BARU1="

CLS

ECHO. %_%

ECHO. MASUKKAN SANDI BARU !!!

ECHO. %-%

ECHO.

ECHO. ¯ Masukkan Sandi Lama : OK

ECHO.

SET /P "BARU1=ÿ¯ Masukkan Sandi Baru : "

IF DEFINED BARU1 GOTO:GANTISANDI3

IF NOT DEFINED BARU1 (

ECHO.

ECHO. ¯ Sandi Kosong!!!

PAUSE>NUL

GOTO:GANTISANDI2

)

:GANTISANDI3

SET "BARU2="

CLS

ECHO. %_%

ECHO. KONFIRMASI SANDI BARU !!!

ECHO. %-%

ECHO.

ECHO. ¯ Masukkan Sandi Lama : OK

ECHO.

ECHO. ¯ Masukkan Sandi Baru : OK

ECHO.

SET /P "BARU2=ÿ¯ Konfirmasi Sandi : "

IF "%BARU2%"=="%BARU1%" GOTO:GANTISANDI4

IF NOT DEFINED BARU2 (

ECHO.

ECHO. ¯ Sandi Kosong!!!

PAUSE>NUL

GOTO:GANTISANDI3

)

IF NOT "%BARU2%"=="%BARU1%" (

ECHO.

ECHO. ¯ Sandi Salah!!!

PAUSE>NUL

GOTO:GANTISANDI2

)

:GANTISANDI4

%IE% "%A%\%B%\%E%" (

ATTRIB -H -S -A "%A%\%B%\%E%" >NUL

DEL "%A%\%B%\%E%" >NUL

ECHO.%BARU2%>"%A%\%B%\%E%"

)

%IE% "%A%\%B%\%E%" (

ATTRIB +H +S +A "%A%\%B%\%E%" >NUL

)

CLS

ECHO. %_%

ECHO. BERHASIL !!!

ECHO. %-%

ECHO.

ECHO. * Sandi berhasil diganti.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

:SANDIBARU1

%L%SANDI BARU]

SET "BARU1="

CLS

ECHO. %_%

ECHO. SANDI BELUM DITETAPKAN, BUAT SANDI BARU !!!

ECHO. %-%

ECHO.

SET /P "BARU1=ÿ¯ Masukkan Sandi Baru : "

IF DEFINED BARU1 GOTO:SANDIBARU2

IF NOT DEFINED BARU1 (

ECHO.

ECHO. ¯ Sandi Kosong!!!

PAUSE>NUL

GOTO:SANDIBARU1

)

:SANDIBARU2

SET "BARU2="

CLS

ECHO. %_%

ECHO. KONFIRMASI SANDI BARU !!!

ECHO. %-%

ECHO.

ECHO. ¯ Masukkan Sandi Baru : OK

ECHO.

SET /P "BARU2=ÿ¯ Konfirmasi Sandi : "

IF "%BARU2%"=="%BARU1%" GOTO:SANDIBARU3

IF NOT DEFINED BARU2 (

ECHO.

ECHO. ¯ Sandi Kosong!!!

PAUSE>NUL

GOTO:SANDIBARU2

)

IF NOT "%BARU2%"=="%BARU1%" (

ECHO.

ECHO. ¯ Sandi Salah!!!

PAUSE>NUL

GOTO:SANDIBARU1

)

:SANDIBARU3

%IE% "%A%\%B%\%E%" (

ATTRIB -H -S -A "%A%\%B%\%E%" >NUL

DEL "%A%\%B%\%E%" >NUL

)

ECHO.%BARU2%>"%A%\%B%\%E%"

%IE% "%A%\%B%\%E%" (

ATTRIB +H +S +A "%A%\%B%\%E%" >NUL

)

CLS

ECHO. %_%

ECHO. BERHASIL !!!

ECHO. %-%

ECHO.

ECHO. * Sandi baru berhasil ditetapkan.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

:KONFIRMASIBUKA

%L%BUKA FOLDER]

SET "PILIHAN="

CLS

ECHO. %_%

ECHO. ANDA YAKIN MAU MEMBUKA FOLDER ANDA ?

ECHO. %-%

ECHO. * Tulis "YA" untuk membuka folder Anda.

ECHO. * Tulis "TIDAK" untuk keluar.

ECHO. %_%

ECHO.

SET /P "PILIHAN=ÿ¯ "

IF NOT DEFINED PILIHAN (

ECHO.

ECHO. ¯ Pilihan Salah!!!

PAUSE>NUL

GOTO:KONFIRMASIBUKA

)

IF /I "%PILIHAN%"=="Y" GOTO:BUKA

IF /I "%PILIHAN%"=="YA" GOTO:BUKA

IF /I "%PILIHAN%"=="T" EXIT

IF /I "%PILIHAN%"=="TIDAK" EXIT

ECHO.

ECHO. ¯ Pilihan Salah!!!

PAUSE>NUL

GOTO:KONFIRMASIBUKA

:BUKA

SET "PASSWORD="

CLS

ECHO. %_%

ECHO. MASUKKAN SANDI !!!

ECHO. %-%

ECHO. Tulis "GANTI" untuk mengganti sandi Anda.

ECHO. %_%

ECHO.

SET /P "PASSWORD=ÿ¯ Masukkan Sandi : "

IF NOT DEFINED PASSWORD (

ECHO.

ECHO. ¯ Sandi Salah!!!

PAUSE>NUL

GOTO:BUKA

)

IF "%PASSWORD%"=="%SN%" GOTO:MEMBUKA

IF /I "%PASSWORD%"=="G" GOTO:GANTISANDI1

IF /I "%PASSWORD%"=="GANTI" GOTO:GANTISANDI1

ECHO.

ECHO. ¯ Sandi Salah!!!

PAUSE>NUL

GOTO:BUKA

:MEMBUKA

CLS

ECHO. %_%

ECHO. HARAP TUNGGU . . .

ECHO. %-%

%INE% "%A%\%B%\%D%" GOTO:BUATNAMA

%IE% "%A%\%B%\%D%" (

FOR /F "TOKENS=*" %%F IN (%A%\%B%\%D%) DO SET "FD=%%F"

)

%IE% "%FD%" (

CLS

ECHO. %_%

ECHO. KESALAHAN !!!

ECHO. %-%

ECHO.

ECHO. * Gagal membuka folder.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT

)

%IE% "%A%\%B%\%C%" (

ATTRIB -H -S -A "%A%\%B%\%C%" >NUL

REN "%A%\%B%\%C%" "%FD%" >NUL

)

%IE% "%A%\%B%\%FD%" MOVE "%A%\%B%\%FD%" ".\" >NUL

CLS

ECHO. %_%

ECHO. BERHASIL !!!

ECHO. %-%

ECHO.

ECHO. * Folder berhasil dibuka.

ECHO.

ECHO. %T%

PAUSE>NUL

EXIT
2.5K
Kutip
Balasan
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Urutan
Terbaru
Terlama
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Komunitas Pilihan