PureBasic

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. PureBasic

IncludeFile "CkDsa.pb"

Procedure ChilkatExample()

    success.i = 0

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

    dsa.i = CkDsa::ckCreate()
    If dsa.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Load a DER private key.
    success = CkDsa::ckFromDerFile(dsa,"dsa_priv.der")
    If success <> 1
        Debug CkDsa::ckLastErrorText(dsa)
        CkDsa::ckDispose(dsa)
        ProcedureReturn
    EndIf

    pemStr.s

    ; Save to unencrypted PEM:
    pemStr = CkDsa::ckToPem(dsa)
    success = CkDsa::ckSaveText(dsa,pemStr,"dsa_priv.pem")
    If success <> 1
        Debug CkDsa::ckLastErrorText(dsa)
        CkDsa::ckDispose(dsa)
        ProcedureReturn
    EndIf

    ; Save to encrypted PEM:
    pemStr = CkDsa::ckToEncryptedPem(dsa,"myPassword")
    success = CkDsa::ckSaveText(dsa,pemStr,"dsa_privEncrypted.pem")
    If success <> 1
        Debug CkDsa::ckLastErrorText(dsa)
        CkDsa::ckDispose(dsa)
        ProcedureReturn
    EndIf

    Debug "Finished!"


    CkDsa::ckDispose(dsa)


    ProcedureReturn
EndProcedure