Encrypt/Decrypt Tcl Source Code