Tcl

RSA Sign utf-8 Byte Representation of String

See more RSA Examples

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

load ./chilkat.dll

set success 0

# 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 == 0} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkPrivateKey $privKey
    exit
}

set rsa [new_CkRsa]

set success [CkRsa_UsePrivateKey $rsa $privKey]
if {$success == 0} then {
    puts [CkRsa_lastErrorText $rsa]
    delete_CkPrivateKey $privKey
    delete_CkRsa $rsa
    exit
}

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