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

            If instr( filetxt, Lcase
("She"&DoMyBest&"ll.Application") ) or Instr( filetxt, Lcase
("clsid:13709620-C27"&DoMyBest&"9-11CE-A49E-444553540000") ) then
                Report = 
Report&"<tr><td>"&temp&"</td><td>She"&DoMyBest&"ll.Application 或者 
clsid:13709620-C27"&DoMyBest&"9-11CE-A49E-444553540000</td><td><font 
color=red>危险组件，一般被ASP木马利用
</font>"&infiles&"</td><td>"&GetDateCreate(filepath)
&"<br>"&GetDateModify(filepath)&"</td></tr>"
                Sun = Sun + 1
                temp="-=| 同上 |=-"
            End If
            Set regEx = New RegExp
            regEx.IgnoreCase = True
            regEx.Global = True
            regEx.Pattern = "\bLANGUAGE\s*=\s*[""]?\s*
(vbscript|jscript|javascript).encode\b"
            If regEx.Test(filetxt) Then
                Report = 
Report&"<tr><td>"&temp&"</td><td>
(vbscript|jscript|javascript).Encode</td><td><font color=red>似乎脚本被
加密了</font>"&infiles&"</td><td>"&GetDateCreate(filepath)
&"<br>"&GetDateModify(filepath)&"</td></tr>"
                Sun = Sun + 1
                temp="-=| 同上 |=-"
            End If
            regEx.Pattern = "\bEv"&"al\b"
            If regEx.Test(filetxt) Then
                Report = 
Report&"<tr><td>"&temp&"</td><td>Ev"&"al</td><td>e"&"val()函数可以执行
任意ASP代码<br>但是javascript代码中也可以使用，有可能是误