![]() |
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) RSA Encrypt Randomly Generated AES KeyDemonstrates how to RSA encrypt a randomly generated AES key. Note: This example requires Chilkat v11.0.0 or greater.
LOCAL lnSuccess LOCAL loPrng LOCAL loBdAesKey LOCAL loCert LOCAL loPubKey LOCAL loRsa LOCAL lcEncryptedAesKey lnSuccess = 0 * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * First generate a 256-bit AES key (32 bytes). loPrng = CreateObject('Chilkat.Prng') loBdAesKey = CreateObject('Chilkat.BinData') lnSuccess = loPrng.GenRandomBd(32,loBdAesKey) * Use a public key from a certificate for RSA encryption. loCert = CreateObject('Chilkat.Cert') lnSuccess = loCert.LoadFromFile("qa_data/pem/mf_public_rsa.pem") IF (lnSuccess = 0) THEN ? loCert.LastErrorText RELEASE loPrng RELEASE loBdAesKey RELEASE loCert CANCEL ENDIF loPubKey = loCert.ExportPublicKey() IF (loCert.LastMethodSuccess = 0) THEN ? loCert.LastErrorText RELEASE loPrng RELEASE loBdAesKey RELEASE loCert CANCEL ENDIF loRsa = CreateObject('Chilkat.Rsa') lnSuccess = loRsa.UsePublicKey(loPubKey) IF (lnSuccess = 0) THEN ? loRsa.LastErrorText RELEASE loPrng RELEASE loBdAesKey RELEASE loCert RELEASE loRsa CANCEL ENDIF RELEASE loPubKey * RSA encrypt our 32-byte AES key. * The contents of bdAesKey are replaced with result of the RSA encryption. lnSuccess = loRsa.EncryptBd(loBdAesKey,0) IF (lnSuccess = 0) THEN ? loRsa.LastErrorText RELEASE loPrng RELEASE loBdAesKey RELEASE loCert RELEASE loRsa CANCEL ENDIF * Return the result as a base64 string lcEncryptedAesKey = loBdAesKey.GetEncoded("base64") ? "encrypted AES key = " + lcEncryptedAesKey RELEASE loPrng RELEASE loBdAesKey RELEASE loCert RELEASE loRsa |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.