(Xojo Plugin) 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.
Dim crypt As New Chilkat.Crypt2
// Tell Chilkat to also validate the timestamp token if a timestamp exists in the CMS message's unauthenticated attributes.
Dim cmsOptions As New Chilkat.JsonObject
Dim success As Boolean
success = cmsOptions.UpdateBool("ValidateTimestampTokens",True)
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.
Dim success As Boolean
success = crypt.VerifyP7M(inFile,outputFile)
If (success = False) Then
System.DebugLog(crypt.LastErrorText)
Return
End If
System.DebugLog("Signature validated.")
|