DSA Public Key PEM to DER Conversion

Converts a DSA public key from PEM format to DER.

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 PEM public key.

pemPublicKey = dsa.LoadText("dsa_pub.pem")
'  Import the public key PEM into the DSA object.
success = dsa.FromPublicPem(pemPublicKey)
If (success <> 1) Then
    MsgBox dsa.LastErrorText
    WScript.Quit
End If

'  Write it out as a DER file:
success = dsa.ToPublicDerFile("dsa_pub.der")
If (success <> 1) Then
    MsgBox dsa.LastErrorText
    WScript.Quit
End If

MsgBox "Finished!"