Visual Basic 6.0

RSA Encrypt with SHA-256 hash function and SHA-256 mask function

See more RSA Examples

How can this Javascript be duplicated using Chilkat?

function a(e, t) {
                var r = s.pki.publicKeyFromPem(e)
                  , n = r.encrypt(t, "RSA-OAEP", {
                    md: s.md.sha256.create(),
                    mgf1: {
                        md: s.md.sha1.create()
                    }
                });
                return s.util.encode64(n)
            }

Note: The OAEP padding uses random bytes in the padding, and therefore each time encryption happens, even using the same data and key, the result will be different -- but still valid. One should not expect to get the same output.

Visual Basic 6.0

Dim success As Long
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim pubkey As New PublicKey

Dim sbPem As New ChilkatStringBuilder
Dim bCrlf As Long
bCrlf = 1
success = sbPem.AppendLine("-----BEGIN PUBLIC KEY-----",bCrlf)
success = sbPem.AppendLine("MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA33TqqLR3eeUmDtHS89qF",bCrlf)
success = sbPem.AppendLine("3p4MP7Wfqt2Zjj3lZjLjjCGDvwr9cJNlNDiuKboODgUiT4ZdPWbOiMAfDcDzlOxA",bCrlf)
success = sbPem.AppendLine("04DDnEFGAf+kDQiNSe2ZtqC7bnIc8+KSG/qOGQIVaay4Ucr6ovDkykO5Hxn7OU7s",bCrlf)
success = sbPem.AppendLine("Jp9TP9H0JH8zMQA6YzijYH9LsupTerrY3U6zyihVEDXXOv08vBHk50BMFJbE9iwF",bCrlf)
success = sbPem.AppendLine("wnxCsU5+UZUZYw87Uu0n4LPFS9BT8tUIvAfnRXIEWCha3KbFWmdZQZlyrFw0buUE",bCrlf)
success = sbPem.AppendLine("f0YN3/Q0auBkdbDR/ES2PbgKTJdkjc/rEeM0TxvOUf7HuUNOhrtAVEN1D5uuxE1W",bCrlf)
success = sbPem.AppendLine("SwIDAQAB",bCrlf)
success = sbPem.AppendLine("-----END PUBLIC KEY-----",bCrlf)

' Load the public key object from the PEM. 
success = pubkey.LoadFromString(sbPem.GetAsString())
If (success = 0) Then
    Debug.Print pubkey.LastErrorText
    Exit Sub
End If

Dim originalData As String
originalData = "This is the original data to be SHA-256 hashed and RSA encrypted."

' First we SHA-256 hash the original data.
Dim crypt As New ChilkatCrypt2
crypt.HashAlgorithm = "SHA-256"
Dim hashBytes() As Byte
hashBytes = crypt.HashString(originalData)

' Now to RSA encrypt using OAEP padding with SHA-256 for the mask function.
Dim rsa As New ChilkatRsa
rsa.PkcsPadding = 0
rsa.OaepHash = "SHA256"
success = rsa.UsePublicKey(pubkey)
rsa.EncodingMode = "base64"

' Note: The OAEP padding uses random bytes in the padding, and therefore each time encryption happens,
' even using the same data and key, the result will be different --  but still valid.  One should not expect
' to get the same output.
Dim bUsePrivateKey As Long
bUsePrivateKey = 0
Dim encryptedStr As String
encryptedStr = rsa.EncryptBytesENC(hashBytes,bUsePrivateKey)
If (rsa.LastMethodSuccess = 0) Then
    Debug.Print rsa.LastErrorText
    Exit Sub
End If

Debug.Print "Base64 RSA encrypted output: " & encryptedStr