(Tcl) RSA Sign utf-8 Byte Representation of String

Demontstrates how to sign the utf-8 byte representation of a string.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# Load an RSA private key for signing.
set privKey [new_CkPrivateKey]

set success [CkPrivateKey_LoadEncryptedPemFile $privKey "qa_data/pem/rsa_passwd.pem" "passwd"]
if {$success != 1} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkPrivateKey $privKey
    exit
}

set rsa [new_CkRsa]

CkRsa_ImportPrivateKeyObj $rsa $privKey

set originalData "This is the string to be hashed an RSA signed."

# Indicate that we want the utf-8 byte representation of the string to be signed
CkRsa_put_Charset $rsa "utf-8"

# We want the RSA signature in base64 format
CkRsa_put_EncodingMode $rsa "base64"

set sigBase64 [CkRsa_signStringENC $rsa $originalData "sha256"]
puts "$sigBase64"

delete_CkPrivateKey $privKey
delete_CkRsa $rsa