(PureBasic) Generate RSA Public/Private Key

PureBasic example code showing how to generate an RSA public/private key.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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.
    ; Note: Starting in Chilkat v9.5.0.49, RSA key sizes can be up to 8192 bits.
    ; It takes a considerable amount of time and processing power to generate
    ; an 8192-bit key.
    success.i = CkRsa::ckGenerateKey(rsa,1024)
    If success <> 1
        Debug CkRsa::ckLastErrorText(rsa)
        CkRsa::ckDispose(rsa)
        ProcedureReturn
    EndIf

    ; Keys are exported in XML format:
    publicKey.s = CkRsa::ckExportPublicKey(rsa)
    Debug publicKey

    privateKey.s = CkRsa::ckExportPrivateKey(rsa)
    Debug privateKey


    CkRsa::ckDispose(rsa)


    ProcedureReturn
EndProcedure