(SQL Server) Generate Brainpool EC Keys (BP256R1, BP384R1, BP512R1, ...)

Demonstrates how to generate brainpool EC keys.

The brainpool elliptic curve (EC) is a set of standardized elliptic curves defined for use in cryptographic applications. These curves are defined over finite fields and are widely used for implementing elliptic curve cryptography (ECC) algorithms.

The brainpool curves were developed by the brainpool project, a collaborative effort initiated by the German Federal Office for Information Security (BSI) to define standardized elliptic curves with well-established security properties.

Note: Requires Chilkat v9.5.0.98 or later.

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)
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    -- Create a Fortuna PRNG and seed it with system entropy.
    -- This will be our source of random data for generating the brainpool EC private key.
    DECLARE @fortuna int
    -- Use "Chilkat_9_5_0.Prng" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Prng', @fortuna OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @entropy nvarchar(4000)
    EXEC sp_OAMethod @fortuna, 'GetEntropy', @entropy OUT, 32, 'base64'
    DECLARE @success int
    EXEC sp_OAMethod @fortuna, 'AddEntropy', @success OUT, @entropy, 'base64'

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

    -- You can generate keys using any of the following brainpool EC curves:
    -- (case does not matter)  
    -- BP160R1
    -- BP192R1
    -- BP224R1
    -- BP256R1
    -- BP320R1
    -- BP384R1
    -- BP512R1

    DECLARE @privKey int
    EXEC sp_OAMethod @ecc, 'GenEccKey', @privKey OUT, 'bp256r1', @fortuna
    EXEC sp_OAGetProperty @ecc, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        RETURN
      END

    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    -- Save the private key to PKCS8 encrypted PEM
    -- (The private key can be saved in a variety of different formats. See the online reference documentation.)
    EXEC sp_OAMethod @privKey, 'SavePkcs8EncryptedPemFile', @success OUT, 'pemPassword', 'c:/temp/qa_output/eccKey123.pem'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @privKey, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
      END

    EXEC @hr = sp_OADestroy @privKey

    EXEC sp_OAMethod @ecc, 'GenEccKey', @privKey OUT, 'bp160r1', @fortuna
    EXEC sp_OAGetProperty @ecc, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @privKey

    EXEC sp_OAMethod @ecc, 'GenEccKey', @privKey OUT, 'bp192r1', @fortuna
    EXEC sp_OAGetProperty @ecc, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @privKey

    EXEC sp_OAMethod @ecc, 'GenEccKey', @privKey OUT, 'bp224r1', @fortuna
    EXEC sp_OAGetProperty @ecc, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @privKey

    EXEC sp_OAMethod @ecc, 'GenEccKey', @privKey OUT, 'bp320r1', @fortuna
    EXEC sp_OAGetProperty @ecc, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @privKey

    EXEC sp_OAMethod @ecc, 'GenEccKey', @privKey OUT, 'bp384r1', @fortuna
    EXEC sp_OAGetProperty @ecc, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @privKey

    EXEC sp_OAMethod @ecc, 'GenEccKey', @privKey OUT, 'bp512r1', @fortuna
    EXEC sp_OAGetProperty @ecc, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0
    EXEC @hr = sp_OADestroy @privKey


    PRINT 'Finished generating Brainpool EC keys.'

    EXEC @hr = sp_OADestroy @fortuna
    EXEC @hr = sp_OADestroy @ecc


END
GO