Xbase++

Binary Certificate Extension Data

See more Certificates Examples

Demonstrates how to binary certificate extension data by OID.

The GetExtensionBd method is added in Chilkat v9.5.0.96.

Xbase++

LOCAL nSuccess
LOCAL oCert
LOCAL oBd
LOCAL cOid
LOCAL cStrXml

nSuccess := 0

oCert := CreateObject("Chilkat.Cert")

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

oBd := CreateObject("Chilkat.BinData")

//  The particular certificate in this test contains the following extensions

cOid := "1.2.250.1.71.1.2.5"
nSuccess := oCert:GetExtensionBd(cOid, oBd)
IF (nSuccess == 1)
    ? cOid + ": " + oBd:GetEncoded("hex_lower")
ENDIF

cOid := "1.2.250.1.71.1.2.2"
nSuccess := oCert:GetExtensionBd(cOid, oBd)
IF (nSuccess == 1)
    ? cOid + ": " + oBd:GetEncoded("hex_lower")
ENDIF

cOid := "1.2.250.1.71.1.2.3"
nSuccess := oCert:GetExtensionBd(cOid, oBd)
IF (nSuccess == 1)
    ? cOid + ": " + oBd:GetEncoded("hex_lower")
ENDIF

cOid := "1.2.250.1.71.1.2.7"
nSuccess := oCert:GetExtensionBd(cOid, oBd)
IF (nSuccess == 1)
    ? cOid + ": " + oBd:GetEncoded("hex_lower")
ENDIF

cOid := "1.2.250.1.71.4.2.5"
nSuccess := oCert:GetExtensionBd(cOid, oBd)
IF (nSuccess == 1)
    ? cOid + ": " + oBd:GetEncoded("hex_lower")
ENDIF

//  Sample output:
//  1.2.250.1.71.1.2.5: 040180
//  1.2.250.1.71.1.2.2: 020100
//  1.2.250.1.71.1.2.3: 1315383032353030303030312f32393030303539313432
//  1.2.250.1.71.1.2.7: 02010a
//  1.2.250.1.71.4.2.5: 30060c04534d3236

//  The above binary values are actually ASN.1
//  You can get the ASN.1 decoed by calling GetExtensionAsXml to get it in XML format,
//  and then you extract the values from the XML.

cOid := "1.2.250.1.71.1.2.5"
cStrXml := oCert:GetExtensionAsXml(cOid)
IF (oCert:LastMethodSuccess == 1)
    ? cOid + ": " + cStrXml
ENDIF

cOid := "1.2.250.1.71.1.2.2"
cStrXml := oCert:GetExtensionAsXml(cOid)
IF (oCert:LastMethodSuccess == 1)
    ? cOid + ": " + cStrXml
ENDIF

cOid := "1.2.250.1.71.1.2.3"
cStrXml := oCert:GetExtensionAsXml(cOid)
IF (oCert:LastMethodSuccess == 1)
    ? cOid + ": " + cStrXml
ENDIF

cOid := "1.2.250.1.71.1.2.7"
cStrXml := oCert:GetExtensionAsXml(cOid)
IF (oCert:LastMethodSuccess == 1)
    ? cOid + ": " + cStrXml
ENDIF

cOid := "1.2.250.1.71.4.2.5"
cStrXml := oCert:GetExtensionAsXml(cOid)
IF (oCert:LastMethodSuccess == 1)
    ? cOid + ": " + cStrXml
ENDIF

//  Sample output:
//  1.2.250.1.71.1.2.5: <octets>gA==</octets>
//  1.2.250.1.71.1.2.2: <int>00</int>
//  1.2.250.1.71.1.2.3: <printable>8025000001/2900059142</printable>
//  1.2.250.1.71.1.2.7: <int>0A</int>
//  1.2.250.1.71.4.2.5: <sequence><utf8>SM26</utf8></sequence>

//  "gA==" is the base64 encoded byte values
//  "0A" is hex for decimal 10

oCert:destroy()
oBd:destroy()