PureBasic

Write PKCS1 or PKCS8 Public Key PEM

See more PEM Examples

Demonstrates how to write either PKCS1 or PKCS8 format PEM files. PKCS1 public keys have this PEM format:

-----BEGIN RSA PUBLIC KEY-----
BASE64 ENCODED DATA
-----END RSA PUBLIC KEY-----

PKCS8 public keys have this PEM format:

-----BEGIN PUBLIC KEY-----
BASE64 ENCODED DATA
-----END PUBLIC KEY-----

PureBasic

IncludeFile "CkPem.pb"

Procedure ChilkatExample()

    success.i = 0

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

    success = 0

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

    ; Load a public key from a PEM file.
    ; (Assume the PEM contains at least one public key..)
    success = CkPem::ckLoadPemFile(pem,"/Users/chilkat/testData/pem/myPublicKey.pem")
    If success <> 1
        Debug CkPem::ckLastErrorText(pem)
        CkPem::ckDispose(pem)
        ProcedureReturn
    EndIf

    i.i
    numPublicKeys.i = CkPem::ckNumPublicKeys(pem)
    If numPublicKeys = 0
        Debug ("Error: Expected the PEM to contain public keys.")
        CkPem::ckDispose(pem)
        ProcedureReturn
    EndIf

    ; Get each public key as PEM, first in PKCS1 format, then in PKCS8.
    For i = 1 To numPublicKeys

        ; First output to PKCS1 PEM format:
        Debug "This is PKCS1 format:"
        CkPem::setCkPublicKeyFormat(pem, "pkcs1")
        Debug CkPem::ckToPem(pem)

        ; Now PKCS8 PEM format:
        Debug "This is PKCS8 format:"
        CkPem::setCkPublicKeyFormat(pem, "pkcs8")
        Debug CkPem::ckToPem(pem)

    Next


    CkPem::ckDispose(pem)


    ProcedureReturn
EndProcedure