![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) Generate an RSA Key and Get as Base64 DERDemonstrates how to generate a 2048-bit RSA key and return the public and private parts as unencrypted Base64 encoded DER. Note: This example requires Chilkat v11.0.0 or greater.
IncludeFile "CkPublicKey.pb" IncludeFile "CkPrivateKey.pb" IncludeFile "CkRsa.pb" Procedure ChilkatExample() success.i = 0 ; This example assumes the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. rsa.i = CkRsa::ckCreate() If rsa.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Generate a 2048-bit key. privKey.i = CkPrivateKey::ckCreate() If privKey.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkRsa::ckGenKey(rsa,2048,privKey) If success = 0 Debug CkRsa::ckLastErrorText(rsa) CkRsa::ckDispose(rsa) CkPrivateKey::ckDispose(privKey) ProcedureReturn EndIf ; Get the public part of the key. pubKey.i = CkPublicKey::ckCreate() If pubKey.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkPrivateKey::ckToPublicKey(privKey,pubKey) ; There are two possible formats for representing the RSA public key ; in ASN.1 (DER). The possible formats are PKCS1 and PKCS8. ; We can get either by setting bChoosePkcs1 to 1 or 0. bChoosePkcs1.i = 1 pubKeyBase64Der.s = CkPublicKey::ckGetEncoded(pubKey,bChoosePkcs1,"base64") Debug "Public Key Base64 DER:" Debug pubKeyBase64Der ; Get the private key as Base64 DER: ; We can get PKCS1 or PKCS8, but with different methods: privKeyPkcs1.s = CkPrivateKey::ckGetPkcs1ENC(privKey,"base64") Debug "Private Key PKCS1 Base64 DER:" Debug privKeyPkcs1 privKeyPkcs8.s = CkPrivateKey::ckGetPkcs8ENC(privKey,"base64") Debug "Private Key PKCS8 Base64 DER:" Debug privKeyPkcs8 CkRsa::ckDispose(rsa) CkPrivateKey::ckDispose(privKey) CkPublicKey::ckDispose(pubKey) ProcedureReturn EndProcedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.