DSA Public Key PEM to DER Conversion

Converts a DSA public key from PEM format to DER.

Download Chilkat DSA ActiveX

Dim success As Long

Dim dsa As New ChilkatDsa

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

'  Load a PEM public key.
Dim pemPublicKey As String
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
    Exit Sub
End If

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

MsgBox "Finished!"