Discussion :

[afrodje]

Salut.

Je cherche à convertir une chaine en chaine crypté.
J'ai regardé chez microsoft, voir code suivant :

Code :

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

1
2
3
4
5
6
7
8
Function MD5hash(data() As Byte) As Byte()
    ' This is one implementation of the abstract class MD5.
    Dim md5 As New MD5CryptoServiceProvider()
 
    Dim result As Byte() = md5.ComputeHash(data)
 
    Return result
End Function

Je ne comprend pas pourquoi ils utilisent le type 'byte'...
Est-il possible de convertir en string (entrée et sortie)?

[SaumonAgile]

Parce qu'un Hash n'est pas spécifique aux chaines de caractères, le Hash travaille sur des octets. Après que ces octets représentent des caractères, des nombres, des bitmaps, ou n'importe quoi, ça reste des octets.

Oui, tu peux utiliser des chaines de caractères pour le Hash, il suffit d'en récupérer la représentation en octet avec Encoding.GetBytes()

[afrodje]

Parce qu'un Hash n'est pas spécifique aux chaines de caractères, le Hash travaille sur des octets. Après que ces octets représentent des caractères, des nombres, des bitmaps, ou n'importe quoi, ça reste des octets.

Oui, tu peux utiliser des chaines de caractères pour le Hash, il suffit d'en récupérer la représentation en octet avec Encoding.GetBytes()

ok d'accord.
Donc j'ai suivi ton conseil.
J'ai convertie en byte, crypté, puis convertie en string et cela me ressort des caractere bizarre.

voici la fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Function convertie_MD5(ByVal chaine_a_crypter As String) As Byte()
 
        Dim convertie_en_byte As Byte()
        convertie_en_byte = System.Text.Encoding.UTF8.GetBytes(chaine_a_crypter)
 
        Dim md5 As New Security.Cryptography.MD5CryptoServiceProvider()
 
        Dim result As Byte() = md5.ComputeHash(convertie_en_byte)
 
        MsgBox(System.Text.Encoding.UTF8.GetString(result))
 
        Return result
    End Function

[bidou]

sinon voir
http://bidou.developpez.com/tutoriel...pto/#LII-A-2-a
partie IV -C

[afrodje]

sinon voir
http://bidou.developpez.com/tutoriel...pto/#LII-A-2-a
partie IV -C

Ce n'est pas du md5?

[bidou]

c'est pareil

Code :

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

1
2
3
4
5
6
7
8
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim mMD5 As New MD5CryptoServiceProvider
        Dim UniEnc As New System.Text.UnicodeEncoding
        Dim bitPass() As Byte = UniEnc.GetBytes(Me.TextBox1.Text)
        MsgBox(Convert.ToBase64String(mMD5.ComputeHash(bitPass)))
 
    End Sub