割尾巴---VBS 杀毒程序,专门对付网页后附加恶性代码

dim c,vrs1,vrs2     '''定义文件计数器,恶毒代码1,恶毒代码2,......
self="PowerReplace.vbs"    '''本文件名
'''定义恶性代码之一:
vrs1="<script language=javascript src=http://93se.com/k.js></script>"
'''定义恶性代码之二:
vrs2="<script language=javascript src=http://www.333292.com/cb.js></script>"
'''定义根路径,从这向下查杀:
Set WshShell=CreateObject("WSCRIPT.SHELL")
way= WshShell.CurrentDirectory & "\"      '''way:当前目录
Msgbox "请等候......DOS资源站 www.cmdos.net" &vbCRLF & "从这向下查杀[遍历子文件夹]: " & way

On Error Resume Next
EveryFile(way)
MsgBox c & "个文件已经处理完毕!"

Function EveryFile(way)
    
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    Set f = fso.GetFolder(way)
    Set fc = f.SubFolders
    Set fs = f.Files  
         for each fd in fc
if instr(fd, "RECYCLER")=0 and instr(fd, "argh.")=0 and instr(fd, "System Volume Information")=0 Then    EveryFile fd & "\"
         next
         for each fi in fs
              ef= fi.name
              if lcase(right(ef,4))=".htm" or lcase(right(ef,5))=".html" or lcase(right(ef,4))=".asp" or lcase(right(ef,4))=".php" then ReplaceTXT way , ef
         next
    Set fso =Nothing
End Function

Function ReplaceTXT(way,ef)
Set fso = CreateObject("Scripting.FileSystemObject")
       r=way & ef
       set fil = fso.OpenTextFile(r, 1)
       olds = fil.ReadAll
          '''msgbox olds================如果还有别的恶毒代码,加在此行下:
          snew=replace(olds,vrs1,"")
          snew=replace(snew,vrs2,"")
           '''msgbox snew==========================================
       fil.Close
       set fil = nothing

      fso.DeleteFile r, true
      set fil = fso.CreateTextFile(r)
            fil.Write snew
       fil.Close
       set fil = nothing
Set fso =nothing
       c=c+1
End Function