DataFlex

Convert DSA DER Private Key to PEM

See more DSA Examples

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoDsa
    String sPemStr
    String sTemp1

    Move False To iSuccess

    // 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