Xojo Plugin

Example: Crypt2.GetSignedAttributes method

Demonstrates how to call the GetSignedAttributes method. Xojo Plugin

Dim success As Boolean
success = False

Dim crypt As New Chilkat.Crypt2

Dim bdPkcs7 As New Chilkat.BinData
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"
//     }
//   ]
// }