[VB6 equivalent: 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 & "]")
See Also:
Cms.GetSigDataDigest Method