Convert DSA Public Key DER to PEM

Converts a DSA public key from DER format to PEM.

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

Dim pemStr As String

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

MsgBox "Finished!"