PureBasic

Generate RSA Key and Export to Encrypted PEM

See more RSA Examples

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

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

Procedure ChilkatExample()

    success.i = 0

    ; 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.
    privKey.i = CkPrivateKey::ckCreate()
    If privKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkRsa::ckGenKey(rsa,1024,privKey)
    If success = 0
        Debug CkRsa::ckLastErrorText(rsa)
        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.

    Debug strEncPem


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


    ProcedureReturn
EndProcedure