Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loDsa
LOCAL lcPemStr

lnSuccess = 0

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

loDsa = CreateObject('Chilkat.Dsa')

* Load a DER private key.
lnSuccess = loDsa.FromDerFile("dsa_priv.der")
IF (lnSuccess <> 1) THEN
    ? loDsa.LastErrorText
    RELEASE loDsa
    CANCEL
ENDIF

* Save to unencrypted PEM:
lcPemStr = loDsa.ToPem()
lnSuccess = loDsa.SaveText(lcPemStr,"dsa_priv.pem")
IF (lnSuccess <> 1) THEN
    ? loDsa.LastErrorText
    RELEASE loDsa
    CANCEL
ENDIF

* Save to encrypted PEM:
lcPemStr = loDsa.ToEncryptedPem("myPassword")
lnSuccess = loDsa.SaveText(lcPemStr,"dsa_privEncrypted.pem")
IF (lnSuccess <> 1) THEN
    ? loDsa.LastErrorText
    RELEASE loDsa
    CANCEL
ENDIF

? "Finished!"

RELEASE loDsa