windows - Windows 8VBMD5ハッシュ

Question

こんにちは私はWindows8（メトロアプリ）用のmd5ハッシュ関数を探しています

私はグーグル（および他の検索エンジン）でこれを探していましたが、Windows 8には何もありません、それらのほとんどは勝利7（またはそれ以前）に関するものです

ともあれ、ありがとう ：）

Answer 1

MD5は見つかりませんでしたが、SHA256については、興味がある場合はここにいくつかのサンプルがあります;）

Function sha512(Key As String)
    Dim hash As String
    Dim strAlgName As String = "SHA512"
    Dim objAlgProv As HashAlgorithmProvider = HashAlgorithmProvider.OpenAlgorithm(strAlgName)
    Dim objHash As CryptographicHash = objAlgProv.CreateHash()
    Dim buffMsg1 As IBuffer = CryptographicBuffer.ConvertStringToBinary(Key, BinaryStringEncoding.Utf16BE)
    objHash.Append(buffMsg1)
    Dim buffHash1 As IBuffer = objHash.GetValueAndReset()
    Dim strHash1 As String = CryptographicBuffer.EncodeToBase64String(buffHash1)
    hash = strHash1
    Return hash
End Function