' To use the code below, import MailBee namespace at the top of your codeImports MailBee.Security
' The actual code (put it into a method of your class)Dim objSmime As Smime = New Smime
Dim algs() As Algorithm = objSmime.Provider.GetSupportedAlgorithms()
Dim algHash As Algorithm = Nothing' Iterate through all hash algorithms supported by OSForEach alg As Algorithm In algs
If (alg.Name.ToLower() = "md5") Then
algHash = alg
ExitForEndIfNextIf (Not IsNothing(algHash)) Then
objSmime.HashAlgorithm = algHash
EndIf