Cara Buat "Virus Nakal" untuk PC

Cara Buat "Virus Nakal" untuk PC

  19.39    Tuttutz Koerniawan

---

Kali ini gw mau bagi tentang Cara Buat "Virus Nakal" untuk PC ..!

sebelumnya kalian harus tau dulu apa itu virus, Kalian pasti pernah dengar kata virus kan?

Nha.. Vrius tuh parasit yang ukurannya mikroskopik yang menginfeksi sel organisme biologis. Virus bersifat parasit obligat, hal tersebut disebabkan karena virus hanya dapat bereproduksi di dalam material hidup dengan menginvasi dan memanfaatkan sel makhluk hidup. Hal itu dikarenakan virus tidak memiliki perlengkapan selular untuk bereproduksi sendiri. Virus mengandung sejumlah kecil asam nukleat (DNA atau RNA, tetapi tidak kombinasi keduanya) yang diselubungi semacam bahan pelindung yang terdiri atas protein, lipid, glikoprotein, atau kombinasi ketiganya (Hloo kokk palah jadi pelajaran biologi?)..hhahaha..

Tapi seenggak enggaknya kalian udah tau kan apa itu virus? 

Nha sekarang virus komputer, apa sih bedanya virus komputer ma virus biologis (sungguhan)? ya beda lahhh (dikit).. Neh gw kasih tau, Virus komputer tuh program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. Virus komputer juga bisa dianalogikan dengan virus biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke sel makhluk hidup. Virus komputer dapat merusak (misalnya dengan merusak data pada dokumen), membuat pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali. Gitu ceritanya..

Nha sekarang gw mw ngajak kalian buat “Virus Nakal", yang gak berbahaya tapi bisa buat ngerjain teman atau dosen/guru yang kita ngga suka, lagi galau di ruang labkom kampus, pusing ngga bisa maen facebook karena diblokir sama admin labkom, yah iseng2 buatin scripts .vbs. hhaha.. :D

Caranya: Buka notepad dan masukkan code berikut,

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

Kemudian simpanlah file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti. kerrenn kan? hhahahaaa.. :D

Satu satunya, ehh.. (bukan satu satunya ding, cuma gw gak tau cara lainya.. hhehee) cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap loe colokin ke kompie kampus, maka akan otomatis dijalankan “Virus Nakal" ini.

NB: kl males atau ga tau cara copasnya. download ajah linknya [disini]



Nah mau script .vbs yang laen lagi?


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 "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys ". "
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
wscript.sleep 5000
loop


Scripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? kabar baik?


ingat yah..! simpan dengan ekstensi nama .vbs, klik file–>save as !!

Kode Vbs ini akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq!”

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu emang jelak koq!"
loop

Dan membuat terus menerus menekan tombol “Enter”

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

Terus tekan "backspace"

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

Keren keran kan? pastinya..
Baru segitu yang gw tau. Lain kali kalo gw nemu lagi bakal gw share dah. :D