Tcl

Base64 Encode/Decode a String

See more Encryption Examples

_LANGUAGE_ example to base-64 encode and decode a string. Tcl

load ./chilkat.dll

set success 0

set bd [new_CkBinData]

set s "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"

set success [CkBinData_AppendString $bd $s "utf-8"]

set strBase64 [CkBinData_getEncoded $bd "base64"]
puts "$strBase64"

# To decode:
set bd2 [new_CkBinData]

CkBinData_AppendEncoded $bd2 $strBase64 "base64"

set decoded [CkBinData_getString $bd2 "utf-8"]
puts "$decoded"

delete_CkBinData $bd
delete_CkBinData $bd2