public static uint Weinberger(byte[] Key)
        {
            int taille = Key.Length;
            uint M = 109;
            uint temp = 0;
            uint Res = 0;
            for (int i = 0; i < taille; i++)
            {
                Res = (Res * 16) + (uint) Key[i];
                if (Res > 268435456)
                {
                    temp = (Res / 268435456) * 268435456;
                    // 268435456 = 228
                    Res = Res + (temp / 16777216);
                    // 16777216 = 224
                    Res = Res - temp;
                }
            }
            return (Res);// % M);
        }

Public Function Weinberger(ByVal Key As Byte()) As UInteger
   Dim taille As Integer = Key.Length 
   Dim temp As UInteger = 0
   Dim Res As UInteger = 0 
   Dim i As Integer = 0
   While i < taille 
      Res = (Res * 16) + Key(i)

      If Res > 268435456 Then

         temp = (Res / 268435456) * 268435456

         ' 268435456 = 228

         Res = Res + (temp / 16777216)

         ' 16777216 = 224

         Res = Res - temp

      End If

      i += 1

   End While

   Return (Res) ' Mod M);

End Function

Public Function HashWeinberger(ByRef vzIn As Variant) As Long
Dim nTmp As Long
Dim nRes As Long
Dim i As Integer
Dim xbIn() As Byte
    Select Case VarType(vzIn)
        Case vbString
            xbIn = StrConv(vzIn, vbFromUnicode)
        Case vbLong, vbInteger, vbByte, vbDouble, vbSingle
            xbIn = StrConv(Trim$(Str$(vzIn)), vbFromUnicode)
        Case vbArray Or vbByte
            xbIn = vzIn
        Case Else
            Err.Raise 13
            Exit Function
    End Select

    For i = 0 To UBound(xbIn)
        nRes = (nRes * 16) + xbIn(i)
        If nRes > 268435456 Then
            nTmp = (nRes / 268435456) * 268435456
            nRes = nRes + (nTmp / 16777216) - nTmp
        End If
    Next i
    HashWeinberger = nRes
Handler:
End Function