Private Sub FF(ByRef a As UInteger, ByVal b As UInteger, ByVal c As _
        UInteger, ByVal d As UInteger, ByVal x As UInteger, ByVal s As Byte)
         Dim m As UInteger = F(b, c, d)
         Dim n As UInteger = m + x
         Dim o As UInteger = a + n ' <- Hier der Überlauf
 
         a = o
         a = ROL(a, s)
      End Sub

        private void FF(ref uint a, uint b, uint c, uint d, uint x, byte s)
        {
            uint m = F(b, c, d);
            uint n = m + x;
            uint o = a + n; // <- Hier kein Überlauf
 
            a = o;
            a = ROL(a, s);
        }