Sample code for 30+ languages & platforms
PureBasic

Export Public Key from USB Token or Smartcard using the Apple Keychain

See more Apple Keychain Examples

Demonstrates how to export a public key from a USB token or smart card via the Apple Keychain.

Chilkat PureBasic Downloads

PureBasic
IncludeFile "CkPublicKey.pb"
IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    success.i = 0

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

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

    ; On MacOS and iOS, the LoadByCommonName function will search the Apple Keychain for the matching certificate.

    ; A digital certificate's Common Name (CN) is a field in the certificate that specifies the name of the entity the 
    ; certificate is issued to. It is often used to identify the domain name, hostname, or organization the certificate represents. 

    ; For example:
    ; - In an SSL/TLS certificate for a website, the CN typically contains the domain name (e.g., "www.example.com").
    ; - For certificates representing individuals or organizations, the CN might include the person's name or the organization's name.

    ; The CN is part of the certificate's Subject field and is crucial for verifying that the certificate corresponds 
    ; to the intended entity, especially in SSL/TLS communications.

    success = CkCert::ckLoadByCommonName(cert,"Test 2048 bit RSA")
    If success = 0
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

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

    CkCert::ckGetPublicKey(cert,pubKey)

    success = CkPublicKey::ckSavePemFile(pubKey,0,"rsaKeys/Test2048Rsa.pem")
    If success = 0
        Debug CkPublicKey::ckLastErrorText(pubKey)
    EndIf



    CkCert::ckDispose(cert)
    CkPublicKey::ckDispose(pubKey)


    ProcedureReturn
EndProcedure