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
Partager