PERLINDUNGAN AMPUH FLASH DISK TANPA ANTI VIRUS USB
- Buka NOTEPAD anda
- Ketikkan Tulisan dibawah Ini :
Const LETTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"4. Setelah itu, Simpan Dengan nama apa saja namun dengan akhiran VBS, Contoh : AbdillahFauzan.vbs
CRLF = chr(13)+chr(10)
Set outputfileObject = CreateObject("Scripting.FileSystemObject")
Randomize
p = InputBox( _
"Masukkan huruf drive untuk dilindungi" + CRLF + "ketik aja contoh nya d"+CRLF+ _
+CRLF+ _
"ketik di bawah ini nih!!" + CRLF + "Bagus untuk di flahdisk bos", _
"Drive ?")
p = UCase(Left (p,1))
If InStr(LETTERS,p)=0 then
MsgBox "Masukan na salah bro!"+CRLF+CRLF+"Wrong input!"
Stop
End If
MsgBox "Sedang di proses bos " + p + ":" + CRLF + CRLF + _
"Will now process drive " + p + ":"
On Error Resume Next
p = p+":\autorun.inf"
If not outputfileObject.FolderExists(p) then outputfileObject.CreateFolder(p)
p = p + "\locker" + CStr(Int (Rnd*1000)) + " . \"
outputfileObject.CreateFolder(p)
Err.Clear
If outputfileObject.FolderExists(p) then
MsgBox "Selesai. Proteksi udah dibuat." + CRLF + CRLF + _
"Done. Protection ud di jalanin bro!!. AbdillahFauzan"
else
MsgBox "Gagal! ada yg salah !!" + CRLF + CRLF + _
"Failed! An error happened!"
End If
Set soulstealer = CreateObject("WScript.Shell")
soulstealer.run "attrib +s +h autorun.inf"
set soulstealer = nothing
5. Kemudian buka file tadi (Catatan : Setelah diberi tambahan vbs maka file notepad anda akan berubah jenis dan iconnya)
6. Lalu ikuti perintahnya setelah dibuka, yaitu : Masukkan huruf drive untuk dilindungi ketik aja contoh nya d ketik di bawah ini nih Bagus untuk di flahdisk bos
7. Sesudah Keluar perintah seperti pada nomor 6 masukkan huruf drive nya, misalkan F, G, H dsb lalu OK maka perlindungan pribadi anda selesai.
Selamat Mencoba
Edited by : Abdillah Fauzan
Baca Ke Sumber
Tidak ada komentar:
Posting Komentar