(DataFlex) Iterate Keys and Certs in PEM

Demonstrates how to access each of the private keys and certs contained within a PEM.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoChilkatGlob
    Boolean iSuccess
    Handle hoPem
    String sPassword
    String sPemContent
    Integer iNumPrivateKeys
    Integer i
    Variant vPrivKey
    Handle hoPrivKey
    Integer iNumCerts
    Variant vCert
    Handle hoCert
    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

    // The Chilkat PEM class was introduced in v9.5.0.49.  
    // It requires the bundle to be unlocked, as shown above.
    Get Create (RefClass(cComChilkatPem)) To hoPem
    If (Not(IsComObjectCreated(hoPem))) Begin
        Send CreateComObject of hoPem
    End

    // Load the PEM from a file.
    // If the PEM is encrypted, provide a password.  Otherwise pass an empty string for the password.
    Move "myPassword" To sPassword
    Get ComLoadPemFile Of hoPem "../myPemFiles/myPem.pem" sPassword To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPem To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Note: If the app already has the PEM pre-loaded in a string variable, then load it 
    // by calling LoadPem instead.  
    Move "... the PEM contents ..." To sPemContent
    Get ComLoadPem Of hoPem sPemContent sPassword To iSuccess
    // Check for success as before..

    // Iterate over the private keys.
    Get ComNumPrivateKeys Of hoPem To iNumPrivateKeys
    Move 0 To i

    While (i < iNumPrivateKeys)

        Get ComGetPrivateKey Of hoPem i 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 "Private Key " i " is " iTemp1 " in length"
        Send Destroy of hoPrivKey

        Move (i + 1) To i
    Loop

    // Iterate over the certificates.
    Get ComNumCerts Of hoPem To iNumCerts
    Move 0 To i

    While (i < iNumCerts)

        Get ComGetCert Of hoPem i To vCert
        If (IsComObject(vCert)) Begin
            Get Create (RefClass(cComChilkatCert)) To hoCert
            Set pvComObject Of hoCert To vCert
        End
        Get ComSubjectDN Of hoCert To sTemp1
        Showln "Certificate " i " : " sTemp1
        Send Destroy of hoCert

        Move (i + 1) To i
    Loop



End_Procedure