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

IncludeFile "CkPfx.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 0

    pfx.i = CkPfx::ckCreate()
    If pfx.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkPfx::ckLoadPfxFile(pfx,"qa_data/pfx/test_ecdsa_secret.pfx","secret")
    If success = 0
        Debug CkPfx::ckLastErrorText(pfx)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkPfx::ckGetLastJsonData(pfx,json)

    CkJsonObject::setCkEmitCompact(json, 0)
    Debug CkJsonObject::ckEmit(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:
    getPrivateKeyAttr.i = 1
    privateKeyIdx.i = 0
    Debug "---- private key safebag attributes ----"
    Debug CkPfx::ckGetSafeBagAttr(pfx,getPrivateKeyAttr,privateKeyIdx,"localKeyId")
    Debug CkPfx::ckGetSafeBagAttr(pfx,getPrivateKeyAttr,privateKeyIdx,"keyContainerName")
    Debug CkPfx::ckGetSafeBagAttr(pfx,getPrivateKeyAttr,privateKeyIdx,"storageProvider")

    ;  Get the localKeyId attribute for the 1st certificate.
    getPrivateKeyAttr = 0
    Debug "---- cert safebag attributes ----"
    Debug CkPfx::ckGetSafeBagAttr(pfx,getPrivateKeyAttr,0,"localKeyId")


    CkPfx::ckDispose(pfx)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure