(DataFlex) Working with PEM Encrypted Private Keys

Demonstrates how to load and save PEM encrypted private keys.

Note: This example requires Chilkat v11.0.0 or greater.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoPem
    String sPemPassword
    Handle hoFac
    String sPemText
    Integer i
    Integer iNumPrivateKeys
    Variant vPrivKey
    Handle hoPrivKey
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

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

    Move False To iSuccess

    Get Create (RefClass(cComChilkatPem)) To hoPem
    If (Not(IsComObjectCreated(hoPem))) Begin
        Send CreateComObject of hoPem
    End

    Move "secret" To sPemPassword

    // To load a PEM file containing encrypted private keys, simply
    // provide the password.
    Get ComLoadPemFile Of hoPem "/Users/chilkat/testData/pem/pemContainingEncryptedPrivateKeys.pem" sPemPassword To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPem To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComCkFileAccess)) To hoFac
    If (Not(IsComObjectCreated(hoFac))) Begin
        Send CreateComObject of hoFac
    End
    Get ComReadEntireTextFile Of hoFac "/Users/chilkat/testData/pem/pemContainingEncryptedPrivateKeys.pem" sPemPassword To sPemText

    // To load a PEM from a string, call LoadPem instead of LoadPemFile:
    Get ComLoadPem Of hoPem sPemText To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPem To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // A few notes:
    // The PEM may contain both private keys and certificates (or anything else).
    // The password is utilized for whatever content in the PEM is encrypted.  
    // It is OK to have both encrypted and non-encrypted content within a given PEM.

    // PEM private keys can be encrypted in different formats.  The LoadPem and LoadPemFile
    // methods automatically handle the different formats.
    // One format is PKCS8 and is indicated by this delimiter within the PEM:

    // -----BEGIN ENCRYPTED PRIVATE KEY-----
    // MIICoTAbBgkqhkiG9w0BBQMwDgQIfdD0zv24lgkCAggABIICgE0PdHJmRbNs6cBX
    // ...

    // Another format, we'll call "passphrase" looks like this in the PEM:
    // -----BEGIN RSA PRIVATE KEY-----
    // Proc-Type: 4,ENCRYPTED
    // DEK-Info: DES-EDE3-CBC,A4215544D11C5D0C
    // 
    // paqy9XRexcSjurHfG0xhCaUD0HrvIdhuC0CbRxxxeMlkLaV6+uT80rBxt2AaibWG
    // ...

    // Show the bit length of each private key:

    Get ComNumPrivateKeys Of hoPem To iNumPrivateKeys
    If (iNumPrivateKeys = 0) Begin
        Showln (("Error: Expected the PEM to contain private keys."))
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
    If (Not(IsComObjectCreated(hoPrivKey))) Begin
        Send CreateComObject of hoPrivKey
    End
    For i From 1 To iNumPrivateKeys
        Get pvComObject of hoPrivKey to vPrivKey
        Get ComPrivateKeyAt Of hoPem (i - 1) vPrivKey To iSuccess
        Get ComBitLength Of hoPrivKey To iTemp1
        Showln i ": " iTemp1 " bits"
    Loop



End_Procedure