雷客圖ASP站長(zhǎng)安全助手vbs測(cè)試版代碼

2020-07-26 12:05:14
字體：大中小
供稿：網(wǎng)友
雷客圖ASP站長(zhǎng)安全助手是一個(gè)基于ASP的幫助站長(zhǎng)維護(hù)網(wǎng)站安全的程序。這個(gè)版本（vbs測(cè)試版）主要用于服務(wù)器本地運(yùn)行以查找ASP木馬。此版本為測(cè)試版，希望大家提供反饋意見(jiàn)，謝謝。另，正式版將整合到雷客圖ASP站長(zhǎng)安全助手的下個(gè)版本。

使用說(shuō)明：

在命令提示符下：

#用法: CScript scan.vbs [掃描路徑] [結(jié)果HTM文件路徑]
#例子: CScript scan.vbs d:/Web f:/my/report.html
復(fù)制代碼代碼如下:
'----------------------- 
'Scan ASP WebShell in vbs 
'Author: lake2 (http://lake2.0x54.org) 
'Date:   2006-11-30 
'Version: 1.0 Beta 
'----------------------- 

DimFileExt = "asp,cer,asa,cdx" 
Dim Report, Report2, Sun, SumFiles, SumFolders 

Call ShowInfo() 
If WScript.Arguments.Count = 2 Then 
    Call CheckArg() 
    Sun = 0 
    SumFiles = 0 
    SumFolders = 1 
    If Right(WScript.Arguments.Item(0),1) = "/" Then 
        thePath = Mid(WScript.Arguments.Item(0),1,Len(WScript.Arguments.Item(0))-1) 
    Else 
        thePath = WScript.Arguments.Item(0) 
    End If 
    WScript.Echo "開(kāi)始掃描，請(qǐng)稍候……" 
    WScript.Sleep(1000) 
    StartTime = now() 
    Call ShowAllFile(thePath) 
    EndTime = now() 
    WScript.Echo vbcrlf & "掃描完成！" & vbcrlf 
    report2 = report2 & "<html><head><title>雷客圖 ASP 站長(zhǎng)安全助手vbs版掃描報(bào)告</title>" 
    report2 = report2 & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""></head>" 
    report2 = report2 & "<body><b><font size=4>雷客圖 ASP 站長(zhǎng)安全助手vbs版掃描報(bào)告</font></b><br><br>" 
    report2 = report2 & "<body><font size=2>開(kāi)始時(shí)間："&StartTime&"</font><br>" 
    report2 = report2 & "<body><font size=2>結(jié)束時(shí)間："&EndTime&"</font><br>" 
    report2 = report2 & "<font size=2>掃描完畢！一共檢查文件夾<font color=""#FF0000"">"&SumFolders&"</font>個(gè)，文件<font color=""#FF0000"">"&SumFiles&"</font>個(gè)，發(fā)現(xiàn)可疑點(diǎn)<font color=""#FF0000"">"&Sun&"</font>個(gè)（<font color=""#FF0000"">紅字</font>顯示的為嚴(yán)重可疑）</font><br/>" 
    report2 = report2 & "<table width=""100%"" border=""0"" style=""padding:5px;line-height:170%;clear:both;font-size:12px;word-break:break-all"">" 
    report2 = report2 & "<tr>" 
    report2 = report2 & "<td width=""20%"">文件路徑</td>" 
    report2 = report2 & "<td width=""20%"">特征碼</td>" 
    report2 = report2 & "<td width=""40%"">描述</td>" 
    report2 = report2 & "<td width=""20%"">創(chuàng)建/修改時(shí)間</td>" 
    report2 = report2 & "</tr>" 
    report2 = report2 & "<p>" 
    report2 = report2 & report 
    report2 = report2 & "</p>" 
    report2 = report2 & "</table><hr><script src=http://www.0x54.org/announce.js></script>" 
    report2 = report2 & "<div align=center>powered by <a href=""http://www.0x54.org"" target=_blank>0x54.org</a></div>" 
    report2 = report2 & "</body></html>" 
    Call WriteToFile() 
Else 
    Call ShowHelp() 
End If 

Sub ShowInfo() 
    HelpStr = HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf 
    HelpStr = HelpStr & "=====  歡迎使用雷客圖 ASP 站長(zhǎng)安全助手vbs版  =====" & vbcrlf 
    HelpStr = HelpStr & "=====           Author: lake2                =====" & vbcrlf 
    HelpStr = HelpStr & "=====       Email:lake2@mail.csdn.net        =====" & vbcrlf 
    HelpStr = HelpStr & "=====   歡迎訪問(wèn) www.0x54.org 得到更多信息   =====" & vbcrlf 
    HelpStr = HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf 
    HelpStr = HelpStr & vbcrlf 
    WScript.Echo HelpStr 
End Sub 

Sub ShowHelp() 
    HelpStr = HelpStr & "#用法: CScript scan.vbs [掃描路徑] [結(jié)果HTM文件路徑]" & vbcrlf 
    HelpStr = HelpStr & "#例子: CScript scan.vbs d:/Web f:/my/report.html" & vbcrlf 
    HelpStr = HelpStr & vbcrlf 
    WScript.Echo HelpStr 
End Sub 

Sub CheckArg() 
    tmpPath = Left(WScript.Arguments.Item(1), InStrRev(WScript.Arguments.Item(1),"/")-1) 
    Set objFSO = WScript.CreateObject ("Scripting.FileSystemObject") 
    If Not objFSO.FolderExists(WScript.Arguments.Item(0)) Then 
        WScript.Echo "Error：錯(cuò)誤的路徑“" & WScript.Arguments.Item(0) & "”！" 
        WScript.Quit 
    ElseIf Not objFSO.FolderExists(tmpPath) Then 
        WScript.Echo "Error：錯(cuò)誤的文件路徑“" & tmpPath & "”！" 
        WScript.Quit     
    End If 
    Set objFSO = Nothing 
End Sub 

'遍歷處理path及其子目錄所有文件 
Sub ShowAllFile(Path) 
    WScript.Echo "正在檢查目錄" & path 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set f = FSO.GetFolder(Path) 
    Set fc2 = f.files 
    For Each myfile in fc2 
        If CheckExt(FSO.GetExtensionName(path&"/"&myfile.name)) Then 
            'WScript.Echo "正在檢查文件" & path&"/"&myfile.name 
            Call ScanFile(Path&Temp&"/"&myfile.name, "") 
            SumFiles = SumFiles + 1 
        End If 
    Next 
    Set fc = f.SubFolders 
    For Each f1 in fc 
        ShowAllFile path&"/"&f1.name 
        SumFolders = SumFolders + 1 
        Next 
    Set FSO = Nothing 
End Sub 

'檢查文件后綴，如果與預(yù)定的匹配即返回TRUE 
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 

'檢測(cè)文件 
Sub ScanFile(FilePath, InFile) 
    If InFile <> "" Then 
        Infiles = "<font color=red>該文件被"& InFile & "文件包含執(zhí)行</font>" 
    End If 
    temp = FilePath 
    On Error Resume Next 
    Set tStream = WScript.CreateObject("ADODB.Stream") 
    tStream.type = 1 
    tStream.mode = 3 
    tStream.open 
    tStream.Position=0 
    tStream.LoadFromFile FilePath 
    If err Then Exit Sub end if 
    tStream.type = 2 
    tStream.charset = "GB2312" 
    Do Until tStream.EOS 
        filetxt = filetxt & LCase(replace(tStream.ReadText(102400), Chr(0), "")) 
    Loop 
    tStream.close() 
    Set tStream = Nothing 

    Set FSOs = WScript.CreateObject("Scripting.FileSystemObject")     
    if len(filetxt) >0 then 
        '特征碼檢查 
        filetxt = vbcrlf & filetxt 
            'Check "WScr"&DoMyBest&"ipt.Shell" 
            If Instr( filetxt, Lcase("WScr"&DoMyBest&"ipt.Shell") ) or Instr( filetxt, Lcase("clsid:72C24DD5-D70A"&DoMyBest&"-438B-8A42-98424B88AFB8") ) then 
                Report = Report&"<tr><td>"&temp&"</td><td>WScr"&DoMyBest&"ipt.Shell 或者 clsid:72C24DD5-D70A"&DoMyBest&"-438B-8A42-98424B88AFB8</td><td><font color=red>危險(xiǎn)組件，一般被ASP木馬利用</font>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End if 
            'Check "She"&DoMyBest&"ll.Application" 
            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>危險(xiǎn)組件，一般被ASP木馬利用</font>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check Unicode 
            If instr( filetxt, chr(-22048)) then 
                Report = Report&"<tr><td>"&temp&"</td><td>無(wú)</td><td><font color=red>使用 Unicode 編碼 ASP 代碼</font>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check .Encode 
            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>似乎腳本被加密了，一般ASP文件是不會(huì)加密的</font>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check my ASP backdoor :( 
            regEx.Pattern = "/bEv"&"al/b" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>Ev"&"al</td><td>e"&"val()函數(shù)可以執(zhí)行任意ASP代碼，被一些后門(mén)利用。其形式一般是：ev"&"al(X)<br>但是javascript代碼中也可以使用，有可能是誤報(bào)。"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check exe&cute backdoor 
            regEx.Pattern = "[^.]/bExe"&"cute/b" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>Exec"&"ute</td><td><font color=red>e"&"xecute()函數(shù)可以執(zhí)行任意ASP代碼，被一些后門(mén)利用。其形式一般是：ex"&"ecute(X)</font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check .(Open|Create)TextFile 
            regEx.Pattern = "/.(Open|Create)TextFile/b" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>.Crea"&"teTextFile|.O"&"penTextFile</td><td>使用了FSO的CreateTextFile|OpenTextFile函數(shù)讀寫(xiě)文件"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check .SaveT&oFile 
            regEx.Pattern = "/.SaveT"&"oFile/b" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>.Sa"&"veToFile</td><td>使用了Stream或者JMail的SaveToFile函數(shù)寫(xiě)文件"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check .&Save 
            regEx.Pattern = "/.Sa"&"ve/b" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>.Sa"&"ve</td><td>使用了XMLHTTP的Save函數(shù)寫(xiě)文件"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check set Server 
            regEx.Pattern = "set/s*.*/s*=/s*server/s" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>Set xxx=Se"&"rver</td><td><font color=red>發(fā)現(xiàn)Set xxx=Ser" & jj & "ver，請(qǐng)管理員仔細(xì)檢查是否調(diào)用.execute</font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check Server.(Transfer|Ex&ecute) 
            regEx.Pattern = "Server.(Ex"&"ecute|Transfer)([ /t]*|/()[^""]/)" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>Server.Ex"&"ecute</td><td><font color=red>不能跟蹤檢查Server.e"&"xecute()函數(shù)執(zhí)行的文件。請(qǐng)管理員自行檢查</font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check .Ru&n 
            regEx.Pattern = "/.R"&"un/b" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>.Ru"&"n</td><td><font color=red>發(fā)現(xiàn) WScript 的 Run 函數(shù)</font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check .Exe&c 
            regEx.Pattern = "/.Ex"&"ec/b" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>.Ex"&"ec</td><td><font color=red>發(fā)現(xiàn) WScript 的 Exec 函數(shù)</font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            'Check .Shel&lExecute 
            regEx.Pattern = "/.Shel"&"lExecute/b" 
            If regEx.Test(filetxt) Then 
                Report = Report&"<tr><td>"&temp&"</td><td>.ShellE"&"xecute</td><td><font color=red>發(fā)現(xiàn) Application 的 ShellExecute 函數(shù)</font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>" 
                Sun = Sun + 1 
            End If 
            Set regEx = Nothing 

         
        'Check include file not with "&'  
        Set regEx = New RegExp 
        regEx.IgnoreCase = True 
        regEx.Global = True 
        regEx.Pattern = "<!--/s*#include/s+(file|virtual)/s*=/s*.*-->" 
        Set Matches = regEx.Execute(filetxt) 
        For Each Match in Matches 
            tFile = Replace(Trim(Mid(Match.Value, Instr(Match.Value, "=") + 1, Len(Match.Value) - Instr(Match.Value, "=") - 1)),"/","/") 
            If Left(tFile, 1)="'" Then 
                tFile = Mid(tFile, 2, InStr(2, tFile, "'", 1) - 2) 
            ElseIf Left(tFile, 1)="""" Then 
                tFile = Mid(tFile, 2, InStr(2, tFile, """", 1) - 2) 
            Else 
                tFile = Replace(tFile, Chr(9), " ") 
                If InStr(tFile, " ") <> 0 Then  
                    tFile = Left(tFile, InStr( tFile, " ") - 1) 
                Else 
                    tFile = Left(tFile, InStr( tFile, "-") - 1) 
                End If 
            End If 
            If Not CheckExt(FSOs.GetExtensionName(tFile)) Then 
                Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"/"))&tFile, FilePath) 
                SumFiles = SumFiles + 1 
            End If 
        Next 
        Set Matches = Nothing 
        Set regEx = Nothing 

        'Check Server&.Execute|Transfer 
        Set regEx = New RegExp 
        regEx.IgnoreCase = True 
        regEx.Global = True 
        regEx.Pattern = "Server.(Exec"&"ute|Transfer)([ /t]*|/()"".*?""" 
        Set Matches = regEx.Execute(filetxt) 
        For Each Match in Matches 
            tFile = Replace(Mid(Match.Value, Instr(Match.Value, """") + 1, Len(Match.Value) - Instr(Match.Value, """") - 1),"/","/") 
            If Not CheckExt(FSOs.GetExtensionName(tFile)) Then 
                Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"/"))&tFile, FilePath) 
                SumFiles = SumFiles + 1 
            End If 
        Next 
        Set Matches = Nothing 
        Set regEx = Nothing 

        'Check RunatScript 
        Set XregEx = New RegExp 
        XregEx.IgnoreCase = True 
        XregEx.Global = True 
        XregEx.Pattern = "<scr"&"ipt/s*(.|/n)*?runat/s*=/s*""?server""?(.|/n)*?>" 
        Set XMatches = XregEx.Execute(filetxt) 
        For Each Match in XMatches 
            tmpLake2 = Mid(Match.Value, 1, InStr(Match.Value, ">")) 
            srcSeek = InStr(1, tmpLake2, "src", 1) 
            If srcSeek > 0 Then 
                srcSeek2 = instr(srcSeek, tmpLake2, "=") 
                For i = 1 To 50 
                    tmp = Mid(tmpLake2, srcSeek2 + i, 1) 
                    If tmp <> " " and tmp <> chr(9) and tmp <> vbCrLf Then 
                        Exit For 
                    End If 
                Next 
                If tmp = """" Then 
                    tmpName = Mid(tmpLake2, srcSeek2 + i + 1, Instr(srcSeek2 + i + 1, tmpLake2, """") - srcSeek2 - i - 1) 
                Else 
                    If InStr(srcSeek2 + i + 1, tmpLake2, " ") > 0 Then tmpName = Mid(tmpLake2, srcSeek2 + i, Instr(srcSeek2 + i + 1, tmpLake2, " ") - srcSeek2 - i) Else tmpName = tmpLake2 
                    If InStr(tmpName, chr(9)) > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, chr(9)) - 1) 
                    If InStr(tmpName, vbCrLf) > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, vbcrlf) - 1) 
                    If InStr(tmpName, ">") > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, ">") - 1) 
                End If 
                Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"/"))&tmpName , FilePath) 
                SumFiles = SumFiles + 1 
            End If 
        Next 
        Set Matches = Nothing 
        Set regEx = Nothing 

    end if 
        set fsos = nothing 

End Sub 

Function GetDateModify(filepath) 
    Set fso = CreateObject("Scripting.FileSystemObject") 
        Set f = fso.GetFile(filepath)  
    s = f.DateLastModified  
    set f = nothing 
    set fso = nothing 
    GetDateModify = s 
End Function 

Function GetDateCreate(filepath) 
    Set fso = CreateObject("Scripting.FileSystemObject") 
        Set f = fso.GetFile(filepath)  
    s = f.DateCreated  
    set f = nothing 
    set fso = nothing 
    GetDateCreate = s 
End Function 

Sub WriteToFile() 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set theFile = FSO.OpenTextFile(WScript.Arguments.Item(1), 2, True) 
    theFile.Write(Report2) 
    theFile.Close 
    Set FSO = Nothing 
    WScript.Echo "掃描結(jié)果已經(jīng)寫(xiě)入文件“"&WScript.Arguments.Item(1)&"”，請(qǐng)查看之！" 
End Sub