Senin, 30 Agustus 2010

MENGUNCI FLASHDISK DENGAN PASSWORD

--------------- code start here
on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject("Wscript.shell")
set fs=createobject("Scripting.FileSystemObject")
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject("wscript.shell")
do while quest=""
quest=inputbox("masukin passwordnya","ENTER PASS    ")
if quest=""then
m=msgBox("NO !!! ANDA HARUS MEMASUKAN PASSNYA", 10+10+48,"closing")
end if
loop
if quest="1234" then
sd.run winpath & "\explorer.exe /e,/select, " &  Wscript.ScriptFullname
else
s.run "shutdown -s -t 1"
end if
--------------- code end here
 copy kemudian paste code tersebut dan simpan dengan nama pass.vbs (bukan txt !)

*keterangan = untuk password 1234 bisa diganti sesuka anda.





pada saat  memasukan password seperti ini 
<>jangan sampe salah klo gak bisa
shutdown tuh komputer wkwkwkwkw


untuk menyimpan nya di flashdisk buat file autorun.inf

---- code autorun.inf>
[autorun]
open=pass.vbs
shellexecute=pass.vbs
<shell\open\command=pass.vbs<>
shell\explore\command=pass.vbs
---- end of code

simpan dengan nama autorun.inf (bukan txt ! )
 sekian dari saya .dan maaf klo cuma repost  (x_x)


***buat yang mau download aja DISINI