Discussion :

[megamario]

Bonjour à tous,

j'avais récupérer une classe en Vb6 pour crypter ou décrypter une chaine de caractère que je stockais sous forme de fichier texte, cela fonctionnait bien mais la classe ne fonctionne pas en .net.

exemple simplifié:
A la lecture du fichier:

Dim montexte as string = ligne de lecture du fichier....
montexte = Decript(montexte)

A l'écriture du fichier:

Dim montexte as string = "Bonjour Developpez"
nomtexte = EnCript(nomtexte)
Ecrire Ligne dans le fichier... = nomtexte

En .net j'ai vu qu'il existait une classe System.Security.Cryptography. Mais pour le moment j'ai pas trouvé comment utiliser simplement le cryptage/décryptage sur une chaîne de caractère.

Je continue à chercher mais si vous avez un petit coup de main à m'accorder, merci.

Je stock mes données dans un fichier XML mais j'aimerais juste crypté les données contenu dans chaque clef. Je n'est pas besoin d'une grande sécurité mais juste que mes texte ne soit pas en clair pour monsieur tout le monde à l'ouverture du XML. Sachant que cela transitera en clair sur le port COM entre le PC et la supervision donc facilement récupérable pour le bidouilleur en herbe avec le 1er logiciel de capture de trame sur port COM (tel que :HHD Free Serial Port Monitor).

Merci d'avance si je ne trouve pas rapidement.


Edit:Je précise que ce n'est pas qu'un cryptage, (pour un mot de passe par exemple), mais il faut que je puisse faire les 2 (cryptage/décryptage) car j'ai des données à lire pour que mon logiciel puisse interroger les supervisions. De base il ne connait pas les données donc pas de comparaison possible.
Je précise sa car j'ai trouvé des trucs sympa mais que pour les mots de passe et cela ne fait donc que comparer ce que l'utilisateur a saisi, mais pour moi ce n'est pas adapté.

[Pol63]

dnas le namespace cryptography il y a une classe par type de cryptage, tu en prends un au choix (l'aes est assez connu par exemple)
dans le cas de l'aes tu instancies donc un AesCryptoServiceProvider
dessus tu as les fonctions CreateDecryptor et CreateEncryptor
tu récupères donc soit un objet capable de crypter ou de décrypter
sur ces objets il faut appeler TranformBlock par exemple
nb : l'aes demande une clé, à l'instanciation peut etre, la clé tu mets les octets que tu veux

[megamario]

Bonjour, merci pour l'information. En recherchant les thermes je suis tombé sur sa:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
    Public Function AES_Encrypt(ByVal input As String, ByVal pass As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim encrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = Security.Cryptography.CipherMode.ECB
            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
            encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return encrypted
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
 
    Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim decrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = Security.Cryptography.CipherMode.ECB
            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
            Dim Buffer As Byte() = Convert.FromBase64String(input)
            decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return decrypted
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

C'est exactement ce que je souhaitais, merci