SHA-256 (vba)

[Sanders69]

Heeft er iemand al gewerkt met SHA-256 en deze vba code klaarliggen? Online zie ik eea staan maar wellicht heeft iemand een werkende oplossing en deze wilt delen.

 

[AHulpje]

https://en.wikibooks.org/wiki/Visual_Basic_for_Applications/String_Hashing_in_VBA

 

[Sanders69]

Ik zag deze ook voorbij komen maar dan ga ik deze gebruiken.
Thanks!

 

[alphamax]

Option Explicit

Sub Test()

    Dim sIn As String
    Dim sTestOut As String
    Dim sH As String

    sIn = "Dit is een test"
    sTestOut = "2c2d00b7adc331709202290b7626d42759447800306307f452ce150e42cfb762"

    With CreateObject("MSXML2.DOMDocument").createElement("binhex")
        .DataType = "bin.hex"
        .nodeTypedValue = CreateObject("System.Security.Cryptography.SHA256Managed").ComputeHash_2((CreateObject("System.Text.UTF8Encoding").Getbytes_4(sIn)))
        sH = .Text
    End With

    Debug.Print "sIn      : " & sIn & vbNewLine & "sH       : " & sH & vbNewLine & Len(sH) & " characters in length" & vbNewLine & "sTestOut : " & sTestOut & vbNewLine & "Passed?  : " & (sTestOut = sH)
    MsgBox "sIn      : " & sIn & vbNewLine & "sH       : " & sH & vbNewLine & Len(sH) & " characters in length" & vbNewLine & "sTestOut : " & sTestOut & vbNewLine & "Passed?  : " & (sTestOut = sH)

End Sub