Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
RSA OAEP PaddingDemonstrates how to use OAEP padding with the RSA encryption algorithm. More information about OAEP Padding. uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATRSALib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var rsa: TChilkatRsa; success: Integer; publicKey: String; plainText: String; usePrivateKey: Integer; encryptedStr: String; begin rsa := TChilkatRsa.Create(Self); success := rsa.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage('RSA component unlock failed'); end; // RSA public key in XML format: publicKey := '<RSAKeyValue><Modulus>of3im3mRgd2NLXIGoK6uYLg6jj0Ug2b42rnqa5Tbwz2ieFqMJqt+++x2oqLYGurlz49nt+7/785g3XYWqoka4u9c9zul6YubIjnBM72dQy7rEkEfbUxgjcxqXyjZFx+FpaxFUecLu688XEu+9UA42VKiCgcl+E7TrqnfeeYpNXc=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue>'; rsa.ImportPublicKey(publicKey); // To use Optimal Asymmetric Encryption Padding (OAEP) padding, // simply set the OaepPadding property: rsa.OaepPadding := 1; // Encrypt a string and return the encrypted data base64-encoded: rsa.EncodingMode := 'base64'; plainText := 'RSA Encryption should be easy.'; usePrivateKey := 0; encryptedStr := rsa.EncryptStringENC(plainText,usePrivateKey); Memo1.Lines.Add(encryptedStr); end; |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.