Xbase++

Get Certificate Policy

See more Certificates Examples

Demonstrates how to get a certificate's policy OIDs (if any) Xbase++

LOCAL nSuccess
LOCAL oCert
LOCAL cOid
LOCAL cStrXml
LOCAL oXml

nSuccess := 0

oCert := CreateObject("Chilkat.Cert")

nSuccess := oCert:LoadFromFile("qa_data/certs/sample.cer")
IF (nSuccess == 0)
    ? oCert:LastErrorText
    oCert:destroy()
    RETURN
ENDIF

//  The certificatePolicies OID is 2.5.29.32
cOid := "2.5.29.32"
cStrXml := oCert:GetExtensionAsXml(cOid)
IF (oCert:LastMethodSuccess == 1)
    ? cStrXml

    //  Sample result:
    //  <sequence><sequence><oid>2.16.840.1.101.2.1.11.39</oid></sequence></sequence>

    oXml := CreateObject("Chilkat.Xml")
    oXml:LoadXml(cStrXml)
    ? "Policy OID = " + oXml:GetChildContent("sequence|oid")
ENDIF

oCert:destroy()
oXml:destroy()