<%If Session("pig") <> 1 then%>

　　

　　

Password:

　　

　　

　　

　　

　　<% 　　else 　　if request.QueryString("act")<>"scan" then

　　%>

　　

　　

填入你要检查的路径：

　　

　　

　　* 网站根目录的相对路径，填“\”即检查整个网站；“.”为程序所在目录

　　

　　你要干什么:

　　

　　查ASP木马

　　

　　搜索符合条件之文件

　　

　　-------------- 如果搜索文件需将以下内容填写完整 ------------------

　　

　　查找内容：

　　

　　* 要查找的字符串，不填就只进行日期检查

　　修改日期：

　　" size="20">

　　* 多个日期用;隔开，任意日期填写ALL

　　文件类型：

　　

　　* 类型之间用,隔开，*表示所有类型

　　

　　

　　

　　

　　<% 　　else 　　server.ScriptTimeout = 600 　　if request.Form("path")="" then 　　response.Write("No Hack") 　　response.End() 　　end if 　　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 　　timer1 = timer 　　Sun = 0 　　SumFiles = 0 　　SumFolders = 1 　　If request.Form("radiobutton") = "sws" Then 　　DimFileExt = "asp,cer,asa,cdx" 　　Call ShowAllFile(TmpPath) 　　Else 　　If request.Form("path") = "" or request.Form("Search_Date") = "" or request.Form("Search_FileExt") = "" Then 　　response.Write("缉捕条件不完全，恕难从命 请返回重新输入")

　　response.End()

　　End If

　　DimFileExt = request.Form("Search_fileExt")

　　Call ShowAllFile2(TmpPath)

　　End If

　　%>

　　

　　

　　

　　

　　

Scan WebShell -- ASPSecurity For Hacking
扫描完毕！一共检查文件夹<%=SumFolders%>个，文件<%=SumFiles%>个，发现可疑点<%=Sun%>个 　　 　　 　　 　　 　　 　　 　　 　　<%If request.Form("radiobutton") = "sws" Then%> 　　 　　 　　 　　 　　<%else%> 　　 　　 　　 　　<%end if%> 　　 　　 　　<%=Report%> 　　 　　 文件相对路径 特征码 描述 创建/修改时间 文件相对路径 文件创建时间 修改时间

　　<% 　　timer2 = timer 　　thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10) 　　response.write "
本页执行共用了"&thetime&"毫秒"

　　end if

　　end if

　　%>

　　

---