雷客图ASP站长安全助手vbs测试版代码

脚本专栏 2024/11/23 佚名

3 2 1

雷客图ASP站长安全助手是一个基于ASP的帮助站长维护网站安全的程序。这个版本（vbs测试版）主要用于服务器本地运行以查找ASP木马。此版本为测试版，希望大家提供反馈意见，谢谢。另，正式版将整合到雷客图ASP站长安全助手的下个版本。

使用说明：

在命令提示符下：

#用法: 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>雷客图 ASP 站长安全助手vbs版扫描报告 "
 report2 = report2 & "<body>开始时间："&StartTime&" "
 report2 = report2 & "<body>结束时间："&EndTime&" "
 report2 = report2 & "扫描完毕！一共检查文件夹"&SumFolders&"个，文件"&SumFiles&"个，发现可疑点"&Sun&"个（红字显示的为严重可疑） "
 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 & ""
 report2 = report2 & report
 report2 = report2 & ""
 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 = "该文件被"& InFile & "文件包含执行"
 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>危险组件，一般被ASP木马利用"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>危险组件，一般被ASP木马利用"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>使用 Unicode 编码 ASP 代码"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>似乎脚本被加密了，一般ASP文件是不会加密的"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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()函数可以执行任意ASP代码，被一些后门利用。其形式一般是：ev"&"al(X) 但是javascript代码中也可以使用，有可能是误报。"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>e"&"xecute()函数可以执行任意ASP代码，被一些后门利用。其形式一般是：ex"&"ecute(X) "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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)&" "&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)&" "&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函数写文件"&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>发现Set xxx=Ser" & jj & "ver，请管理员仔细检查是否调用.execute "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>不能跟踪检查Server.e"&"xecute()函数执行的文件。请管理员自行检查 "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>发现 WScript 的 Run 函数 "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>发现 WScript 的 Exec 函数 "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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>发现 Application 的 ShellExecute 函数 "&infiles&"</td><td>"&GetDateCreate(filepath)&" "&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 = ""
 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

标签：

雷客图ASP站长安全助手vbs测试版代码

免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

评论“雷客图ASP站长安全助手vbs测试版代码”

雷客图ASP站长安全助手vbs测试版代码

暂无“雷客图ASP站长安全助手vbs测试版代码”评论...

www.imxmx.com 杰晶网络

8,675无损音乐

1,324高清电影

213破解软件

120,141站长资源

雷客图ASP站长安全助手vbs测试版代码

雷客图ASP站长安全助手vbs测试版代码

在一个vbs中包含其他vbs文件的方法

什么是 WSH(脚本宿主)的详细解释

评论“雷客图ASP站长安全助手vbs测试版代码”

RTX 5090要首发性能要翻倍！三星展示GDDR7显存

更新动态

友情链接

雷客图ASP站长安全助手vbs测试版代码

雷客图ASP站长安全助手vbs测试版代码

在一个vbs中包含其他vbs文件的方法

什么是 WSH(脚本宿主)的详细解释

评论“雷客图ASP站长安全助手vbs测试版代码”

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

更新动态

友情链接

RTX 5090要首发性能要翻倍！三星展示GDDR7显存