Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(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.
-- 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 EXEC @hr = sp_OACreate 'Chilkat_9_5_0.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 EXEC @hr = sp_OACreate 'Chilkat_9_5_0.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 |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.