CryptoSys PKI Toolkit Manual

Example: Cms.GetSigDataDigest 

[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

[Contents] [Index]

[HOME]   [NEXT: Example: Cms.GetSigDataDigest ...]

Copyright © 2004-12 D.I. Management Services Pty Ltd. All rights reserved.