Discussion :

[toutounesan]

Bonjour,

Je voudrais savoir quel est le code pour crypter et décrypter des fichiers textes/ J'ai le code pour crypter:

Code :

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

1
2
3
4
5
6
7
8
9
 
   ' Pour convertir le mot de passe en tableau de byte:
        Dim encoder As New System.Text.UnicodeEncoding
        ' On obtient un tableau à partir du mot de passe entré:
        Dim password() As Byte = encoder.GetBytes(Me.TextBox1.Text)
        ' Pour crypter le mot de passe:
        Dim sha As New Security.Cryptography.SHA256Managed
        ' On obtient le mot de passe crypté:
        Dim PassSHA() As Byte = sha.ComputeHash(password)

je l'ai trouvé sur le net. Il me manque le code pour le décryptage

[Niitaku]

Bonjour,

Le SHA (Secure Hash Algorithm) est, comme son nom l'indique, un algorithme de hachage, c'est à dire qu'il est conçu pour qu'il ne soit pas possible de retrouver ce qui a été haché.

Donc ce que tu souhaites faire n'est pas possible en utilisant le SHA.

[toutounesan]

donc si on veut crypté et décrypté par la suite, du code à me proposer?

[Niitaku]

Je ne sais pas si c'est adapté (ne l'ayant jamais vraiment utilisé), mais il existe l'algorithme Rijndael.

[Edit] Au passage, on parle plutôt de chiffrage/déchiffrage plutôt de de cryptage/décryptage.

[Shadam]

Moi je me sert de cette fonction, le hachage MD5 donne toujours le même code en héxa sur 16 caractères, mais il est impossible de remonter dans l'autre sens...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Shared Function testMotDePasse(ByVal mdp As String) As StringBuilder
        Dim md5Hasher As MD5 = MD5.Create()
        ' Conversion de l'argument en un tableau de bit puis hachage.
        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(mdp))
        ' Création d'une instance de Stringbuilder 
        ' pour collecter les bits et créer la chaîne.
        Dim sBuilder As New StringBuilder()
        ' Formattage de chaque bit du tableau haché en caractère hexadécimal.
        Dim i As Integer
        For i = 0 To data.Length - 1
            sBuilder.Append(data(i).ToString("x2"))
        Next i
        Return sBuilder
    End Function

[toutounesan]

ET POUR LE le décodage

http://msdn.microsoft.com/fr-fr/libr....rijndael.aspx

j'ai toujours sreader=nothing