(Perl) RSA OAEP Padding

Demonstrates how to use OAEP padding with the RSA encryption algorithm. More information about OAEP Padding.

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

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

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

# RSA public key in XML format:
$publicKey = "<RSAPublicKey><Modulus>of3im3mRgd2NLXIGoK6uYLg6jj0Ug2b42rnqa5Tbwz2ieFqMJqt+++x2oqLYGurlz49nt+7/785g3XYWqoka4u9c9zul6YubIjnBM72dQy7rEkEfbUxgjcxqXyjZFx+FpaxFUecLu688XEu+9UA42VKiCgcl+E7TrqnfeeYpNXc=</Modulus><Exponent>AQAB</Exponent></RSAPublicKey>";

$success = $rsa->ImportPublicKey($publicKey);

# To use Optimal Asymmetric Encryption Padding (OAEP) padding,
# simply set the OaepPadding property:
$rsa->put_OaepPadding(1);

# Encrypt a string and return the encrypted data base64-encoded:
$rsa->put_EncodingMode("base64");

$plainText = "RSA Encryption should be easy.";

$usePrivateKey = 0;
$encryptedStr = $rsa->encryptStringENC($plainText,$usePrivateKey);
print $encryptedStr . "\r\n";