(Tcl) RSA Sign using Base64 Private Key

Signs a string using a non-encrypted RSA private key in base64 encoding. Returns the RSA signature as a base64 string.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set privKey [new_CkPrivateKey]

set sbPem [new_CkStringBuilder]

CkStringBuilder_AppendLine $sbPem "-----BEGIN RSA PRIVATE KEY-----" 1
CkStringBuilder_AppendLine $sbPem "MIIC .... j5A==" 1
CkStringBuilder_AppendLine $sbPem "-----END RSA PRIVATE KEY-----" 1

set success [CkPrivateKey_LoadPem $privKey [CkStringBuilder_getAsString $sbPem]]
if {$success != 1} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkPrivateKey $privKey
    delete_CkStringBuilder $sbPem
    exit
}

set rsa [new_CkRsa]

set success [CkRsa_ImportPrivateKeyObj $rsa $privKey]
if {$success != 1} then {
    puts [CkRsa_lastErrorText $rsa]
    delete_CkPrivateKey $privKey
    delete_CkStringBuilder $sbPem
    delete_CkRsa $rsa
    exit
}

CkRsa_put_EncodingMode $rsa "base64"
set strSigned [CkRsa_openSslSignStringENC $rsa "12345678"]
puts "$strSigned"

set strOriginal [CkRsa_openSslVerifyStringENC $rsa $strSigned]
puts "$strOriginal"

delete_CkPrivateKey $privKey
delete_CkStringBuilder $sbPem
delete_CkRsa $rsa