Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
RSA OAEP Padding
Demonstrates 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() |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.