(Lianja) 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.
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
loDsa = createobject("CkDsa")
// Load a DER private key.
llSuccess = loDsa.FromDerFile("dsa_priv.der")
if (llSuccess <> .T.) then
? loDsa.LastErrorText
release loDsa
return
endif
// Save to unencrypted PEM:
lcPemStr = loDsa.ToPem()
llSuccess = loDsa.SaveText(lcPemStr,"dsa_priv.pem")
if (llSuccess <> .T.) then
? loDsa.LastErrorText
release loDsa
return
endif
// Save to encrypted PEM:
lcPemStr = loDsa.ToEncryptedPem("myPassword")
llSuccess = loDsa.SaveText(lcPemStr,"dsa_privEncrypted.pem")
if (llSuccess <> .T.) then
? loDsa.LastErrorText
release loDsa
return
endif
? "Finished!"
release loDsa
|