![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual Basic 6.0) RSA OAEP PaddingDemonstrates how to use OAEP padding with the RSA encryption algorithm. More information about OAEP Padding. Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Long success = 0 ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim rsa As New ChilkatRsa ' RSA public key in XML format: Dim pubKeyXml As String pubKeyXml = "<RSAPublicKey><Modulus>of3im3mRgd2NLXIGoK6uYLg6jj0Ug2b42rnqa5Tbwz2ieFqMJqt+++x2oqLYGurlz49nt+7/785g3XYWqoka4u9c9zul6YubIjnBM72dQy7rEkEfbUxgjcxqXyjZFx+FpaxFUecLu688XEu+9UA42VKiCgcl+E7TrqnfeeYpNXc=</Modulus><Exponent>AQAB</Exponent></RSAPublicKey>" Dim pubKey As New PublicKey success = pubKey.LoadFromString(pubKeyXml) If (success = 0) Then Debug.Print pubKey.LastErrorText Exit Sub End If success = rsa.UsePublicKey(pubKey) If (success = 0) Then Debug.Print rsa.LastErrorText Exit Sub End If ' To use Optimal Asymmetric Encryption Padding (OAEP) padding, ' simply set the PkcsPadding property to 0 rsa.PkcsPadding = 0 ' 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 Long usePrivateKey = 0 Dim encryptedStr As String encryptedStr = rsa.EncryptStringENC(plainText,usePrivateKey) Debug.Print encryptedStr |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.