站长必看！Webshell扫描清理工具说明&下载

来源：互联网发布：人工智能硬件孵化器编辑：程序博客网时间：2024/05/02 23:41

作为自己有个小站或大站的人，Webshell扫描器应该人手一份，虽然这些工具不能全部彻底清除网站里的后门，但应付大部分的主流Webshell还是很简单的如果自己的网站里被别人放进了一个Webshell，那可不是件很爽的事情啊！我给站长们推荐2个工具，ASPCandy和ScanWebshell

ASPCandy是村雨写的，一个可执行文件，功能不错，能省去手工检测的烦恼。它主要用于检查被入侵过的主机上是否存在ASP后门，检查服务器上的ASP文件是否有危险操作的存在。一般普通的操作ASP函数存在的话，都不能逃脱它的法眼。

下载地址：http://download.77169.com/soft/safe/protec/checkasp01.zip

ScanWebshell 是Lake2大侠写的，我个人很佩服他，这个工具是一个ASP格式的页面，可以查询ASP，cer，cdx，asa以及嵌套调用的任意格式文件，但是图片 ASP木马查不到，基本原理是对特别函数的审查。挺好用的，不过也不是万能，现在已经有一些Webshell的佼佼者可以躲过它了。

将如下代码保存为ScanWebshell.asp就行了，下载地址就不提供了。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'设置密码
PASSWORD = "eviloctal"

dim Report

if request.QueryString("act")="login" then
if request.Form("pwd") = PASSWORD then session("pig")=1
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> '大家可以把这个文件放到自己的网站上
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASPSecurity for Hacking</title>
</head>

<body>
<%If Session("pig") <> 1 then%>
<form name="form1" method="post" action="?act=login">
<div align="center">Password:
    <input name="pwd" type="password" size="15">
    <input type="submit" name="Submit" value="提交">
</div>
</form>
<%
else
if request.QueryString("act")<>"scan" then
%>
     <form action="?act=scan" method="post">
     <b>填入你要检查的路径：</b>
     <input name="path" type="text" style="border:1px solid #999" value="." size="30" />
     <br>
     * 网站根目录的相对路径，填“”即检查整个网站；“.”为程序所在目录
     <br>
     <br>
     <input type="submit" value=" 开始扫描 " style="background:#fff;border:1px solid #999;padding:2px 2px 0px 2px;margin:4px;border-width:1px 3px 1px 3px" />
     </form>
<%
else
   server.ScriptTimeout = 600
   DimFileExt = "asp,cer,asa,cdx"
   Sun = 0
   SumFiles = 0
   SumFolders = 1
   if request.Form("path")="" then
    response.Write("No Hack")
    response.End()
   end if
   timer1 = timer
   if request.Form("path")="" then
    TmpPath = Server.MapPath("")
   elseif request.Form("path")="." then
    TmpPath = Server.MapPath(".")
   else
    TmpPath = Server.MapPath("")&""&request.Form("path")
   end if
   Call ShowAllFile(TmpPath)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="CContent">
<tr>
    <th>ASPSecurity For Hacking
</tr>
<tr>
    <td class="CPanel" style="padding:5px;line-height:170%;clear:both;font-size:12px">
        <div id="updateInfo" style="background:ffffe1;border:1px solid #89441f;padding:4px;display:none"></div>
扫描完毕！一共检查文件夹<font color="#FF0000"><%=SumFolders%></font>个，文件<font color="#FF0000"><%=SumFiles%></font>个，发现可疑点<font color="#FF0000"><%=Sun%></font>个
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
   <td valign="top">
    <table width="100%" border="1" cellpadding="0" cellspacing="0" style="padding:5px;line-height:170%;clear:both;font-size:12px">
    <tr>
      <td width="20%">文件相对路径</td>
      <td width="20%">特征码</td>
      <td width="40%">描述</td>
      <td width="20%">创建/修改时间</td>
      </tr>
       <p>
    <%=Report%>
    <br/></p>
    </table></td>
</tr>
</table>
</td></tr></table>
<%
timer2 = timer
thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)
response.write "<br><font size=""2"">本页执行共用了"&thetime&"毫秒</font>"
end if
end if

%>
<hr>
<div align="center">本程序取自<a href="http://www.0x54.org" target="_blank">雷客图ASP站长安全助手</a>的ASP木马查找功能<br>
powered by <a href="http://lake2.0x54.org" target=_blank>lake2</a>
</div>
</body>
</html>
<%

'遍历处理path及其子目录所有文件
Sub ShowAllFile(Path)
Set FSO = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(path) then exit sub
Set f = FSO.GetFolder(Path)
Set fc2 = f.files
For Each myfile in fc2
   If CheckExt(FSO.GetExtensionName(path&""&myfile.name)) Then
    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

'检测文件
Sub ScanFile(FilePath, InFile)
If InFile <> "" Then
   Infiles = "该文件被<a href=""&""" target=_blank>"& InFile & "</a>文件包含执行"
End If
Set FSOs = CreateObject("Scripting.FileSystemObject")
on error resume next
set ofile = fsos.OpenTextFile(FilePath)
filetxt = Lcase(ofile.readall())
If err Then Exit Sub end if
if len(filetxt)>0 then
   '特征码检查
   temp = "<a href="")&""" target=_blank>"&replace(FilePath,server.MapPath("")&"","",1,1,1)&"</a>"
    '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)&"<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>危险组件，一般被ASP木马利用。"&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 = "@s*LANGUAGEs*=s*[""]?s*(vbscript|jscript|javascript).encodeb"
    If regEx.Test(filetxt) Then
     Report = Report&"<tr><td>"&temp&"</td><td> (vbscript|jscript|javascript).Encode</td><td>似乎脚本被加密了，一般ASP文件是不会加密的。"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"< /td></tr>"
     Sun = Sun + 1
    End If
    'Check my ASP backdoor :(
    regEx.Pattern = "bEv"&"alb"
    If regEx.Test(filetxt) Then
     Report = Report&"<tr><td>"&temp&"</td><td>Ev"&"al< /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"&"cuteb"
    If regEx.Test(filetxt) Then
     Report = Report&"<tr><td>"&temp&"</td><td>Exec"&"ute< /td><td>e"&"xecute()函数可以执行任意ASP代码，被一些后门利用。其形式一般是：ex"&"ecute(X)。<br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"< /td></tr>"
     Sun = Sun + 1
    End If
    Set regEx = Nothing

   'Check include file
   Set regEx = New RegExp
   regEx.IgnoreCase = True
   regEx.Global = True
   regEx.Pattern = "<!--s*#includes*files*=s*"".*"""
   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, replace(FilePath,server.MapPath("")&"","",1,1,1) )
     SumFiles = SumFiles + 1
    End If
   Next
   Set Matches = Nothing
   Set regEx = Nothing

   'Check include virtual
   Set regEx = New RegExp
   regEx.IgnoreCase = True
   regEx.Global = True
   regEx.Pattern = "<!--s*#includes*virtuals*=s*"".*"""
   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( Server.MapPath("")&""&tFile, replace(FilePath,server.MapPath("")&"","",1,1,1) )
     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, replace(FilePath,server.MapPath("")&"","",1,1,1) )
     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]*|()[^""])"
   If regEx.Test(filetxt) Then
    Report = Report&"<tr><td>"&temp&"</td><td>Server.Exec"&"ute< /td><td>不能跟踪检查Server.e"&"xecute()函数执行的文件。请管理员自行检查。<br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"< /td></tr>"
    Sun = Sun + 1
   End If
   Set Matches = Nothing
   Set regEx = Nothing

   'Check Crea"&"teObject
   Set regEx = New RegExp
   regEx.IgnoreCase = True
   regEx.Global = True
   regEx.Pattern = "CreateO"&"bject[ |t]*(.*)"
   Set Matches = regEx.Execute(filetxt)
   For Each Match in Matches
    If Instr(Match.Value, "&") or Instr(Match.Value, "+") or Instr(Match.Value, """") = 0 or Instr(Match.Value, "(") <> InStrRev(Match.Value, "(") Then
     Report = Report&"<tr><td>"&temp&"</td><td>Creat"&"eObject< /td><td>Crea"&"teObject函数使用了变形技术，仔细复查。"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"< /td></tr>"
     Sun = Sun + 1
     exit sub
    End If
   Next
   Set Matches = Nothing
   Set regEx = Nothing
end if
set ofile = nothing
set fsos = 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

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

总结：杀毒软件是专门杀毒的（废话），这两款Webshell扫描清理工具则可以帮助站长们暂时换一口气啊，总不至于为了查有没有Webshell，一个个自己去翻ASP文件，逐个读代码吧？？

站长必看！Webshell扫描清理工具 说明&下载

站长必看！Webshell扫描清理工具说明&下载