(VB.NET) Example: Crypt2.GetSignedAttributes method

Demonstrates how to call the GetSignedAttributes method.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim crypt As New Chilkat.Crypt2

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


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

Dim sbJson As New Chilkat.StringBuilder
Dim i As Integer = 0
Dim tryNext As Boolean = True
While tryNext
    If (crypt.GetSignedAttributes(i,bdPkcs7,sbJson) = True) Then
        json.LoadSb(sbJson)
        Debug.WriteLine(i & ": ")
        Debug.WriteLine(json.Emit())
    Else
        tryNext = False
    End If


    i = i + 1
End While

' 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"
'     }
'   ]
' }