Fonction pour hacher (md5) un texte

Commenter

Contenu du snippet

Bon, je crois que c'est dans le titre.
C'est juste une petite fonction qui permet de hacher (crypter) un texte (c'est plus utile pour les mots de passe). Impossible (????) de revenir au texte d'origine, on test donc en hachant de nouveau et en comparant avec une valeur (préalablement hachée) stockée

Source / Exemple : 


Private Function CrypterEnMD5(ByVal Texte As String) as string

 Dim md5 As new MD5CryptoServiceProvider
 Dim TexteEnBit() As Byte
 Dim TexteHache() As Byte

 ' Récupération de la valeur en bit du texte à hacher
 TexteEnBit = System.Text.Encoding.UTF8.GetBytes(Texte)

 ' Hachage
 TexteHache = md5.ComputeHash(TexteEnBit)

 'Libération des ressources
 md5.Clear()

 ' Renvoi
 CrypterEnMD5 = Convert.ToBase64String(TexteHache)

End function

Conclusion :


Pour que ça fonctionne, il faut mettre en début du fichier de code la directive suivante
" Imports System.Security.Cryptography "

Bien c'est tout , j'espère que ça aidera quelqu'un ...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Senynium X)