md5 / vb.net

Bonjour tout le monde,

Je cherche à produire un hash md5 compatible avec celui d'un script PHP
(exemple : hello produit ce hash : 5d41402abc4b2a76b9719d911017c592)
Il doit être le même à chaque fois normalement or la seule fonction que j'ai toruvé sur le net en vb.net me retourne (ici une string mais même en hex ca ne donne pas un bon résultat) une chaine qui change à chaque fois.... Bizarre non?

Quelqu'un sait me dire comment produire un md5 fiable?

Merci d'avance et bonne soirée

Private Function CrypterEnMD5(ByVal Texte As String) As String

        Dim md5 As New MD5CryptoServiceProvider
        Dim TexteEnBit() As Byte
        Dim TexteHache() As Byte


        ' Récupération de la valeur en bit du texte à hacher
        TexteEnBit = System.Text.Encoding.UTF8.GetBytes(Texte)

        ' Hachage
        TexteHache = md5.ComputeHash(TexteEnBit)

        'Libération des ressources
        md5.Clear()

        ' Renvoi
        CrypterEnMD5 = Convert.ToBase64String(TexteHache)


    End Function

Bonsoir,

Je sais que je reponds plusieurs année après le post initial mais je viens d'être confronté au même souci et voici la solution que j'ai trouvé :
avec (Imports System.Security.Cryptography) avant le début de la classe.

PublicFunction HashWithMD5(ByVal stringtohash AsString) AsString

   Dim md5HashAlgo As MD5 = MD5.Create

   ' Place le texte . hacher dans un tableau d'octets

   Dim byteArrayToHash AsByte() = Encoding.UTF8.GetBytes(stringtohash)

   ' Hash le texte et place le r,sulat dans un tableau d'octets

   Dim hashResult AsByte() = md5HashAlgo.ComputeHash(byteArrayToHash)

   Dim result As StringBuilder = New StringBuilder()

   For i AsInteger = 0 To hashResult.Length - 1

      ' Affiche le Hash en hexadecimal

      result.Append(hashResult(i).ToString(

"X2"))

   Next

   Return result.ToString()

EndFunction

J'espére que ça peu aider.