Load Base64-encoded X.509 Certificate (.cer)

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

Download: Chilkat .NET Assemblies

Dim cert As New Chilkat.Cert()

Dim success As Boolean

'  LoadFromFile will load virtually any certificate format file.
'  It will auto-recognize the format and load appropiately.
'  A base64-encoded DER X.509 certificate file
'  contains the binary DER in base64 encoded form.
'  Therefore, it is a text file that will begin like this:
'  -----BEGIN CERTIFICATE-----
'  MIIFbjCCBFagAwIBAgIGdDPNv/L0MA0GCSqGSIb3DQEBBQUAMIHKMQswCQYDVQQG
'  EwJVUzEQMA4GA1UECBMHQXJpem9uYTETMBEGA1UEBxMKU2NvdHRzZGFsZTEaMBgG
'  ...

success = cert.LoadFromFile("/Users/chilkat/testData/cer/chilkat_base64.cer")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & cert.LastErrorText & vbCrLf
    Exit Sub
End If


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

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

TextBox1.Text = TextBox1.Text & "Serial Number:" _
     & cert.SerialNumber & vbCrLf