fonction privée GenerateHash (ByVal SourceText comme corde) comme corde
'Créer un objet de codage pour assurer la norme de codage pour le texte source
Obscurcir Ue en tant que nouvel UnicodeEncoding ()
'Rechercher une rangée de byte basée sur le texte source
Obscurcir ByteSourceText () comme byte = Ue.GetBytes (SourceText)
'Instancier un objet du fournisseur MD5
Obscurcir Md5 en tant que nouveau MD5CryptoServiceProvider ()
'Calculer la valeur de gâchis de la source
Obscurcir ByteHash () comme byte = Md5.ComputeHash (ByteSourceText)
'Et le convertir en format de corde pour le retour
Renvoyer Convert.ToBase64String (ByteHash)
Finir la fonction
l'issue " claire " de >