Find a PFX Certificate by localKeyId

See more PFX/P12 Examples

Demonstrates Pfx.CertByLocalKeyId, which searches for a certificate whose certificate-bag localKeyId attribute matches a given value and copies it into a Cert object.

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

IncludeFile "CkPfx.pb"
IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    success.i = 0

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

    ;  The file path is relative to the application's current working directory.  An absolute path
    ;  may also be used.  Supply the path appropriate to your own environment.
    ;  The PFX password should come from a secure source rather than being hard-coded.
    password.s = "myPfxPassword"
    success = CkPfx::ckLoadPfxFile(pfx,"qa_data/identity.pfx",password)
    If success = 0
        Debug CkPfx::ckLastErrorText(pfx)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    ;  Find a certificate whose certificate-bag localKeyId attribute matches the given value.  The 2nd
    ;  argument names the binary representation of the id, such as decimal, base64, or hex.
    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkPfx::ckCertByLocalKeyId(pfx,"01","hex",cert)
    If success = 0
        Debug CkPfx::ckLastErrorText(pfx)
        CkPfx::ckDispose(pfx)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    Debug "Found certificate: " + CkCert::ckSubjectCN(cert)


    CkPfx::ckDispose(pfx)
    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure