Ajouter un commentaire

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

Filtered HTML

Plain text

CAPTCHA
Cette question permet de vérifier que vous n'êtes pas un robot spammeur :-)
 X   X  EEEE  FFFF   GGG   X   X 
X X E F G X X
X EEE FFF G GG X
X X E F G G X X
X X EEEE F GGG X X