Discussion :

[pawnies20]

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

[pawnies20]

La fonction génère une erreur avant compilation finale.
Des que j intègre cette fonction dans le code, cette erreur est générée avant même de tenter de l'utiliser.

Je répète aussi mais cette fonction fonctionne parfaitement bien dans un autre projet.

Le code est mal interprété dans un projet mais bien dans l'autre...

En fait :
-Dans le mauvais cas il veut faire un replace (sourcefilename as string,...
-Dans le bon cas il fait un replace(expression as string,.....

Je ne comprends pas.....

Une idée?

Merci encore

[ebastien]

Bonjour,

Essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim hash As String = BitConverter.ToString(HashCode).Replace("-", "")

[pawnies20]

Super, je teste.

Merci