CMS_GetSigDataDigest

Extracts message digest from a CMS signed-data object file and verifies the signature.

VB6/VBA

Debug.Print "Testing CMS_GetSigDataDigest ..."
Dim nDigAlg As Long
Dim strCmsFile As String
Dim strHexDigest As String
strCmsFile = "DetSignByAlice.bin"
strHexDigest = String(PKI_MAX_HASH_CHARS, " ")
nDigAlg = CMS_GetSigDataDigest(strHexDigest, Len(strHexDigest), strCmsFile, "", 0)
Debug.Print "CMS_GetSigDataDigest returns " & nDigAlg
If nDigAlg < 0 Then
    Exit Sub
End If
Debug.Print "Extracted digest is"
Debug.Print "[" & strHexDigest & "]"

Output

Testing CMS_GetSigDataDigest ...
CMS_GetSigDataDigest returns 0
Extracted digest is
[406aec085279ba6e16022d9e0629c0229687dd48                                                                                        ]

VB.NET

Console.WriteLine("Testing CMS_GetSigDataDigest ...")
''Dim nDigAlg As Integer
Dim strCmsFile As String
Dim strHexDigest As String
strCmsFile = "DetSignByAlice.bin"
''strHexDigest = String(PKI_MAX_HASH_CHARS, " ")
strHexDigest = Cms.GetSigDataDigest(strCmsFile, "", False)
''Console.WriteLine("CMS_GetSigDataDigest returns " & nDigAlg)
If strHexDigest.Length = 0 Then
    Exit Sub
End If
Console.WriteLine("Extracted digest is")
Console.WriteLine("[" & strHexDigest & "]")

[Contents]