Bonjour, j utilise la fonction ci bas (trouvée sur le net) qui fonctionne parfaitement bien dans un de mes projets.

Dans un autre de mes projets elle génère par le compilateur l'erreur :
"Expression does not produce a value"

c'est la commande 'Replace(BitConverter.ToString(HashCode), "-", "")' qui génère cette erreur.

Je ne comprends pas ?

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 Public Function HashString(ByVal StringToHash As String, ByVal HachKey As String) As String
        Dim myEncoder As New System.Text.UTF8Encoding
        Dim Key() As Byte = myEncoder.GetBytes(HachKey)
        Dim Text() As Byte = myEncoder.GetBytes(StringToHash)
        Dim myHMACSHA1 As New System.Security.Cryptography.HMACSHA1(Key)
        Dim HashCode As Byte() = myHMACSHA1.ComputeHash(Text)
        Dim hash As String = Replace(BitConverter.ToString(HashCode), "-", "")
        Return hash.ToLower
    End Function