Public Sub Example2()
Dim myHash As HashedData
Set myHash = New HashedData
myHash.Algorithm = CAPICOM_HASH_ALGORITHM_SHA_512
myHash.Hash StrConv("Hello", vbFromUnicode) ' for the sake of this example we are converting the string so we match earlier API solution
Even using SHA-512 it is cracked. Using CAPICOM is there a way around this?