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

　　

　　

Password:

　　

　　

　　

　　

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

　　%>

　　

　　填入你要检查的路径：

　　

　　

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

　　

　　

　　

　　

　　<% 　　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) 　　%>

　　

　　

　　

　　

　　

ASPSecurity For Hacking
扫描完毕！一共检查文件夹<%=SumFolders%>个，文件<%=SumFiles%>个，发现可疑点<%=Sun%>个 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　 　　<%=Report%> 　　 　　 文件相对路径 特征码 描述 创建/修改时间

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

　　end if

　　end if

　　%>

　　

---