Visual basic et excel ... Convertir en MD5

iceje
Visual basic et excel ... Convertir en MD5

Salut tlm :lol:

Alors j'ai un fichier excel avec 2000 mots de passe !
je voudrais les hascher en MD5 et j'ai trouvé ceci sur le net

   1. Private Function CrypterEnMD5(ByVal Texte As String) as string
   2.  
   3.  Dim md5 As new MD5CryptoServiceProvider
   4.  Dim TexteEnBit() As Byte
   5.  Dim TexteHache() As Byte
   6.  
   7.  
   8.  ' Récupération de la valeur en bit du texte à hacher
   9.  TexteEnBit = System.Text.Encoding.UTF8.GetBytes(Texte)
  10.  
  11.  ' Hachage
  12.  TexteHache = md5.ComputeHash(TexteEnBit)
  13.  
  14.  'Libération des ressources
  15.  md5.Clear()
  16.  
  17.  ' Renvoi
  18.  CrypterEnMD5 = Convert.ToBase64String(TexteHache)
  19.  
  20.  
  21. End function

Mais je ne sais pas comment faire pour l'utiliser dans excel

iceje

up

A la limite il me faut une macro qu crypté un mot de passe dans une cellule en md5