(PureBasic) Generate RSA Key and Export to Encrypted PEM

PureBasic sample showing how to generate an RSA key and export to encrypted PEM.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPrivateKey.pb"
IncludeFile "CkRsa.pb"

Procedure ChilkatExample()

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

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

    ; Generate a 1024-bit key.  Chilkat RSA supports
    ; key sizes ranging from 512 bits to 4096 bits.
    success.i = CkRsa::ckGenerateKey(rsa,1024)
    If success <> 1
        Debug CkRsa::ckLastErrorText(rsa)
        CkRsa::ckDispose(rsa)
        ProcedureReturn
    EndIf

    ; Get the private key as unencrypted XML:
    keyXml.s = CkRsa::ckExportPrivateKey(rsa)
    Debug keyXml

    ; To encrypt the key -- meaning to get the key in
    ; an encrypted PEM format -- load it into a PrivateKey object,
    ; and then export to encrypted PEM:
    privKey.i = CkPrivateKey::ckCreate()
    If privKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkPrivateKey::ckLoadXml(privKey,keyXml)
    If success <> 1
        Debug CkPrivateKey::ckLastErrorText(privKey)
        CkRsa::ckDispose(rsa)
        CkPrivateKey::ckDispose(privKey)
        ProcedureReturn
    EndIf

    strEncPem.s

    strEncPem = CkPrivateKey::ckGetPkcs8EncryptedPem(privKey,"myPassword")

    ; You now have the private key in an encrypted format,
    ; which may be (for example) saved to a database


    CkRsa::ckDispose(rsa)
    CkPrivateKey::ckDispose(privKey)


    ProcedureReturn
EndProcedure