(DataFlex) Convert DSA DER Private Key to PEM

Converts a DSA private key from DER format to PEM. Demonstrates how to write both encrypted and unencrypted PEM formatted private keys.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoDsa
    Boolean iSuccess
    String sPemStr
    String sTemp1

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

    Get Create (RefClass(cComChilkatDsa)) To hoDsa
    If (Not(IsComObjectCreated(hoDsa))) Begin
        Send CreateComObject of hoDsa
    End

    // Load a DER private key.
    Get ComFromDerFile Of hoDsa "dsa_priv.der" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoDsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Save to unencrypted PEM:
    Get ComToPem Of hoDsa To sPemStr
    Get ComSaveText Of hoDsa sPemStr "dsa_priv.pem" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoDsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Save to encrypted PEM:
    Get ComToEncryptedPem Of hoDsa "myPassword" To sPemStr
    Get ComSaveText Of hoDsa sPemStr "dsa_privEncrypted.pem" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoDsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Finished!"


End_Procedure