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.

Lianja

llSuccess = .F.

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