(PowerBuilder) RSA Sign utf-8 Bytes of String to get Base64 RSA Signature

See more Apple Keychain Examples

Demonstrates how RSA sign the utf-8 byte representation of a string to get the signature in base64 format.

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

integer li_rc
oleobject loo_Cert
integer li_Success
oleobject loo_Sb
integer li_CrlfLineEnding
integer i
oleobject loo_Rsa
string ls_StringToSign
string ls_SigBase64

// Assuming the smartcard/USB token is installed with the correct drivers from the manufacturer,
// this code can work on multiple platforms including Windows, MacOS, Linux, and iOS.

// Chilkat automatically detects and determines the way in which the HSM is used,
// which can be by PKCS11, Apple Keychain, Microsoft CNG / Crypto API, or ScMinidriver.

loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Set the token/smartcard PIN prior to loading.
loo_Cert.SmartCardPin = "123456"

// Specify the certificate by its common name.
li_Success = loo_Cert.LoadFromSmartcard("cn=chilkat-rsa-2048")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

Write-Debug "Signing with cert: " + loo_Cert.SubjectCN

// Create a string to be hashed and signed.
loo_Sb = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")

li_CrlfLineEnding = 1

for i = 0 to 10
    loo_Sb.AppendLine("This is a test.",li_CrlfLineEnding)
next

loo_Rsa = create oleobject
// Use "Chilkat_9_5_0.Rsa" for versions of Chilkat < 10.0.0
li_rc = loo_Rsa.ConnectToNewObject("Chilkat.Rsa")

// Use the certificate's private key for signing.
li_Success = loo_Rsa.SetX509Cert(loo_Cert,1)
if li_Success = 0 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Cert
    destroy loo_Sb
    destroy loo_Rsa
    return
end if

// Sign the SHA-256 hash of the utf-8 byte representation of the contents of sb
// Return the signature in base64 format.
loo_Rsa.EncodingMode = "base64"
loo_Rsa.Charset = "utf-8"
ls_StringToSign = loo_Sb.GetAsString()
ls_SigBase64 = loo_Rsa.SignStringENC(ls_StringToSign,"sha256")
if loo_Rsa.LastMethodSuccess = 0 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Cert
    destroy loo_Sb
    destroy loo_Rsa
    return
end if

Write-Debug "RSA signature as base64: " + ls_SigBase64


destroy loo_Cert
destroy loo_Sb
destroy loo_Rsa