PureBasic

Export a Private Key as PKCS #8 PEM

Demonstrates the Chilkat PrivateKey.GetPkcs8Pem method, which exports the loaded key as unencrypted PKCS #8 PEM (-----BEGIN PRIVATE KEY-----). It takes no arguments.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: PKCS #8 is the modern, algorithm-independent container — the same PRIVATE KEY PEM wrapper holds RSA, EC, or Ed25519 keys alike, which is why it is the format most current tooling expects. Being unencrypted, the PEM carries the key material in the clear, so treat the output as sensitive. Use GetPkcs8EncryptedPem when the exported key needs a passphrase.

Chilkat PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkPrivateKey.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  Load a private key to export.
    privKey.i = CkPrivateKey::ckCreate()
    If privKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkPrivateKey::ckLoadPemFile(privKey,"qa_data/private.pem")
    If success = 0
        Debug CkPrivateKey::ckLastErrorText(privKey)
        CkPrivateKey::ckDispose(privKey)
        ProcedureReturn
    EndIf

    ;  Export as unencrypted PKCS #8 PEM ("-----BEGIN PRIVATE KEY-----").  PKCS #8 is an
    ;  algorithm-independent container that works for RSA, EC, and Ed25519.
    pem.s = CkPrivateKey::ckGetPkcs8Pem(privKey)
    If CkPrivateKey::ckLastMethodSuccess(privKey) = 0
        Debug CkPrivateKey::ckLastErrorText(privKey)
        CkPrivateKey::ckDispose(privKey)
        ProcedureReturn
    EndIf

    Debug pem


    CkPrivateKey::ckDispose(privKey)


    ProcedureReturn
EndProcedure