AutoIt

Example: Crypt2.GetSignedAttributes method

Demonstrates how to call the GetSignedAttributes method. AutoIt

Local $bSuccess = False

$oCrypt = ObjCreate("Chilkat.Crypt2")

$oBdPkcs7 = ObjCreate("Chilkat.BinData")
$bSuccess = $oBdPkcs7.LoadFile("qa_data/cades/CAdES-T/Signature-C-T-1.p7m")
If ($bSuccess = False) Then
    ConsoleWrite($oBdPkcs7.LastErrorText & @CRLF)
    Exit
EndIf

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.EmitCompact = False

$oSbJson = ObjCreate("Chilkat.StringBuilder")
Local $i = 0
Local $bTryNext = True
While $bTryNext
    If ($oCrypt.GetSignedAttributes($i,$oBdPkcs7,$oSbJson) = True) Then
        $oJson.LoadSb($oSbJson)
        ConsoleWrite($i & ": " & @CRLF)
        ConsoleWrite($oJson.Emit() & @CRLF)
    Else
        $bTryNext = False
    EndIf

    $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"
;      }
;    ]
;  }