(Tcl) RSA Signature SHA256withRSA, iso-8859-1, base64

See more RSA Examples

RSA sign the iso-8859-1 byte representation of a string with SHA256withRSA, and return the signature in the base64 encoding.

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.

# This example will duplicate the following Java code:
# 
# Signature sign = Signature.getInstance("SHA256withRSA");
# sign.initSign(privateKey);
# sign.update(original.getBytes(Charset.forName("ISO-8859-1")));
# 
# ...
# byte[] resultado = sign.sign();
# sello = encodeByteArrayToBase64(resultado);
# 

# Load an RSA private key for signing.
# You can load any format file.  This example loads a .pem, but you can provide path to any type of file holding a private key.
set privKey [new_CkPrivateKey]

set success [CkPrivateKey_LoadAnyFormatFile $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 iso-8859-1 byte representation of the string to be signed
CkRsa_put_Charset $rsa "iso-8859-1"

# 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