worm anti deletion untuk melindungi file

jika teman" mempunya file yang memang sangat rahasia atau takut ter-delete,maka jangan khawatir
anda bisa mengamankan file tersebut dengan memanfaatkan tehnik worm anti delete

- bukalah jendela notepad lalu anda tulis file kode virus tersebut

on error resume next
set
belajar=createObject("scripting.fileSystemObject")
set
semua=belajar.OpenTextFile("C:\datapenting.txt")
copian=semua=ReadAll
semua.close
do
wscript.sleep 100
if
belajar.fileExists("C:\datapenting.txt")false
then
set
balikin=belajar.CreateTextFile("C:\datapenting.txt")
balikin.write kopian
balikin.close
end if
loop

simpan kode tersebut dengan nama antidelete.vbs

akan saya terangkan sepenggal dari kode tersebut:

on error resume next
error handler/jika terjadi kesalahan lanjutkan ke perintah lain
set
belajar=createObject("scripting.fileSystemObject")
deklarasi system object
set
semua=belajar.OpenTextFile("C:\datapenting.txt")
berati file yang dilindungi adalah ("C:\datapenting.txt")
Nb: kalau pingin data di drive lain tinggal mengganti C: dedngan D:,or E:

copian=semua=ReadAll
baca isinya semua

wscript.sleep 100
tidur dulu ya

belajar.fileExists("C:\datapenting.txt")false
then
set
balikin=belajar.CreateTextFile("C:\datapenting.txt")
jika file tidak ada maka,buat file dengannama yang sama

segitu saja ya mudah-mudahan bermanfaat bagi kita semua.........