Convert DSA Public Key DER to PEM

Converts a DSA public key from DER format to PEM.

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 public key.
success = dsa.FromPublicDerFile("dsa_pub.der")
If (success <> 1) Then
    MsgBox dsa.LastErrorText
    WScript.Quit
End If

'  Save the public key to PEM:
pemStr = dsa.ToPublicPem()
success = dsa.SaveText(pemStr,"dsa_pub.pem")
If (success <> 1) Then
    MsgBox dsa.LastErrorText
    WScript.Quit
End If

MsgBox "Finished!"