Tcl

Decode Base64 to Zip File

See more Base64 Examples

Shows how to decode a baes64 string that is the encoded representation of the bytes that make up a .zip archive. Decodes the base64 and writes the .zip file. Tcl

load ./chilkat.dll

set success 0

set b64 "UEsDBBQA ... AAALgQAAAAA"

set zipData [new_CkBinData]

set success [CkBinData_AppendEncoded $zipData $b64 "base64"]
set success [CkBinData_WriteFile $zipData "qa_output/out.zip"]
if {$success != 1} then {
    puts "failed to write Zip file."
    delete_CkBinData $zipData
    exit
}


delete_CkBinData $zipData