Discussion :

[arnolem]

bonjour, j'ai un petite question à vous soumettre, si vous aviez juste un mot de passe pour l'administrateur d'un logiciel à crypter dans un fichier ou dans la base de registre, vous utiliseriez quelle classe ?
Avez vous un exemple simple de cryptage de chaine assez sécurisé (fonctionnant avec une clé de cryptage si possible).

merci par avance, chere communauté !

[graphicsxp]

Salut,
J'ai fais un petit outil de cryptage de fichiers. Tu dois pouvoir t'en inspirer pour crypter des chaines de caracteres: ici
J'utilise System.Security.Cryptography. Tout est dans le Module Encrypt de projet.

@+

[arnolem]

merci beaucoup, bon je vais voir, mais tu pense que l'on peux crypter une chaine avec sa ?

[AP]

et prendre un hash MD5 ne serait-il pas suffisant dans ton cas ?

[arnolem]

ben je connais pas justement, j'ai déja fais des traitement de flux xml ou un cryptage de chaine a partir d'une fonction mais j'aimerais un truc plus pro et pa trop complexe pour un cryptage de chaine.
si tu a une petite explication, c'est pas de refus

[graphicsxp]

merci beaucoup, bon je vais voir, mais tu pense que l'on peux crypter une chaine avec sa ?

Oui.

Mais en fait, je viens juste de me rappeller que j'ai fais exactement la meme chose, encryptage de mot de passe. J'utilise SHA512 comme algorithme. Je le fais comme ca:

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
 
      Imports System.Security.Cryptography
      .
      .
      .
      Public Function GetSHA512(ByVal str As String) As String
        'desc   : Encrypt a strin using the SHA512 algorithm
        Dim UE As UnicodeEncoding = New UnicodeEncoding
        Dim HashValue As Byte()
        'convert the string to Byte
        Dim MessageBytes As Byte() = UE.GetBytes(str)
        Dim SHhash As SHA512Managed = New SHA512Managed
        Dim strHex As String = ""
 
        'create the hash table using the SHA512 algorithm
        HashValue = SHhash.ComputeHash(MessageBytes)
        'convert the hash table to a string
        For Each b As Byte In HashValue
            strHex += String.Format("{0:x2}", b)
        Next
        Return strHex
    End Function

Code :

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

  Password = myPassword.GetSHA512(MotDePasseOriginal)

[arnolem]

Merci
il manquait un

Code :

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

Imports System.Text

j'ai crypté le mot de passe azerty en un truc vachement bien

Code :

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

1
2
        Dim Pass = "azerty"
        MsgBox(GetSHA512(Pass))

maintenant on fait comment pour décrypter ? lol

sinon strHex ? c'est la clé de cryptage ?

[AP]

pourquoi tu veux décrypter? suffit de comparer les formes cryptées non ?

[arnolem]

ouai tu a raison
merci beaucoup messsieur

[graphicsxp]

On ne décrypte pas
En effet il n'y a pas de clé, donc tu ne peux pas décrypter. Mais tu peux utiliser le processus inverse pour vérifier que l'utilisateur a correctement entré son mot de passe. Je pense que c'est ce qu'il te faut non? Si l'utilisateur a perdu son mot de passe, tu lui demande d'en recréer un.


[EDIT]

pourquoi tu veux décrypter? suffit de comparer les formes cryptées non ?

argh.... je tape pas assez vite moi ce matin
[EDIT]