Code:
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("Anda menggunakan flashdisk SAYA,,, Untuk mengakses data di flashdisk ini,,,,, HARAP MASUKAN PASSWORD,,,, WARNING! JIKA ANDA SALAH MEMASUKAN PASSWORD KOMPUTER AKAN MATI SECARA OTOMATIS","ProtectorGuard By Atem's Blog")
if quest="" then
m=MsgBox("ANDA BELUM MEMASUKAN PASSWORD")
end if
loop
if quest="TULIS PASSWORDMU DISINI" then
s.run "shutdown -a"
sd.run winpath & "\explorer.exe /e,/select,"& Wscript.ScriptFullname
else
s.run "shutdown -s -t 0"
end if
SAVE DENGAN NAMA "TERSERAH.vbs" tanpa tanda kutip
2. buka lagi notepad, copy paste lagi script dibawah
Code:
[Autorun]
shellexecute=wscript.exe NAMAFILE KAMU.vbs
action=FLASHDISK TELAH DIPASANG PASSWORD
simpan kode diatas dengan nama "autorun.inf" tanpa tanda kutip.
simpan kedua file diatas di flashdisk anda
kemudian buka cmd untuk membuatnya menjadi SUPERHIDDEN
BUKA DIREKTORY FLASHDISK ANDA
lalu ketikkan di cmd " attrib +h +s namafile.vbs " tanpa tanda kutip
lalu ketik perintah yang sama untuk autorun.inf ==> attrib +h +s autorun.inf
SEKARANG KEDUA FILE TERSEBUT SUDAH BERATTRIBUT SUPER HIDDEN
Tidak ada komentar:
Posting Komentar