(Lianja) Apple Keychain - List Certs on Smartcards and USB Tokens

See more Apple Keychain Examples

Iterates over the certificatse on connected smartcards and USB tokens via the Apple Keychain.

Note: This example requires Chilkat v10.0.0 or greater.

Chilkat Lianja Extension Download Chilkat Lianja Extension

loCertStore = createobject("CkCertStore")

// On MacOS and iOS, the OpenSmartcard method opens the Keychain.
// The argument passed to OpenSmartcard is ignored.
llSuccess = loCertStore.OpenSmartcard("")
if (llSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

lnNumCerts = loCertStore.NumCertificates
? "numCerts = " + str(lnNumCerts)

i = 0
do while i < lnNumCerts
    // Note: Chilkat also gets the associated private key if it exists.
    // You can simply use the cert in other places in Chilkat where a cert w/ private key is required.
    loCert = loCertStore.GetCertificate(i)
    ? loCert.SubjectDN
    ? loCert.SubjectCN
    ? loCert.SerialNumber
    ? "has private key: " + str(loCert.HasPrivateKey())
    ? "----"
    release loCert
    i = i + 1
enddo

loCertStore.CloseCertStore()


release loCertStore