(AutoIt) Get a .pfx/.p12 Safe Bag Attribute

Demonstrates how to get the value of a private key or certificate safe bag attribute. Safe bag attributes are associated with a key or certificate. They are attributes stored in the .p12/.pfx alongside a key or certificate.

Note: This example requires Chilkat v9.5.0.83 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

$oPfx = ObjCreate("Chilkat.Pfx")

Local $bSuccess = $oPfx.LoadPfxFile("qa_data/pfx/test_ecdsa_secret.pfx","secret")
If ($bSuccess = False) Then
    ConsoleWrite($oPfx.LastErrorText & @CRLF)
    Exit
EndIf

Local $oJson = $oPfx.LastJsonData()
$oJson.EmitCompact = False
ConsoleWrite($oJson.Emit() & @CRLF)

; The LastJsonData provides information about the what is contained in the PFX after loading.
; For example:

; {
;   "authenticatedSafe": {
;     "contentInfo": [
;       {
;         "type": "Data",
;         "safeBag": [
;           {
;             "type": "pkcs8ShroudedKeyBag",
;             "attrs": {
;               "localKeyId": "16777216",
;               "keyContainerName": "{B99EB9E7-6AF7-42AF-A43A-D4B2225B7605}",
;               "msStorageProvider": "Microsoft Software Key Storage Provider"
;             }
;           }
;         ]
;       },
;       {
;         "type": "EncryptedData",
;         "safeBag": [
;           {
;             "type": "certBag",
;             "attrs": {
;               "localKeyId": "16777216"
;             },
;             "subject": "EE",
;             "serialNumber": "1a9da86df17ad411bb413b2aa724fe56fc71242d"
;           },
;           {
;             "type": "certBag",
;             "subject": "CA",
;             "serialNumber": "02742228acbf3dd2e71f403abd8281ab6d70d490"
;           }
;         ]
;       }
;     ]
;   }
; }

; Use this online tool to generate parsing code from sample JSON: 
; Generate Parsing Code from JSON

; In the above JSON, we can see the .pfx contains one private key (a pkcs8ShroudedKeyBag) and two certificates (each in a certBag).
; The certificates in a .pfx/.p12 are typicaly a single certificate with associated private key, along with the other certificates
; in the chain of authentication.

; We can see that the private key has 3 safebag attributes: localKeyId, keyContainerName, and msStorageProvider.
; The certificate associated with the private key contains one safebag attribute: localKeyId.
; Notice the localKeyId is the same.  The localKeyId helps associate the private key that corresponds to the given certificate.

; Let's demonstrate the GetSafeBagAttr method:

; Get each of the private key safebag attributes:
Local $bGetPrivateKeyAttr = True
Local $iPrivateKeyIdx = 0
ConsoleWrite("---- private key safebag attributes ----" & @CRLF)
ConsoleWrite($oPfx.GetSafeBagAttr($bGetPrivateKeyAttr,$iPrivateKeyIdx,"localKeyId") & @CRLF)
ConsoleWrite($oPfx.GetSafeBagAttr($bGetPrivateKeyAttr,$iPrivateKeyIdx,"keyContainerName") & @CRLF)
ConsoleWrite($oPfx.GetSafeBagAttr($bGetPrivateKeyAttr,$iPrivateKeyIdx,"storageProvider") & @CRLF)

; Get the localKeyId attribute for the 1st certificate.
$bGetPrivateKeyAttr = False
ConsoleWrite("---- cert safebag attributes ----" & @CRLF)
ConsoleWrite($oPfx.GetSafeBagAttr($bGetPrivateKeyAttr,0,"localKeyId") & @CRLF)