Hash par Weinberger

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 893 fois - Téléchargée 7 fois

Contenu du snippet

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



Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.