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
(Classic ASP) Generate an ECC KeyDemonstrates how to generate an ECC key.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' All Chilkat classes can be unlocked at once at the beginning of a program ' by calling UnlockBundle. It requires a Bundle unlock code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Global") set chilkatGlob = Server.CreateObject("Chilkat.Global") success = chilkatGlob.UnlockBundle("Anything for 30-day trial.") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( chilkatGlob.LastErrorText) & "</pre>" Response.End End If ' Create a Fortuna PRNG and seed it with system entropy. ' This will be our source of random data for generating the ECC private key. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Prng") set fortuna = Server.CreateObject("Chilkat.Prng") entropy = fortuna.GetEntropy(32,"base64") success = fortuna.AddEntropy(entropy,"base64") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Ecc") set ecc = Server.CreateObject("Chilkat.Ecc") ' Generate a random ECC private key on the secp256r1 curve. ' Chilkat also supports other curves, such as secp384r1, secp521r1, and secp256k1. ' privKey is a Chilkat.PrivateKey Set privKey = ecc.GenEccKey("secp256r1",fortuna) If (ecc.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( ecc.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( privKey.GetXml()) & "</pre>" ' 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.) success = privKey.SavePkcs8EncryptedPemFile("pemPassword","myPemFiles/eccKey123.pem") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( privKey.LastErrorText) & "</pre>" End If Response.Write "<pre>" & Server.HTMLEncode( "finished.") & "</pre>" %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.