Visual Basic 6.0

Verify the Timestamp Server Token (if any) while Validating a CMS Signature

Demonstrates how to also validate the timestamp server token (if any) while validating a CMS signature. Visual Basic 6.0

Dim success As Long
success = 0

Dim crypt As New ChilkatCrypt2

' Tell Chilkat to also validate the timestamp token if a timestamp exists in the CMS message's unauthenticated attributes.
Dim cmsOptions As New ChilkatJsonObject
success = cmsOptions.UpdateBool("ValidateTimestampTokens",1)
crypt.CmsOptions = cmsOptions.Emit()

Dim outputFile As String
outputFile = "qa_output/original.xml"
Dim inFile As String
inFile = "qa_data/p7m/fattura_signature.xml.p7m"

' Verify the signature and extract the contained file, which in this case is XML.
success = crypt.VerifyP7M(inFile,outputFile)
If (success = 0) Then
    Debug.Print crypt.LastErrorText
    Exit Sub
End If

Debug.Print "Signature validated."