(PowerBuilder) RSA Encrypt Hash using SHA256 hash function and SHA1 mask function

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.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Pubkey
oleobject loo_SbPem
integer li_BCrlf
string ls_OriginalData
oleobject loo_Crypt
string ls_HashBase64
oleobject loo_Rsa
integer li_BUsePrivateKey
string ls_EncryptedStr

li_Success = 0

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

loo_Pubkey = create oleobject
li_rc = loo_Pubkey.ConnectToNewObject("Chilkat.PublicKey")
if li_rc < 0 then
    destroy loo_Pubkey
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_SbPem = create oleobject
li_rc = loo_SbPem.ConnectToNewObject("Chilkat.StringBuilder")

li_BCrlf = 1
loo_SbPem.AppendLine("-----BEGIN PUBLIC KEY-----",li_BCrlf)
loo_SbPem.AppendLine("MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA33TqqLR3eeUmDtHS89qF",li_BCrlf)
loo_SbPem.AppendLine("3p4MP7Wfqt2Zjj3lZjLjjCGDvwr9cJNlNDiuKboODgUiT4ZdPWbOiMAfDcDzlOxA",li_BCrlf)
loo_SbPem.AppendLine("04DDnEFGAf+kDQiNSe2ZtqC7bnIc8+KSG/qOGQIVaay4Ucr6ovDkykO5Hxn7OU7s",li_BCrlf)
loo_SbPem.AppendLine("Jp9TP9H0JH8zMQA6YzijYH9LsupTerrY3U6zyihVEDXXOv08vBHk50BMFJbE9iwF",li_BCrlf)
loo_SbPem.AppendLine("wnxCsU5+UZUZYw87Uu0n4LPFS9BT8tUIvAfnRXIEWCha3KbFWmdZQZlyrFw0buUE",li_BCrlf)
loo_SbPem.AppendLine("f0YN3/Q0auBkdbDR/ES2PbgKTJdkjc/rEeM0TxvOUf7HuUNOhrtAVEN1D5uuxE1W",li_BCrlf)
loo_SbPem.AppendLine("SwIDAQAB",li_BCrlf)
loo_SbPem.AppendLine("-----END PUBLIC KEY-----",li_BCrlf)

// Load the public key object from the PEM. 
li_Success = loo_Pubkey.LoadFromString(loo_SbPem.GetAsString())
if li_Success = 0 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_Pubkey
    destroy loo_SbPem
    return
end if

ls_OriginalData = "This is the original data to be SHA-256 hashed and RSA encrypted."

// First we SHA-256 hash the original data to get the hash in base64 format:
loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

loo_Crypt.HashAlgorithm = "SHA-256"
loo_Crypt.EncodingMode = "base64"
ls_HashBase64 = loo_Crypt.HashStringENC(ls_OriginalData)

// Setup RSA to use OAEP padding with SHA-1 for the mask function.
loo_Rsa = create oleobject
li_rc = loo_Rsa.ConnectToNewObject("Chilkat.Rsa")

loo_Rsa.PkcsPadding = 0
loo_Rsa.OaepHash = "SHA256"
loo_Rsa.UsePublicKey(loo_Pubkey)
loo_Rsa.EncodingMode = "base64"

// We can provide a binary encoding mode, such as "base64", "hex", "base64url", etc.
// for the Charset property.   The Charset property was previously limited to character encodings, such as
// "utf-8", "iso-8859-1", etc.  If a binary encoding is used, then the string passed in is decoded to the binary
// bytes as indicated.  (If an actual charset, such as "utf-8" is used, then the input string is converted to the
// byte representation of the charset, and then encrypted.)

// Given that a hash is composed of non-text binary bytes, we'll set the Charset property equal to "base64" 
// (because we have the base64 hash from above).
loo_Rsa.Charset = "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.
li_BUsePrivateKey = 0
ls_EncryptedStr = loo_Rsa.EncryptStringENC(ls_HashBase64,li_BUsePrivateKey)
if loo_Rsa.LastMethodSuccess = 0 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Pubkey
    destroy loo_SbPem
    destroy loo_Crypt
    destroy loo_Rsa
    return
end if

Write-Debug "Base64 RSA encrypted output: " + ls_EncryptedStr


destroy loo_Pubkey
destroy loo_SbPem
destroy loo_Crypt
destroy loo_Rsa