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.
Dim rsa As New Chilkat.Rsa() Dim success As Boolean success = rsa.UnlockComponent("Anything for 30-day trial") If (success <> true) Then MsgBox("RSA component unlock failed") Exit Sub End If ' RSA public key in XML format: Dim publicKey As String 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 = true ' Encrypt a string and return the encrypted data base64-encoded: rsa.EncodingMode = "base64" Dim plainText As String plainText = "RSA Encryption should be easy." Dim usePrivateKey As Boolean usePrivateKey = false Dim encryptedStr As String encryptedStr = rsa.EncryptStringENC(plainText,usePrivateKey) TextBox1.Text = TextBox1.Text & encryptedStr & vbCrLf TextBox1.Refresh() |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.