(DataFlex) Generate RSA Public/Private Key Pair and Export to PEM

DataFlex example code showing how to generate an RSA public/private key pair and export to PEM files.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRsa
    Boolean iSuccess
    String sPublicKeyXml
    String sPrivateKeyXml
    Handle hoPrivKey
    Handle hoPubKey
    String sTemp1

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

    Get Create (RefClass(cComChilkatRsa)) To hoRsa
    If (Not(IsComObjectCreated(hoRsa))) Begin
        Send CreateComObject of hoRsa
    End

    // Generate a 1024-bit key.  Chilkat RSA supports
    // key sizes ranging from 512 bits to 4096 bits.
    Get ComGenerateKey Of hoRsa 1024 To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Keys are exported in XML format:
    Get ComExportPublicKey Of hoRsa To sPublicKeyXml
    Showln sPublicKeyXml

    Get ComExportPrivateKey Of hoRsa To sPrivateKeyXml
    Showln sPrivateKeyXml

    // Save the private key in PEM format:
    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
    If (Not(IsComObjectCreated(hoPrivKey))) Begin
        Send CreateComObject of hoPrivKey
    End
    Get ComLoadXml Of hoPrivKey sPrivateKeyXml To iSuccess
    Get ComSavePemFile Of hoPrivKey "privateKey.pem" To iSuccess

    // Save the public key in PEM format:
    Get Create (RefClass(cComChilkatPublicKey)) To hoPubKey
    If (Not(IsComObjectCreated(hoPubKey))) Begin
        Send CreateComObject of hoPubKey
    End
    Get ComLoadFromString Of hoPubKey sPublicKeyXml To iSuccess
    Get ComSavePemFile Of hoPubKey False "publicKey.pem" To iSuccess


End_Procedure