![]() |
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
(Perl) RSA Encrypt Randomly Generated AES KeyDemonstrates how to RSA encrypt a randomly generated AES key.
use chilkat(); # 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). $prng = chilkat::CkPrng->new(); $bdAesKey = chilkat::CkBinData->new(); $success = $prng->GenRandomBd(32,$bdAesKey); # Use a public key from a certificate for RSA encryption. $cert = chilkat::CkCert->new(); $success = $cert->LoadFromFile("qa_data/pem/mf_public_rsa.pem"); if ($success == 0) { print $cert->lastErrorText() . "\r\n"; exit; } # pubKey is a PublicKey $pubKey = $cert->ExportPublicKey(); if ($cert->get_LastMethodSuccess() != 1) { print $cert->lastErrorText() . "\r\n"; exit; } $rsa = chilkat::CkRsa->new(); $success = $rsa->ImportPublicKeyObj($pubKey); if ($success == 0) { print $rsa->lastErrorText() . "\r\n"; exit; } # RSA encrypt our 32-byte AES key. # The contents of bdAesKey are replaced with result of the RSA encryption. $success = $rsa->EncryptBd($bdAesKey,0); if ($success == 0) { print $rsa->lastErrorText() . "\r\n"; exit; } # Return the result as a base64 string $encryptedAesKey = $bdAesKey->getEncoded("base64"); print "encrypted AES key = " . $encryptedAesKey . "\r\n"; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.