(PureBasic) 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.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"

Procedure ChilkatExample()

    cert.i = CkCert::ckCreate()
    If cert.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ;  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 = CkCert::ckLoadFromFile(cert,"/Users/chilkat/testData/cer/chilkat_base64.cer")
    If success <> 1
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ;  DN = "Distinguished Name"
    Debug "SubjectDN:" + CkCert::ckSubjectDN(cert)

    Debug "Common Name:" + CkCert::ckSubjectCN(cert)
    Debug "Issuer Common Name:" + CkCert::ckIssuerCN(cert)

    Debug "Serial Number:" + CkCert::ckSerialNumber(cert)


    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure