XL 2016 comment crypter un mot de pass a l'aide d'une fonction de hachage SHA256

KOKI025KOKI

XLDnaute Nouveau
Bonjour a tous , C'est possible je veux cryptée ce mot de pass la a l'aide d'une fonction de hachage SHA256

Password : karim

Voila la fonction :

Private Function SHA256(ByVal hach As String) As String
Dim ObjImplSerCry As New Security.Cryptography.SHA256CryptoServiceProvider
Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(hach)
ByteString = ObjImplSerCry.ComputeHash(ByteString)
Dim finalString As String = Nothing
For Each bt As Byte In ByteString
finalString &= bt.ToString()
Next
Return finalString
End Function

Merci
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Vous trouverez dans le lien ci-dessous un module tout écrit avec plusieurs fonctions de cryptage.
N'oubliez pas dans votre utilisation de mentionner la source du module.

Cordialement
 

Discussions similaires