(Xojo Plugin) Example: Crypt2.GetSignedAttributes method

Demonstrates how to call the GetSignedAttributes method.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim crypt As New Chilkat.Crypt2

Dim bdPkcs7 As New Chilkat.BinData
Dim success As Boolean
success = bdPkcs7.LoadFile("qa_data/cades/CAdES-T/Signature-C-T-1.p7m")
If (success = False) Then
    System.DebugLog(bdPkcs7.LastErrorText)
    Return
End If

Dim json As New Chilkat.JsonObject
json.EmitCompact = False

Dim sbJson As New Chilkat.StringBuilder
Dim i As Int32
i = 0
Dim tryNext As Boolean
tryNext = True
While tryNext
    If (crypt.GetSignedAttributes(i,bdPkcs7,sbJson) = True) Then
        success = json.LoadSb(sbJson)
        System.DebugLog(Str(i) + ": ")
        System.DebugLog(json.Emit())
    Else
        tryNext = False
    End If

    i = i + 1
Wend

// Sample output:

// 0: 
// {
//   "signedAttributes": [
//     {
//       "oid": "1.2.840.113549.1.9.3",
//       "name": "Content Type"
//     },
//     {
//       "oid": "1.2.840.113549.1.9.5",
//       "name": "Signing Time"
//     },
//     {
//       "oid": "1.2.840.113549.1.9.4",
//       "name": "Message Digest"
//     },
//     {
//       "oid": "1.2.840.113549.1.9.16.2.47",
//       "name": "Signing Certificate V2"
//     }
//   ]
// }