DataFlex

Load an Encrypted Private Key from PEM Text

Demonstrates the Chilkat PrivateKey.LoadEncryptedPem method, which loads a private key from PEM text, using a password when the PEM is encrypted. The first argument is the PEM string and the second is the password. Unencrypted PEM is also accepted.

Background: An encrypted PEM protects the key material at rest — a stolen file is useless without the passphrase — which is why encrypted keys are preferred for anything shipped or stored. This loader supplies that passphrase to decrypt a BEGIN ENCRYPTED PRIVATE KEY block (and gracefully handles unencrypted PEM too), so it is a safe default when a PEM might be either. The password should come from a secure source, never a hard-coded literal.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoPrivKey
    String sPemText
    String sPassword
    String sTemp1

    Move False To iSuccess

    //  Demonstrates the PrivateKey.LoadEncryptedPem method, which loads a private key from PEM text.
    //  The 1st argument is the PEM string and the 2nd is the password (used when the PEM is
    //  encrypted).  Unencrypted PEM is also accepted.

    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
    If (Not(IsComObjectCreated(hoPrivKey))) Begin
        Send CreateComObject of hoPrivKey
    End

    //  The PEM text of an encrypted private key.
    Move "-----BEGIN ENCRYPTED PRIVATE KEY-----" + (character(10)) + "MIIFHzBJ..." + (character(10)) + "-----END ENCRYPTED PRIVATE KEY-----" To sPemText

    //  The key password is not hard-coded in a real application; obtain it from an interactive
    //  prompt, environment variable, or a secrets vault.
    Move "myKeyPassword" To sPassword

    Get ComLoadEncryptedPem Of hoPrivKey sPemText sPassword To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPrivKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComKeyType Of hoPrivKey To sTemp1
    Showln "Loaded a " sTemp1 " private key."


End_Procedure