bonjour a tous
on va apprendre a crypter un fichier en MD5
pour cela, il faut copier-coller ce code en dehors d'un sub :
ajouter les imports afin de résoudre les erreurs
et dans un sub, mettre ce code pour récupérer la valeur :
cordialement
on va apprendre a crypter un fichier en MD5
pour cela, il faut copier-coller ce code en dehors d'un sub :
- Code:
Function GetMD5(ByVal filePath As String)
Try
Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider
Dim f As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
md5.ComputeHash(f)
f.Close()
f.Dispose()
Dim hash As Byte() = md5.Hash
Dim buff As StringBuilder = New StringBuilder
Dim hashByte As Byte
For Each hashByte In hash
buff.Append(String.Format("{0:X2}", hashByte))
Next
Dim md5string As String
md5string = buff.ToString()
Return md5string
md5.Dispose()
f.Dispose()
Catch ex As Exception
End Try
End Function
ajouter les imports afin de résoudre les erreurs
et dans un sub, mettre ce code pour récupérer la valeur :
- Code:
dim mon_fichier_crypter_en_md5 as string = GetMD5(emp_file)
cordialement