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

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

转载作者：qq735679552 更新时间：2022-09-29 22:32:09

27

4

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章雷客图ASP站长安全助手vbs测试版代码由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

雷客图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测试版代码的文章就讲到这里了,如果你想了解更多关于雷客图ASP站长安全助手vbs测试版代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！。

27

4

0

文章推荐： antiIframe.vbs用于批量清除被添加到文件中的恶意代码

文章推荐：基于solr全文检索实现原理(详谈)

facebook - 如何在本地主机中测试客户聊天插件(测试版)？
我正在尝试使用 Customer Chat Plugin在我的网站(不是 Wordpress)中，但为了测试插件是否正常工作，我需要多次部署它。有什么方法可以在我的本地机器上进行测试吗？使用本地主机
Java 版本控制(测试版)
当我输入 java -version 时，这是我得到的输出: java version "1.6.0_21" Java(TM) SE Runtime Environment (build 1.6.0_
ios - CocoaPods 测试版
我正在为 OpenTok(iOS WebRTC SDK)构建一个带有 CocoaPods 组件的项目，他们已经发布了测试版，但他们无意将其添加为 Beta 测试规范。我的问题是关于为该测试版制定规范
ios - iTunesConnect 测试版
我正在尝试使用新的 iTunesConnect 测试版。我正在尝试邀请用户进行测试，但他已经拥有 iTunes 开发者帐户，因此不允许我邀请他: The email address you enter
Xcode 测试版 6 错误
对于在 Bata 6 中遇到类似问题的任何人。我通过删除/Users/[your username]/Library/Developer/Xcode/DerivedData 中的内容解决了这个问题，可
blackberry - BlackBerry 是否支持为其应用程序开发人员发布演示/测试版？
我有兴趣为 BlackBerry 设备开发应用程序，想知道他们是否支持为应用程序开发人员提供演示版或测试版的概念？通过这个，我的意思是能够将我的应用程序的测试版或演示版部署到有限/受限的受众，例如业务
flutter - 如何从Google Play上的应用名称中删除(测试版)
我已经在Google Play上将flutter应用程序部署为生产模式，该链接为https://play.google.com/store/apps/details?id=yurikanamba.lo
elasticsearch - 无法将非对象映射与机器学习(测试版)模块中的对象映射错误合并
我正在试用 x 包中的新机器学习模块。我试图及时识别 HTTP 访问日志中的罕见响应代码。我的日志存储在 elasticsearch 中，如下所示: { "_index": "logstash-2
iOS 企业开发者帐户和公共(public)测试版？
我看到越来越多的开发人员使用企业开发人员帐户发布其应用程序的公测版本。最后我读到，Enterprise TOS 只允许在内部向员工发布应用程序。 Apple 现在正式容忍使用企业帐户进行公开测试，还是
android - Crashlytics 测试版 - 包似乎已损坏
我最近为客户开发了一款应用，现在必须在 Crashlytics 上分享它以获得 Beta 版。我过去曾多次这样做，但使用此应用程序时出现问题。当我在 Crashlytics Studio 的插件上上
android - 由应用推广到生产，但仍然显示(测试版)
我在 Google Play 测试版中运行了一个应用程序，然后最近才使用更高版本的 APK “发布到生产环境”。但是，当我进入 Google Play 列表时，我的应用仍然显示 AppName (B
gatsby - 如何安装 Gatsby@2(测试版)
如何安装 Gatsby@v2？我遵循了 https://next.gatsbyjs.org/docs/ 处的文档这应该是新版本的文档。它说运行 npm install --global gatsby-
.net - 如何修复引用旧(测试版).NET 版本的程序集？
我正在尝试在 Visual Studio 2010 中编译一个项目。它在 Visual Studio 2008 中运行良好，但 2010 出现以下错误: The primary reference "
jquery - 如何在 Highstock(测试版)中获取连续图表
我对 Highstock 产品(测试版)有疑问，http://www.highcharts.com/products/highstock 对于任何有使用过此功能或认为可以回答的人，请!!! 我注意到有
iOS 9.3 测试版 xcode
我昨天刚刚获得了一个 Apple ID，只是为了在 iPhone 上测试我的 Xcode 应用程序。我还将 Xcode 升级到了 7.2。我通过 USB 线将手机连接到 Macbook Air，并尝试
iphone - Apple TestFlight(测试版)应用程序无法安装
几个月来，我们一直在使用 Apple 的 TestFlight 工具来分发我们的应用程序的 Beta 版本(在合并到 AppStore 之前从旧的 TestFlight 服务迁移而来)。直到今天一切都
java - Google MapMaker maximumSize 测试版？
MapMaker maximumSize 在 google guava 库中被标记为 @Beta。当您将它用作缓存时设置最大大小是一个非常有用的功能，我想在生产代码中使用它。从使用其他谷歌产品的经验来
ios - 安装 Xcode 8 测试版
我能知道安装 Xcode 8 beta 的最低系统要求吗？目前我有 OS X Yosemite 版本 10.10.5 硬件处理器:2.6 GHz 英特尔酷睿 i5 内存 8GB 最佳答案兼容性
Xcode 6 测试版 6 初始化
当尝试在运行时初始化我的类的一个实例时，应用程序似乎卡住并且无法继续，这里是: class Game: NSObject { var allies: DoubleLinkedList
c# - 如何在 AvaloniaUI(测试版)中显示消息框
我正在玩 Avalonia我正在尝试显示一个消息框，该消息框等同于 WinForms 的 MessageBox.Show()。我找到了 GitHub issue那是为此请求一个 API，但我想知道人们

首页

博学

6Ren·AI

商城

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