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

Chilkat Lianja Extension Download Chilkat Lianja Extension

loCert = createobject("CkCert")

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

loBd = createobject("CkBinData")

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

lcOid = "1.2.250.1.71.1.2.5"
llSuccess = loCert.GetExtensionBd(lcOid,loBd)
if (llSuccess = .T.) then
    ? lcOid + ": " + loBd.GetEncoded("hex_lower")
endif

lcOid = "1.2.250.1.71.1.2.2"
llSuccess = loCert.GetExtensionBd(lcOid,loBd)
if (llSuccess = .T.) then
    ? lcOid + ": " + loBd.GetEncoded("hex_lower")
endif

lcOid = "1.2.250.1.71.1.2.3"
llSuccess = loCert.GetExtensionBd(lcOid,loBd)
if (llSuccess = .T.) then
    ? lcOid + ": " + loBd.GetEncoded("hex_lower")
endif

lcOid = "1.2.250.1.71.1.2.7"
llSuccess = loCert.GetExtensionBd(lcOid,loBd)
if (llSuccess = .T.) then
    ? lcOid + ": " + loBd.GetEncoded("hex_lower")
endif

lcOid = "1.2.250.1.71.4.2.5"
llSuccess = loCert.GetExtensionBd(lcOid,loBd)
if (llSuccess = .T.) then
    ? lcOid + ": " + loBd.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.

lcOid = "1.2.250.1.71.1.2.5"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
if (loCert.LastMethodSuccess = .T.) then
    ? lcOid + ": " + lcStrXml
endif

lcOid = "1.2.250.1.71.1.2.2"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
if (loCert.LastMethodSuccess = .T.) then
    ? lcOid + ": " + lcStrXml
endif

lcOid = "1.2.250.1.71.1.2.3"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
if (loCert.LastMethodSuccess = .T.) then
    ? lcOid + ": " + lcStrXml
endif

lcOid = "1.2.250.1.71.1.2.7"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
if (loCert.LastMethodSuccess = .T.) then
    ? lcOid + ": " + lcStrXml
endif

lcOid = "1.2.250.1.71.4.2.5"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
if (loCert.LastMethodSuccess = .T.) then
    ? lcOid + ": " + lcStrXml
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 1


release loCert
release loBd