SQL Server

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

See more ECC Examples

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.

SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    -- 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
    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'
    EXEC sp_OAMethod @fortuna, 'AddEntropy', @success OUT, @entropy, 'base64'

    DECLARE @ecc int
    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 @hr = sp_OACreate 'Chilkat.PrivateKey', @privKey OUT

    EXEC sp_OAMethod @ecc, 'GenKey', @success OUT, 'bp256r1', @fortuna, @privKey
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        EXEC @hr = sp_OADestroy @privKey
        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 sp_OAMethod @ecc, 'GenKey', @success OUT, 'bp160r1', @fortuna, @privKey
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        EXEC @hr = sp_OADestroy @privKey
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    EXEC sp_OAMethod @ecc, 'GenKey', @success OUT, 'bp192r1', @fortuna, @privKey
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        EXEC @hr = sp_OADestroy @privKey
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    EXEC sp_OAMethod @ecc, 'GenKey', @success OUT, 'bp224r1', @fortuna, @privKey
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        EXEC @hr = sp_OADestroy @privKey
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    EXEC sp_OAMethod @ecc, 'GenKey', @success OUT, 'bp320r1', @fortuna, @privKey
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        EXEC @hr = sp_OADestroy @privKey
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    EXEC sp_OAMethod @ecc, 'GenKey', @success OUT, 'bp384r1', @fortuna, @privKey
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        EXEC @hr = sp_OADestroy @privKey
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    EXEC sp_OAMethod @ecc, 'GenKey', @success OUT, 'bp512r1', @fortuna, @privKey
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @ecc, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @fortuna
        EXEC @hr = sp_OADestroy @ecc
        EXEC @hr = sp_OADestroy @privKey
        RETURN
      END
    EXEC sp_OAMethod @privKey, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0


    PRINT 'Finished generating Brainpool EC keys.'

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


END
GO