雷客圖ASP站長安全助手vbs測試版代碼

2020-03-24 16:50:49

字體：大中小

來源：轉載

供稿：網友

雷客圖ASP站長安全助手是一個基于ASP的幫助站長維護網站安全的程序。這個版本（vbs測試版）主要用于服務器本地運行以查找ASP木馬。此版本為測試版，希望大家提供反饋意見，謝謝。另，正式版將整合到雷客圖ASP站長安全助手的下個版本。

使用說明：

在html' target='_blank'>命令提示符下：

#用法: CScript scan.vbs [掃描路徑] [結果HTM文件路徑]
#例子: CScript scan.vbs d:/Web f:/my/report.html
復制代碼代碼如下:
'-----------------------
'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 "開始掃描，請稍候……"
WScript.Sleep(1000)
StartTime = now()
Call ShowAllFile(thePath)
EndTime = now()
WScript.Echo vbcrlf & "掃描完成！" & vbcrlf
report2 = report2 html head title 雷客圖 ASP 站長安全助手vbs版掃描報告 /title "
report2 = report2 meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" /head "
report2 = report2 body b font size=4 雷客圖 ASP 站長安全助手vbs版掃描報告 /font /b br br "
report2 = report2 body font size=2 開始時間："&StartTime /font br "
report2 = report2 body font size=2 結束時間："&EndTime /font br "
report2 = report2 font size=2 掃描完畢！一共檢查文件夾 font color=""#FF0000"" "&SumFolders /font 個，文件 font color=""#FF0000"" "&SumFiles /font 個，發現可疑點 font color=""#FF0000"" "&Sun /font 個（ font color=""#FF0000"" 紅字 /font 顯示的為嚴重可疑） /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%"" 創建/修改時間 /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 站長安全助手vbs版 =====" & vbcrlf
HelpStr = HelpStr & "===== Author: lake2 =====" & vbcrlf
HelpStr = HelpStr & "===== Email:lake2@mail.csdn.net =====" & vbcrlf
HelpStr = HelpStr & "===== 歡迎訪問 www.0x54.org 得到更多信息 =====" & vbcrlf
HelpStr = HelpStr & "=====＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====" & vbcrlf
HelpStr = HelpStr & vbcrlf
WScript.Echo HelpStr
End Sub

Sub ShowHelp()
HelpStr = HelpStr & "#用法: CScript scan.vbs [掃描路徑] [結果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：錯誤的路徑“" & WScript.Arguments.Item(0) & "”！"
WScript.Quit
ElseIf Not objFSO.FolderExists(tmpPath) Then
WScript.Echo "Error：錯誤的文件路徑“" & 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

'檢查文件后綴，如果與預定的匹配即返回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

'檢測文件
Sub ScanFile(FilePath, InFile)
If InFile "" Then
Infiles = " font color=red 該文件被"& InFile & "文件包含執行 /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 危險組件，一般被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 危險組件，一般被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 無 /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文件是不會加密的 /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" /td td e"&"val()函數可以執行任意ASP代碼，被一些后門利用。其形式一般是：ev"&"al(X) br 但是javascript代碼中也可以使用，有可能是誤報。"&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()函數可以執行任意ASP代碼，被一些后門利用。其形式一般是：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函數讀寫文件"&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函數寫文件"&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" /td td 使用了XMLHTTP的Save函數寫文件"&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 發現Set xxx=Ser" & jj & "ver，請管理員仔細檢查是否調用.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()函數執行的文件。請管理員自行檢查 /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" /td td font color=red 發現 WScript 的 Run 函數 /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" /td td font color=red 發現 WScript 的 Exec 函數 /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 發現 Application 的 ShellExecute 函數 /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 "掃描結果已經寫入文件“"&WScript.Arguments.Item(1)&"”，請查看之！"
End Sub
html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：vbs Windows系統改變或修改網卡的MAC地址的腳本與軟件

下一篇：vbs 注冊表操作類代碼