Kann mir jemand diesen C++ Code in Delphi umwandeln?

[scp]

So, hab mal verglichen, warum alle anderen ausser den Gs (Qs) richtig sind.
Der Unterschied ist, das bei Ord(V[I]) bzw. Integer(V[I]) bei den falschen eine ungerade Zahl ist, das heisst es stimmt was bei der oberen Formel nicht.

Edit:
Habs raus, eine Klammer war zu viel:
W[I] := Encoding[ ( ( a shl (a and 1) and Ord(V[8-I]) ) and $3F )+1 ];