Advertisement
skeith

SC Folder Lock

Nov 18th, 2011
46
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 2.03 KB | None | 0 0
  1. @echo off
  2. color c
  3. title SC FolderLock v0.1
  4. echo Membuat sebuah folder bernama Personal
  5. echo yang bersifat pribadi bisa dikunci
  6. pause.
  7. cls
  8. title Verifikasi - SC FolderLock v0.1
  9. echo Verifikasi ...
  10. if exist "Personal" goto lock
  11. if exist "Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto startopen
  12. echo.
  13. echo Vefifikasi selesai
  14. pause.
  15. cls
  16.  
  17. :nokey
  18. echo.
  19. echo Kunci/KEY belum ada
  20. echo menuju proses pembuatan key
  21. pause.
  22. cls
  23. goto makepass
  24.  
  25. :makepass
  26. color 2
  27. title Buat password - SC FolderLock v0.1
  28. echo Masukkan password (satu kata saja, tanpa spasi)
  29. set /p kunci1=
  30. echo.
  31. echo Ulangi password
  32. set /p kunci2=
  33. echo.
  34. if %kunci1%==%kunci2% goto pre
  35. echo ERROR! password ndak sama
  36. pause
  37. goto makepass
  38.  
  39. :pre
  40. echo Menyimpan ...
  41. echo %kunci2% > key.sc
  42. attrib +s +h key.sc
  43. echo Membuat Folder ...
  44. md Personal
  45. cd Personal
  46. start. Personal
  47. cls
  48. goto eof
  49.  
  50. :lock
  51. title SC FolderLock v0.1
  52. echo.
  53. echo Folder akan dikunci
  54. if not exist "key.sc" goto nokey
  55. pause.
  56. echo Mengunci ...
  57. ren Personal Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D}
  58. if errorlevel 1 goto halt
  59. attrib +s +h Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D}
  60. echo selesai mengunci
  61. pause.
  62. cls
  63. goto eof
  64.  
  65.  
  66. :startopen
  67. color 2
  68. title SC FolderLock v0.1
  69. echo.
  70. echo.
  71. if not exist "key.sc" goto makepass
  72. set /p key=<key.sc
  73. echo Masukkan password
  74. set /p input=
  75. if %input%==%key% goto open
  76.  
  77.  
  78. cls
  79. goto error
  80.  
  81.  
  82. :error
  83. color c
  84. echo.
  85. echo Password salah, ulangi lagi? (y/n)
  86. set /p opsi=
  87. if %opsi%==Y goto ulang
  88. if %opsi%==y goto ulang
  89. if %opsi%==N goto eof
  90. if %opsi%==n goto eof
  91. goto eof
  92.  
  93. :ulang
  94. set /p key=<key.sc
  95. echo Masukkan password (kesempatan terakhir)
  96. set /p input=
  97. if %input%==%key% goto open
  98. cls
  99. msg %username% anda ndak punya hak untuk membuka folder pribadi
  100. goto eof
  101.  
  102.  
  103. :open
  104. attrib -s -h  Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D}
  105. ren Personal.{21EC2020-3AEA-1069-A2DD-08002B30309D} Personal
  106. cls
  107. goto eof
  108.  
  109. :halt
  110. msg %username% ndak bisa mengunci folder, tutup dulu semua file yg terbuka
  111. goto eof
  112.  
  113.  
  114. :eof
  115. exit
  116.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement