(PureBasic) Generate RSA Key and return Base64 PKCS8 Private Key

Demonstrates how to generate a new 2048-bit RSA private key and returns the Base64 encoded PKCS8 representation of the private key.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    success.i = 0

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

    ; Generate a 2048-bit key.  Chilkat RSA supports
    ; key sizes ranging from 512 bits to 8192 bits.
    privKey.i = CkPrivateKey::ckCreate()
    If privKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkRsa::ckGenKey(rsa,2048,privKey)
    If success = 0
        Debug CkRsa::ckLastErrorText(rsa)
        CkRsa::ckDispose(rsa)
        CkPrivateKey::ckDispose(privKey)
        ProcedureReturn
    EndIf

    ; Get the private key in PKCS8 Base64 format
    privKeyPkcs8Base64.s = CkPrivateKey::ckGetPkcs8ENC(privKey,"base64")

    ; The key in base64 format will start similar to this:
    ; MIIEvAIBADANBgkqhkiG9w0BA...
    Debug privKeyPkcs8Base64


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


    ProcedureReturn
EndProcedure