(AutoIt) Example: Crypt2.GetSignedAttributes method
Demonstrates how to call the GetSignedAttributes method.
$oCrypt = ObjCreate("Chilkat.Crypt2")
$oBdPkcs7 = ObjCreate("Chilkat.BinData")
Local $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"
; }
; ]
; }
|