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

PROCEDURE Weinberger(CleVal)
nRes est un entier sans signe sur 4 octets
nTemp est un entier sans signe sur 4 octets
ntmp est un entier sans signe sur 4 octets
nParc est un entier
//nMod est un entier = 187909
nTaille est un entier
sAConvert est une chaîne
tabEntiers est un tableau d'entiers sans signe sur 4 octets
SI EstNumérique(CleVal) ALORS
    sAConvert = CleVal
SINON
    sAConvert = CleVal
FIN
 nTaille = Taille(sAConvert)
 
 POUR nParc = 1 A nTaille
    Ajoute(tabEntiers,Asc(Milieu(sAConvert,nParc,1)))
FIN
nRes = 0
POUR CHAQUE nTemp DE tabEntiers
    nRes = (nRes * 16) + nTemp
    SI nRes > 268435456 ALORS
        ntmp = (nRes / 268435456) * 268435456
        nRes = nRes + (ntmp / 16777216)
        nRes = nRes - ntmp
    FIN
FIN
RENVOYER nRes // Modulo(nRes,nMod)