(PureBasic) Write PKCS1 or PKCS8 Public Key PEM

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-----

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPem.pb"
IncludeFile "CkGlobal.pb"

Procedure ChilkatExample()

    ; Unlock the Chilkat API.
    ; Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
    ; by calling UnlockBundle.  It requires a Bundle unlock code.
    chilkatGlob.i = CkGlobal::ckCreate()
    If chilkatGlob.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkGlobal::ckUnlockBundle(chilkatGlob,"Anything for 30-day trial.")
    If success <> 1
        Debug CkGlobal::ckLastErrorText(chilkatGlob)
        CkGlobal::ckDispose(chilkatGlob)
        ProcedureReturn
    EndIf

    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)
        CkGlobal::ckDispose(chilkatGlob)
        CkPem::ckDispose(pem)
        ProcedureReturn
    EndIf

    i.i
    numPublicKeys.i = CkPem::ckNumPublicKeys(pem)
    If numPublicKeys = 0
        Debug ("Error: Expected the PEM to contain public keys.")
        CkGlobal::ckDispose(chilkatGlob)
        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


    CkGlobal::ckDispose(chilkatGlob)
    CkPem::ckDispose(pem)


    ProcedureReturn
EndProcedure