本帖最后由 tranney 于 2014-8-25 01:46 编辑
代码加密器单函数正式试用版本0823 by猫老师.lsp (2.87 MB, 下载次数: 32)
范例加密前：
范例程序加密前.lsp (4.43 KB, 下载次数: 15)
范例加密后：
范例程序加密后.lsp (108.69 KB, 下载次数: 18)
自己看看有记录的，注意老子就是不小心点到你范例程序加密后.lsp 这个东西，你觉得谁会无聊到用这个?能用么？其他2个你自己摸摸良心看看记录然后说我用没用你的东西
tranney 发表于 2014-8-25 01:43 static/image/common/back.gif
居然还一口一个猫老师，师德败坏沦丧可见一斑！？也是，现在到老师都在捞钱，无一例外，哪有真心教学的，都 ...
窃以为，能发表lisp vlx的都是好同志，毕竟费了不少心血。
个人建议，有些重要的函数用这个工具加密。整个程序就没必要加密，不然转出来太大了，比如一些自定义函数用猫的工具加密。这样的话，即使还原了，这些加密过后的没还原，整个程序还读的懂吗
我下载个用用，
猫老师 没必要跟这种小人计较！
在喷子的眼里 ,你干什么都能给你挑刺
本帖最后由 wzg356 于 2014-10-13 16:17 编辑
很欣赏猫老师的东西。
测试了下：经加密后的程序执行及再编译成fas都成功,但执行效率大打折扣了；
不过比在线加密http://bbs.mjtd.com/forum.php?mod=post&action=edit&fid=3&tid=111133&pid=655203&page=4好多了
测试的源程序，参考耗时0.48秒;;;vl-remove-if-not表条件筛选速度测试 参考：0.48秒
(defun c:tt22 (/ s seconds lst mylst s2 seconds2)
(setq s (getvar "DATE"))
(setq seconds (* 86400.0 (- s (fix s))))
(setq lst (ATOMS-FAMILY 1))
(repeat 100
(setq mylst (vl-remove-if
'(lambda (x)
(/= "A" (substr x 1 1))
)
lst
)
)
)
(setq s2 (getvar "DATE"))
(setq seconds2 (* 86400.0 (- s2 (fix s2))))
(princ
(strcat "\ntt2 运行时间：" (rtos (- seconds2 seconds) 2 2) " 秒")
)
)猫老师加密程序加密后，耗时21.6秒
厉害，顶一个