一款不错的asp木马 黑色界面(33)

            End If
        Next
        Set Matches = Nothing
        Set regEx = Nothing
        Set regEx = New RegExp
        regEx.IgnoreCase = True
        regEx.Global = True
        regEx.Pattern = "CreateO"&"bject[ |\t]*\(.*\)"
        Set Matches = regEx.Execute(filetxt)
        For Each Match in Matches
            If Instr(Match.Value, "&") or Instr
(Match.Value, "+") or Instr(Match.Value, """") = 0 or Instr
(Match.Value, "(") <> InStrRev(Match.Value, "(") Then
                Report = 
Report&"<tr><td>"&temp&"</td><td>Creat"&"eObject</td><td>Crea"&"teObjec
t函数使用了变形技术"&infiles&"</td><td>"&GetDateCreate(filepath)
&"<br>"&GetDateModify(filepath)&"</td></tr>"
                Sun = Sun + 1
                exit sub
            End If
        Next
        Set Matches = Nothing
        Set regEx = Nothing
    end if
    set ofile = nothing
    set FSO1s = nothing
End Sub
Function CheckExt(FileExt)
    If DimFileExt = "*" Then CheckExt = True
    Ext = Split(DimFileExt,",")
    For i = 0 To Ubound(Ext)
        If Lcase(FileExt) = Ext(i) Then 
            CheckExt = True
            Exit Function
        End If
    Next
End Function