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

  %>

  


  

本程序取自雷客图ASP站长安全助手的ASP木马查找功能

  powered by lake2

  

  

 
目前共有0条评论
  • 暂无Trackback
你目前的身份是游客,评论请输入昵称和电邮!