(DataFlex) Working with PEM Encrypted Private Keys

Demonstrates how to load and save PEM encrypted private keys.

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

Use ChilkatAx-9.5.0-win32.pkg

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

    // Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
    // by calling UnlockBundle.  It requires a Bundle unlock code.
    Get Create (RefClass(cComChilkatGlobal)) To hoChilkatGlob
    If (Not(IsComObjectCreated(hoChilkatGlob))) Begin
        Send CreateComObject of hoChilkatGlob
    End
    Get ComUnlockBundle Of hoChilkatGlob "Anything for 30-day trial." To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoChilkatGlob To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    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 <> True) 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 <> True) 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

    For i From 1 To iNumPrivateKeys
        Get ComGetPrivateKey Of hoPem (i - 1) To vPrivKey
        If (IsComObject(vPrivKey)) Begin
            Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
            Set pvComObject Of hoPrivKey To vPrivKey
        End
        Get ComBitLength Of hoPrivKey To iTemp1
        Showln i ": " iTemp1 " bits"
        Send Destroy of hoPrivKey
    Loop



End_Procedure