(SQL Server) 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 ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @cert int
    -- Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Cert', @cert OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int
    EXEC sp_OAMethod @cert, 'LoadFromFile', @success OUT, 'qa_data/certs/testCert.cer'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @cert, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @cert
        RETURN
      END

    DECLARE @bd int
    -- Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.BinData', @bd OUT

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

    DECLARE @oid nvarchar(4000)
    SELECT @oid = '1.2.250.1.71.1.2.5'
    EXEC sp_OAMethod @cert, 'GetExtensionBd', @success OUT, @oid, @bd
    IF @success = 1
      BEGIN

        EXEC sp_OAMethod @bd, 'GetEncoded', @sTmp0 OUT, 'hex_lower'
        PRINT @oid + ': ' + @sTmp0
      END

    SELECT @oid = '1.2.250.1.71.1.2.2'
    EXEC sp_OAMethod @cert, 'GetExtensionBd', @success OUT, @oid, @bd
    IF @success = 1
      BEGIN

        EXEC sp_OAMethod @bd, 'GetEncoded', @sTmp0 OUT, 'hex_lower'
        PRINT @oid + ': ' + @sTmp0
      END

    SELECT @oid = '1.2.250.1.71.1.2.3'
    EXEC sp_OAMethod @cert, 'GetExtensionBd', @success OUT, @oid, @bd
    IF @success = 1
      BEGIN

        EXEC sp_OAMethod @bd, 'GetEncoded', @sTmp0 OUT, 'hex_lower'
        PRINT @oid + ': ' + @sTmp0
      END

    SELECT @oid = '1.2.250.1.71.1.2.7'
    EXEC sp_OAMethod @cert, 'GetExtensionBd', @success OUT, @oid, @bd
    IF @success = 1
      BEGIN

        EXEC sp_OAMethod @bd, 'GetEncoded', @sTmp0 OUT, 'hex_lower'
        PRINT @oid + ': ' + @sTmp0
      END

    SELECT @oid = '1.2.250.1.71.4.2.5'
    EXEC sp_OAMethod @cert, 'GetExtensionBd', @success OUT, @oid, @bd
    IF @success = 1
      BEGIN

        EXEC sp_OAMethod @bd, 'GetEncoded', @sTmp0 OUT, 'hex_lower'
        PRINT @oid + ': ' + @sTmp0
      END

    -- 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.

    SELECT @oid = '1.2.250.1.71.1.2.5'
    DECLARE @strXml nvarchar(4000)
    EXEC sp_OAMethod @cert, 'GetExtensionAsXml', @strXml OUT, @oid
    EXEC sp_OAGetProperty @cert, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 1
      BEGIN


        PRINT @oid + ': ' + @strXml
      END

    SELECT @oid = '1.2.250.1.71.1.2.2'
    EXEC sp_OAMethod @cert, 'GetExtensionAsXml', @strXml OUT, @oid
    EXEC sp_OAGetProperty @cert, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 1
      BEGIN


        PRINT @oid + ': ' + @strXml
      END

    SELECT @oid = '1.2.250.1.71.1.2.3'
    EXEC sp_OAMethod @cert, 'GetExtensionAsXml', @strXml OUT, @oid
    EXEC sp_OAGetProperty @cert, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 1
      BEGIN


        PRINT @oid + ': ' + @strXml
      END

    SELECT @oid = '1.2.250.1.71.1.2.7'
    EXEC sp_OAMethod @cert, 'GetExtensionAsXml', @strXml OUT, @oid
    EXEC sp_OAGetProperty @cert, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 1
      BEGIN


        PRINT @oid + ': ' + @strXml
      END

    SELECT @oid = '1.2.250.1.71.4.2.5'
    EXEC sp_OAMethod @cert, 'GetExtensionAsXml', @strXml OUT, @oid
    EXEC sp_OAGetProperty @cert, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 1
      BEGIN


        PRINT @oid + ': ' + @strXml
      END

    -- 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

    EXEC @hr = sp_OADestroy @cert
    EXEC @hr = sp_OADestroy @bd


END
GO