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.

Download Chilkat DSA ActiveX

set dsa = CreateObject("Chilkat.Dsa")

success = dsa.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox dsa.LastErrorText
    WScript.Quit
End If

'  Load a DER private key.
success = dsa.FromDerFile("dsa_priv.der")
If (success <> 1) Then
    MsgBox dsa.LastErrorText
    WScript.Quit
End If

'  Save to unencrypted PEM:
pemStr = dsa.ToPem()
success = dsa.SaveText(pemStr,"dsa_priv.pem")
If (success <> 1) Then
    MsgBox dsa.LastErrorText
    WScript.Quit
End If

'  Save to encrypted PEM:
pemStr = dsa.ToEncryptedPem("myPassword")
success = dsa.SaveText(pemStr,"dsa_privEncrypted.pem")
If (success <> 1) Then
    MsgBox dsa.LastErrorText
    WScript.Quit
End If

MsgBox "Finished!"