Perl Requires Chilkat v11.0.0+

Encrypt with Chilkat, Decrypt with OpenSSL

See more OpenSSL Examples

Demonstrates how to RSA encrypt a string using Chilkat, and then shows the corresponding OpenSSL command to RSA decrypt. The OpenSSL command to decrypt is as follows:

openssl rsautl -decrypt -inkey VP_Private.pem -in rsa_encrypted.bin -out original.txt

Perl

use chilkat();

$success = 0;

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

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

#  Note: RSA encryption uses the public key.  
#  RSA decryption uses the private key.
#  The reason is that the public key can be freely provided to anybody.  This allows anybody
#  to send an encrypted message to the private key owner, and only the private key owner 
#  can decrypt.
$key = chilkat::CkPublicKey->new();

#  Load an RSA public key from a PEM file:
$success = $key->LoadFromFile("qa_data/pem/VP_Public.pem");
if ($success == 0) {
    print $key->lastErrorText() . "\r\n";
    exit;
}

#  Load the public key into the RSA object.
$success = $rsa->UsePublicKey($key);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

$strToEncrypt = "00000000;XYZ2-3BHQ-ABCD-MMVV;6MY1-GHJK-9LRR;0";

#  The LittleEndian property is 0 by default, but it is set here
#  anyway to show that LittleEndian byte ordering is required for OpenSSL compatibility.
$rsa->put_LittleEndian(0);

$usePrivateKey = 0;
$encryptedBytes = chilkat::CkByteData->new();
$success = $rsa->EncryptString($strToEncrypt,$usePrivateKey,$encryptedBytes);
if ($rsa->get_LastMethodSuccess() == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

#  The OpenSSL command to decrypt would be this:
#  openssl rsautl -decrypt -inkey VP_Private.pem -in rsa_encrypted.bin -out original.txt

$fac = chilkat::CkFileAccess->new();
$success = $fac->WriteEntireFile("qa_output/rsa_encrypted.bin",$encryptedBytes);
if ($success == 0) {
    print $fac->lastErrorText() . "\r\n";
    exit;
}

print "RSA Encryption Succeeded." . "\r\n";