Visual Basic 6.0

RSA OAEP Padding

See more RSA Examples

Demonstrates how to use OAEP padding with the RSA encryption algorithm. More information about OAEP Padding. Visual Basic 6.0

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