Perl Requires Chilkat v11.0.0+

RSA Encrypt with SHA-256 hash function and SHA-256 mask function

See more RSA Examples

How can this Javascript be duplicated using Chilkat?

function a(e, t) {
                var r = s.pki.publicKeyFromPem(e)
                  , n = r.encrypt(t, "RSA-OAEP", {
                    md: s.md.sha256.create(),
                    mgf1: {
                        md: s.md.sha1.create()
                    }
                });
                return s.util.encode64(n)
            }

Note: The OAEP padding uses random bytes in the padding, and therefore each time encryption happens, even using the same data and key, the result will be different -- but still valid. One should not expect to get the same output.

Perl

use chilkat();

$success = 0;

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

$pubkey = chilkat::CkPublicKey->new();

$sbPem = chilkat::CkStringBuilder->new();
$bCrlf = 1;
$sbPem->AppendLine("-----BEGIN PUBLIC KEY-----",$bCrlf);
$sbPem->AppendLine("MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA33TqqLR3eeUmDtHS89qF",$bCrlf);
$sbPem->AppendLine("3p4MP7Wfqt2Zjj3lZjLjjCGDvwr9cJNlNDiuKboODgUiT4ZdPWbOiMAfDcDzlOxA",$bCrlf);
$sbPem->AppendLine("04DDnEFGAf+kDQiNSe2ZtqC7bnIc8+KSG/qOGQIVaay4Ucr6ovDkykO5Hxn7OU7s",$bCrlf);
$sbPem->AppendLine("Jp9TP9H0JH8zMQA6YzijYH9LsupTerrY3U6zyihVEDXXOv08vBHk50BMFJbE9iwF",$bCrlf);
$sbPem->AppendLine("wnxCsU5+UZUZYw87Uu0n4LPFS9BT8tUIvAfnRXIEWCha3KbFWmdZQZlyrFw0buUE",$bCrlf);
$sbPem->AppendLine("f0YN3/Q0auBkdbDR/ES2PbgKTJdkjc/rEeM0TxvOUf7HuUNOhrtAVEN1D5uuxE1W",$bCrlf);
$sbPem->AppendLine("SwIDAQAB",$bCrlf);
$sbPem->AppendLine("-----END PUBLIC KEY-----",$bCrlf);

#  Load the public key object from the PEM. 
$success = $pubkey->LoadFromString($sbPem->getAsString());
if ($success == 0) {
    print $pubkey->lastErrorText() . "\r\n";
    exit;
}

$originalData = "This is the original data to be SHA-256 hashed and RSA encrypted.";

#  First we SHA-256 hash the original data.
$crypt = chilkat::CkCrypt2->new();
$crypt->put_HashAlgorithm("SHA-256");
$hashBytes = chilkat::CkByteData->new();
$success = $crypt->HashString($originalData,$hashBytes);

#  Now to RSA encrypt using OAEP padding with SHA-256 for the mask function.
$rsa = chilkat::CkRsa->new();
$rsa->put_PkcsPadding(0);
$rsa->put_OaepHash("SHA256");
$rsa->UsePublicKey($pubkey);
$rsa->put_EncodingMode("base64");

#  Note: The OAEP padding uses random bytes in the padding, and therefore each time encryption happens,
#  even using the same data and key, the result will be different --  but still valid.  One should not expect
#  to get the same output.
$bUsePrivateKey = 0;
$encryptedStr = $rsa->encryptBytesENC($hashBytes,$bUsePrivateKey);
if ($rsa->get_LastMethodSuccess() == 0) {
    print $rsa->lastErrorText() . "\r\n";
    exit;
}

print "Base64 RSA encrypted output: " . $encryptedStr . "\r\n";