![]() |
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
(Visual FoxPro) Generate RSA Key and Export to PKCS1 / PKCS8Visual FoxPro example code showing how to generate an RSA public/private key and save to PKCS1 and PKCS8 format files. In a PKCS1 or PKCS8 formatted file, the key is stored in binary ASN.1 format (and ASN.1 is itself written according to DER -- Distinguished Encoding Rules). A PEM file simply contains the binary ASN.1 base64 encoded and delimited by BEGIN/END lines. PKCS1 format files are never encrypted. PKCS8 can be encrypted or unencrypted. Public keys are never encrypted (there is no need). Private keys *should* always be encrypted - unless perhaps the unencrypted private key is obtained and itself stored in some sort of secure place. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loRsa LOCAL loPrivKey LOCAL loPubKey LOCAL lcPubKeyPem LOCAL lcPubKeyPkcs8Base64 LOCAL lcPubKeyPkcs1Base64 LOCAL lcPrivKeyPem LOCAL lcPrivKeyEncPem LOCAL lcPrivKeyPkcs1Base64 LOCAL lcPrivKeyPkcs8Base64 lnSuccess = 0 * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loRsa = CreateObject('Chilkat.Rsa') * Generate a 2048-bit key. Chilkat RSA supports * key sizes ranging from 512 bits to 8192 bits. loPrivKey = CreateObject('Chilkat.PrivateKey') lnSuccess = loRsa.GenKey(2048,loPrivKey) IF (lnSuccess = 0) THEN ? loRsa.LastErrorText RELEASE loRsa RELEASE loPrivKey CANCEL ENDIF * Get the public key loPubKey = CreateObject('Chilkat.PublicKey') loPrivKey.ToPublicKey(loPubKey) * Get the public key as a PKCS8 PEM string lcPubKeyPem = loPubKey.GetPem(0) ? lcPubKeyPem * Get the public key in PKCS8 format, in a Base64 encoded string. lcPubKeyPkcs8Base64 = loPubKey.GetEncoded(0,"base64") ? lcPubKeyPkcs8Base64 * Get the public key in PKCS1 format, in a Base64 encoded string. lcPubKeyPkcs1Base64 = loPubKey.GetEncoded(1,"base64") ? lcPubKeyPkcs1Base64 * Get the private key in a PKCS8 PEM string. lcPrivKeyPem = loPrivKey.GetPkcs8Pem() ? lcPrivKeyPem * Get the private key in a PKCS8 encrypted PEM string. lcPrivKeyEncPem = loPrivKey.GetPkcs8EncryptedPem("myPassword") ? lcPrivKeyEncPem * Get the private key in PKCS1 Base64 format lcPrivKeyPkcs1Base64 = loPrivKey.GetPkcs1ENC("base64") ? lcPrivKeyPkcs1Base64 * Get the private key in PKCS8 Base64 format lcPrivKeyPkcs8Base64 = loPrivKey.GetPkcs8ENC("base64") ? lcPrivKeyPkcs8Base64 * Save to PKCS1 / PKCS8 / PEM files... * Save the public key to PKCS8 binary DER lnSuccess = loPubKey.SaveDerFile(0,"pubKey_pkcs8.der") * Save the public key to PKCS1 binary DER lnSuccess = loPubKey.SaveDerFile("pubKey_pkcs1.der") * Save the private key to unencrypted binary PKCS1 DER. * Note: PKCS1 is never found in an encrypted format. lnSuccess = loPrivKey.SavePkcs1File("privKey_pkcs1.der") * Save the private key to unencrypted binary PKCS8 lnSuccess = loPrivKey.SavePkcs8File("privKey_pkcs8.der") * Save the private key to encrypted binary PKCS8 lnSuccess = loPrivKey.SavePkcs8EncryptedFile("myPassword","privKey_enc_pkcs8.der") * Save the private key to unencrypted PKCS8 PEM lnSuccess = loPrivKey.SavePkcs8PemFile("privKey.pem") * Save the private key to encrypted PKCS8 PEM lnSuccess = loPrivKey.SavePkcs8EncryptedPemFile("myPassword","privKey_enc.pem") RELEASE loRsa RELEASE loPrivKey RELEASE loPubKey |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.