Tcl Requires Chilkat v11.0.0+

Get a .pfx/.p12 Safe Bag Attribute

See more PFX/P12 Examples

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. Tcl

load ./chilkat.dll

set success 0

set pfx [new_CkPfx]

set success [CkPfx_LoadPfxFile $pfx "qa_data/pfx/test_ecdsa_secret.pfx" "secret"]
if {$success == 0} then {
    puts [CkPfx_lastErrorText $pfx]
    delete_CkPfx $pfx
    exit
}

set json [new_CkJsonObject]

CkPfx_GetLastJsonData $pfx $json

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

#  The last JSON data provides information about the what is contained in the PFX.  It was collected in the call to LoadPfxFile.
#  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:
set getPrivateKeyAttr 1
set privateKeyIdx 0
puts "---- private key safebag attributes ----"
puts [CkPfx_getSafeBagAttr $pfx $getPrivateKeyAttr $privateKeyIdx localKeyId]
puts [CkPfx_getSafeBagAttr $pfx $getPrivateKeyAttr $privateKeyIdx keyContainerName]
puts [CkPfx_getSafeBagAttr $pfx $getPrivateKeyAttr $privateKeyIdx storageProvider]

#  Get the localKeyId attribute for the 1st certificate.
set getPrivateKeyAttr 0
puts "---- cert safebag attributes ----"
puts [CkPfx_getSafeBagAttr $pfx $getPrivateKeyAttr 0 localKeyId]

delete_CkPfx $pfx
delete_CkJsonObject $json