后处理加密工具tbcload13.dll解密代码

Magnetic_man

我想咨询一下，我用了软件加密成功了tbc，后来也把tbc改为tcl，template_post.dat里也设置了改变，但是无法正常后处理，还是报警

yyyu777

不要上当     解压后就这玩意！！！！！！！！！！！！！！！！！！！！！！！！！！

========= 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+

REDFIRE911

http://noyesno.net/page/tcltk/tbcload.html

狼儿

这个怎么使用有没有说得

yangjianqi

这个怎么使用有没有说得

REDFIRE911

用TclPro中的tbcload加密Tcl代码
风行水上 @ 2014-07-02 11:18:51
标签： tcltk 加密tbcload
TclPro包含有工具用于加密Tcl代码。这显然需要两步：加密和解密。

目前免费的TclPro版本是 TclPro 1.4，只支持Tcl 8.3。

加密
测试用Tcl代码:

# File: t.cl

button .b -text "Hello TclPro" -command cbk_clicked

proc cbk_clicked {args} {
        puts "Haha... $args"
}

pack .b
在DOS命令窗口中对文件进行加密：

$ win32-ix86\bin\procomp.exe -out t.tbc.tcl t.tcl
习惯上加密后的文件可以用后缀名".tbc"。上面例子为了便于查看代码，用了".tbc.tcl"。

加密后的文件(t.tbc.tcl)内容入看起来如下：

# TclPro::Compiler::Include

if {[catch {package require tbcload 1.3} err] == 1} {
    error "The TclPro ByteCode Loader is not available or does not support the correct version"
}
tbcload::bceval {
TclPro ByteCode 1 0 1.3 8.3
3 0 33 11 0 0 12 0 6 3 3 -1 -1
33
w0E<!(H&s!,`yTv1NW<!2Ki<!75bpv2,tl#+Z8X!z
3
;;0v
3
AfW!
11
x
6
7YDEFTnw
x
2
yIw
x
5
Kt(yG@v
x
12
RZ!iChROo@jZSfD
x
8
9oW/DmgY8A
x
11
y+aY?hafq@VY|+
x
4
,CHr@
x
4
%N|(F
p
1 0 11 2 0 0 4 0 2 1 1 -1 -1
11
w0E<!2Q/X!)'!!
1
z
1
+!
2
x
4
DP)*F
x
8
?(';@!9,>+
0
0
1 1
4
%N|(F
0 0 257
x
4
ld^LC
x
15
rpwhC;Z2b3<?<+EfqT+
0
0
}
解密
为了执行加密后的文件，很显然需要加载tbcload模块。

在读取加密代码之前，确保下面的代码得以执行过就可以了：

load tbcload13.dll
文件"tbcload13.dll"可以在TclPro安装目录下找到，需要跟加密后的Tcl程序一起发布。

加密后的文件里已经调用了package require tbcload语句，所以问题就变成了 Tcl/Tk Insight: Package 模块的管理。

-prefix
加密后的文件里有一行被注视掉了TclPro::Compiler::Include。

实际上，加密后的文件里，这一行之前的内容是通过加密程序procomp.exe的-prefix选项而自动添加进去的。

有三个可选值：

"none"：不添加任何内容
"auto"：添加源文件中从开始到第一个非注释行或空白行为止的内容。（默认值）
"tag"：添加源文件中文件开始到含有字符串"TclPro::Compiler::Include"的注释行为止的内容。
这个选项的作用主要有两种：

明文保留版权信息等注释行 （默认行为）
明文保留初始化等代码（比如load tbcload13.dll）（需要指定 -prefix tag）

有地气

后处理加密码破解

pujifeng*

密码呢怎么打不开啊

chenwei005

在DOS命令窗口中对文件进行加密：
$ win32-ix86 \ bin \ procomp.exe -out t.tbc.tcl t.tcl
习惯上加密后的文件可以用后缀名“.tbc”

（1） procomp.exe是什么程序，怎么安装？
（2） procomp是按什么的字节码变换的加密？