Tcl字节码加密工具tbcload的解码

关于用tbcload加密Tcl代码，参见：用TclPro中的tbcload加密Tcl代码

tbcload代码的解码

========= tbcfile =========
TclPro        : TclPro
ByteCode      : ByteCode
formatNumber  : 1
buildNumber   : 0
cmpVersion    : 1.3
tclVersion    : 8.3
-------- tbcblock --------
numCommands         = 3
numSrcBytes         = 0
numCodeBytes        = 33
numLitObjects       = 11
numExceptRange      = 0
numAuxDataItems     = 0
numCmdLocBytes      = 12
maxExceptDepth      = 0
maxStackDepth       = 6
codeDeltaSize       = 3
codeLengthSize      = 3
srcDeltaSize        = -1
srcLengthSize       = -1
-------- bytecode --------
010001010102010301040105060603010a01050107010806040301090101060200000000

literal 0 : 6 | button # 7YDEFTnw
literal 1 : 2 | .b # yIw
literal 2 : 5 | -text # Kt(yG@v
literal 3 : 12 | Hello TclPro # RZ!iChROo@jZSfD
literal 4 : 8 | -command # 9oW/DmgY8A
literal 5 : 11 | cbk_clicked # y+aY?hafq@VY|+
literal 6 : 4 | proc # ,CHr@
literal 7 : 4 | args # %N|(F
-------- proc --------
-------- tbcblock --------
numCommands         = 1
numSrcBytes         = 0
numCodeBytes        = 11
numLitObjects       = 2
numExceptRange      = 0
numAuxDataItems     = 0
numCmdLocBytes      = 4
maxExceptDepth      = 0
maxStackDepth       = 2
codeDeltaSize       = 1
codeLengthSize      = 1
srcDeltaSize        = -1
srcLengthSize       = -1
-------- bytecode --------
010001010a00050206020000

literal 0 : 4 | puts # DP)*F
literal 1 : 8 | Haha...  # ?(';@!9,>+
  arg 0 : args 0 0 257 # %N|(F
-------- proc end --------
literal 9 : 4 | pack # ld^LC
literal 10 : 15 | tbcload::bcproc # rpwhC;Z2b3<?<+EfqT+