Visual FoxPro

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.

Visual FoxPro

LOCAL lnSuccess
LOCAL loCert
LOCAL loBd
LOCAL lcOid
LOCAL lcStrXml

lnSuccess = 0

loCert = CreateObject('Chilkat.Cert')

lnSuccess = loCert.LoadFromFile("qa_data/certs/testCert.cer")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

loBd = CreateObject('Chilkat.BinData')

* The particular certificate in this test contains the following extensions

lcOid = "1.2.250.1.71.1.2.5"
lnSuccess = loCert.GetExtensionBd(lcOid,loBd)
IF (lnSuccess = 1) THEN
    ? lcOid + ": " + loBd.GetEncoded("hex_lower")
ENDIF

lcOid = "1.2.250.1.71.1.2.2"
lnSuccess = loCert.GetExtensionBd(lcOid,loBd)
IF (lnSuccess = 1) THEN
    ? lcOid + ": " + loBd.GetEncoded("hex_lower")
ENDIF

lcOid = "1.2.250.1.71.1.2.3"
lnSuccess = loCert.GetExtensionBd(lcOid,loBd)
IF (lnSuccess = 1) THEN
    ? lcOid + ": " + loBd.GetEncoded("hex_lower")
ENDIF

lcOid = "1.2.250.1.71.1.2.7"
lnSuccess = loCert.GetExtensionBd(lcOid,loBd)
IF (lnSuccess = 1) THEN
    ? lcOid + ": " + loBd.GetEncoded("hex_lower")
ENDIF

lcOid = "1.2.250.1.71.4.2.5"
lnSuccess = loCert.GetExtensionBd(lcOid,loBd)
IF (lnSuccess = 1) 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 = 1) THEN
    ? lcOid + ": " + lcStrXml
ENDIF

lcOid = "1.2.250.1.71.1.2.2"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
IF (loCert.LastMethodSuccess = 1) THEN
    ? lcOid + ": " + lcStrXml
ENDIF

lcOid = "1.2.250.1.71.1.2.3"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
IF (loCert.LastMethodSuccess = 1) THEN
    ? lcOid + ": " + lcStrXml
ENDIF

lcOid = "1.2.250.1.71.1.2.7"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
IF (loCert.LastMethodSuccess = 1) THEN
    ? lcOid + ": " + lcStrXml
ENDIF

lcOid = "1.2.250.1.71.4.2.5"
lcStrXml = loCert.GetExtensionAsXml(lcOid)
IF (loCert.LastMethodSuccess = 1) 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