Lianja

Get Certificate Policy

See more Certificates Examples

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

llSuccess = .F.

loCert = createobject("CkCert")

llSuccess = loCert.LoadFromFile("qa_data/certs/sample.cer")
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loCert
    return
endif

// The certificatePolicies OID is 2.5.29.32
lcOid = "2.5.29.32"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
if (loCert.LastMethodSuccess = .T.) then
    ? lcStrXml

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

    loXml = createobject("CkXml")
    loXml.LoadXml(lcStrXml)
    ? "Policy OID = " + loXml.GetChildContent("sequence|oid")
endif



release loCert
release loXml