(DataFlex) Generate RSA Key and Export to Encrypted PEM

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

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoRsa
    Boolean iSuccess
    String sKeyXml
    Handle hoPrivKey
    String sStrEncPem
    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

    // Get the private key as unencrypted XML:
    Get ComExportPrivateKey Of hoRsa To sKeyXml
    Showln sKeyXml

    // 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:
    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
    If (Not(IsComObjectCreated(hoPrivKey))) Begin
        Send CreateComObject of hoPrivKey
    End

    Get ComLoadXml Of hoPrivKey sKeyXml To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPrivKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComGetPkcs8EncryptedPem Of hoPrivKey "myPassword" To sStrEncPem

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


End_Procedure