Load DER encoded X.509 Certificate (.cer, .crt)

Loads a digital certificate from a binary DER encoded X.509 Certificate (.cer, .crt) and fetches information about the cert.

Dim cert As New ChilkatCert

Dim success As Long

'  LoadFromFile will load virtually any certificate format file.
'  It will auto-recognize the format and load appropiately.
success = cert.LoadFromFile("/Users/chilkat/testData/cer/chilkat_ssl.cer")
If (success <> 1) Then
    Text1.Text = Text1.Text & cert.LastErrorText & vbCrLf
    Exit Sub
End If

'  DN = "Distinguished Name"
Text1.Text = Text1.Text & "SubjectDN:" & cert.SubjectDN & vbCrLf

Text1.Text = Text1.Text & "Common Name:" & cert.SubjectCN & vbCrLf
Text1.Text = Text1.Text & "Issuer Common Name:" _
     & cert.IssuerCN & vbCrLf

Text1.Text = Text1.Text & "Serial Number:" & cert.SerialNumber & vbCrLf