Perl

RSA Encrypt and OpenSSL Decrypt

See more OpenSSL Examples

Demonstrates how to use Chilkat to RSA encrypt, and then use OpenSSL to decrypt. Perl

use chilkat();

$success = 0;

# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$rsa = chilkat::CkRsa->new();

$privKey = chilkat::CkPrivateKey->new();
$success = $rsa->GenKey(2048,$privKey);
$success = $privKey->SavePkcs8PemFile("qa_output/privKey.pem");

$pubKey = chilkat::CkPublicKey->new();
$privKey->ToPublicKey($pubKey);

$rsa->put_EncodingMode("base64");
$plainText = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890";
$bUsePrivateKey = 0;
$rsa->UsePublicKey($pubKey);
$encryptedStr = $rsa->encryptStringENC($plainText,$bUsePrivateKey);

$bd = chilkat::CkBinData->new();
$bd->AppendEncoded($encryptedStr,"base64");
$success = $bd->WriteFile("qa_output/enc.dat");

# The OpenSSL command to decrypt is:
# openssl pkeyutl -in enc.dat -inkey privKey.pem -keyform PEM -pkeyopt rsa_padding_mode:pkcs1 -decrypt

print "OK" . "\r\n";