Perl

RSA OAEP Padding

See more RSA Examples

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

use chilkat();

$success = 0;

# 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:
$pubKeyXml = "<RSAPublicKey><Modulus>of3im3mRgd2NLXIGoK6uYLg6jj0Ug2b42rnqa5Tbwz2ieFqMJqt+++x2oqLYGurlz49nt+7/785g3XYWqoka4u9c9zul6YubIjnBM72dQy7rEkEfbUxgjcxqXyjZFx+FpaxFUecLu688XEu+9UA42VKiCgcl+E7TrqnfeeYpNXc=</Modulus><Exponent>AQAB</Exponent></RSAPublicKey>";

$pubKey = chilkat::CkPublicKey->new();
$success = $pubKey->LoadFromString($pubKeyXml);
if ($success == 0) {
    print $pubKey->lastErrorText() . "\r\n";
    exit;
}

$success = $rsa->UsePublicKey($pubKey);
if ($success == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

# To use Optimal Asymmetric Encryption Padding (OAEP) padding,
# simply set the PkcsPadding property to 0
$rsa->put_PkcsPadding(0);

# 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";