md5 / vb.netRésolu

Question

Bonjour tout le monde,

Je cherche &#224; produire un hash md5 compatible avec celui d'un script PHP 
(exemple : hello produit ce hash : 5d41402abc4b2a76b9719d911017c592)
Il doit &#234;tre le m&#234;me &#224; chaque fois normalement or la seule fonction que j'ai toruv&#233; sur le net en vb.net me retourne (ici une string mais m&#234;me en hex ca ne donne pas un bon r&#233;sultat) une chaine qui change &#224; chaque fois.... Bizarre non?

Quelqu'un sait me dire comment produire un md5 fiable?

Merci d'avance et bonne soir&#233;e

Private Function CrypterEnMD5(ByVal Texte As String) As String

        Dim md5 As New MD5CryptoServiceProvider
        Dim TexteEnBit() As Byte
        Dim TexteHache() As Byte

        ' R&#233;cup&#233;ration de la valeur en bit du texte &#224; hacher
        TexteEnBit = System.Text.Encoding.UTF8.GetBytes(Texte)

        ' Hachage
        TexteHache = md5.ComputeHash(TexteEnBit)

        'Lib&#233;ration des ressources
        md5.Clear()

        ' Renvoi
        CrypterEnMD5 = Convert.ToBase64String(TexteHache)

    End Function

hotips · Accepted Answer

Voil&#224; je viens d'y arriver finalement. Voici le code pour ceux que ca int&#233;resse ;-)


Imports System.Security.Cryptography

Imports System.Text

Imports System.IO
    'based on http://vangampelaere.be/gene/articles/303.aspx script

        Function CalculateMD5HashFromFile(ByVal FileContent As String) As String

            Dim
arHash As Byte() = New
MD5CryptoServiceProvider().ComputeHash(ASCIIEncoding.ASCII.GetBytes(FileContent))

            Return ByteArrayToString(arHash)

        End Function

        

Function ByteArrayToString(ByVal arrInput() As Byte) As String

            Dim i As Integer

            Dim sOutput As New StringBuilder(arrInput.Length)

            For i = 0 To arrInput.Length - 1

               
sOutput.Append(arrInput(i).ToString("X2"))

            Next

            Return sOutput.ToString()

        End Function



LblMd5.Text = CalculateMD5HashFromFile("hello")

hotips · Answer

d&#233;so pour les multi post mais le site a plant&#233; plusieurs fois ...
 

Il y a eu une erreur dans la page
D&#233;sol&#233; pour le d&#233;sagr&#233;ment, un log &#224; &#233;t&#233; envoy&#233; au webmasteur pour corriger au plus vite le probl&#232;me

Cordialement

Nix

Page Pr&#233;c&#233;dente :
http://www.vbfrance.com/forum.v2.aspx?ajout=1

cs_milo2009 · Answer

mais apres comment fait tu pour le d&#233;crypter ?

BenjiLeMagic · Answer

Le MD5 est une fonction de hashing, on ne peut pas "d&#233;crypter" ;-)

Md5 / vb.net

4 réponses

Discussions similaires