(DataFlex) Generate an RSA Key and Save to Encrypted PEM

See more RSA Examples

Demonstrates how to generate an RSA key and save to an encrypted PEM file.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRsa
    Boolean iSuccess
    Variant vPrivKey
    Handle hoPrivKey
    String sPassword
    String sPath
    Variant vPubKey
    Handle hoPubKey
    Boolean iPreferPkcs1
    String sTemp1

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

    // Generate a 2048-bit key.
    Get ComGenerateKey Of hoRsa 2048 To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComExportPrivateKeyObj Of hoRsa To vPrivKey
    If (IsComObject(vPrivKey)) Begin
        Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
        Set pvComObject Of hoPrivKey To vPrivKey
    End
    Move "secret" To sPassword
    // Saving to a relative path (from the current working directory of the process).
    Move "rsaKeys/myTestRsaPrivate.pem" To sPath
    // Encrypt the PEM using 256-bit AES encryption.
    Set ComPkcs8EncryptAlg Of hoPrivKey To "aes256"
    Get ComSavePkcs8EncryptedPemFile Of hoPrivKey sPassword sPath To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPrivKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Send Destroy of hoPrivKey

    // 

    // We can also save the public key.
    // There is no need to encrypt public keys.
    Get ComExportPublicKeyObj Of hoRsa To vPubKey
    If (IsComObject(vPubKey)) Begin
        Get Create (RefClass(cComChilkatPublicKey)) To hoPubKey
        Set pvComObject Of hoPubKey To vPubKey
    End
    Move "rsaKeys/myTestRsaPublic.pem" To sPath
    // Choose PKCS1 or PKCS8
    // We'll choose PKCS8.
    Move False To iPreferPkcs1
    Get ComSavePemFile Of hoPubKey iPreferPkcs1 sPath To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPubKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Send Destroy of hoPubKey

    // 

    Showln "Success."


End_Procedure