AutoIt

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.

AutoIt

Local $bSuccess = False

$oCert = ObjCreate("Chilkat.Cert")

$bSuccess = $oCert.LoadFromFile("qa_data/certs/testCert.cer")
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

$oBd = ObjCreate("Chilkat.BinData")

; The particular certificate in this test contains the following extensions

Local $sOid = "1.2.250.1.71.1.2.5"
$bSuccess = $oCert.GetExtensionBd($sOid,$oBd)
If ($bSuccess = True) Then
    ConsoleWrite($sOid & ": " & $oBd.GetEncoded("hex_lower") & @CRLF)
EndIf

$sOid = "1.2.250.1.71.1.2.2"
$bSuccess = $oCert.GetExtensionBd($sOid,$oBd)
If ($bSuccess = True) Then
    ConsoleWrite($sOid & ": " & $oBd.GetEncoded("hex_lower") & @CRLF)
EndIf

$sOid = "1.2.250.1.71.1.2.3"
$bSuccess = $oCert.GetExtensionBd($sOid,$oBd)
If ($bSuccess = True) Then
    ConsoleWrite($sOid & ": " & $oBd.GetEncoded("hex_lower") & @CRLF)
EndIf

$sOid = "1.2.250.1.71.1.2.7"
$bSuccess = $oCert.GetExtensionBd($sOid,$oBd)
If ($bSuccess = True) Then
    ConsoleWrite($sOid & ": " & $oBd.GetEncoded("hex_lower") & @CRLF)
EndIf

$sOid = "1.2.250.1.71.4.2.5"
$bSuccess = $oCert.GetExtensionBd($sOid,$oBd)
If ($bSuccess = True) Then
    ConsoleWrite($sOid & ": " & $oBd.GetEncoded("hex_lower") & @CRLF)
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.

$sOid = "1.2.250.1.71.1.2.5"
Local $strXml = $oCert.GetExtensionAsXml($sOid)
If ($oCert.LastMethodSuccess = True) Then
    ConsoleWrite($sOid & ": " & $strXml & @CRLF)
EndIf

$sOid = "1.2.250.1.71.1.2.2"
$strXml = $oCert.GetExtensionAsXml($sOid)
If ($oCert.LastMethodSuccess = True) Then
    ConsoleWrite($sOid & ": " & $strXml & @CRLF)
EndIf

$sOid = "1.2.250.1.71.1.2.3"
$strXml = $oCert.GetExtensionAsXml($sOid)
If ($oCert.LastMethodSuccess = True) Then
    ConsoleWrite($sOid & ": " & $strXml & @CRLF)
EndIf

$sOid = "1.2.250.1.71.1.2.7"
$strXml = $oCert.GetExtensionAsXml($sOid)
If ($oCert.LastMethodSuccess = True) Then
    ConsoleWrite($sOid & ": " & $strXml & @CRLF)
EndIf

$sOid = "1.2.250.1.71.4.2.5"
$strXml = $oCert.GetExtensionAsXml($sOid)
If ($oCert.LastMethodSuccess = True) Then
    ConsoleWrite($sOid & ": " & $strXml & @CRLF)
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