把lsp程序加密成fas_大海

669423907

大海无量…

tryhi

rocking2008 发表于 2022-2-20 19:20
提一点个人的小看法：
我认为对lsp加密，应该主要针对反编译，就是说加密后只要反编译出来的东西无法使 ...

很抱歉不管是我发的还是大鹏首发的，都达不到，运行速度没有变化，加载速度变慢了，另外存在被还原的风险，而一旦被还原，是完整的，所以只能玩玩而已，想要安全，建议购买大鹏的专业收费版加密

rocking2008

tryhi 发表于 2022-2-21 22:32
很抱歉不管是我发的还是大鹏首发的，都达不到，运行速度没有变化，加载速度变慢了，另外存在被还原的风险 ...

明白，感谢老师们的付出。

f4800

两天没来  又出新的加密工具了  顶，，，，

fyy19950808

不知道为什么改完以后cad2021用不了，lsp格式的就可以，头秃啊

f4800

加密工具厉害了，非常好用。顶

f4800

rocking2008 发表于 2022-2-20 09:51
的确是，测试用一个300K的lsp，用vlide编译出来是150K，用大海老师的编译出来是300K，大了一倍。
加载的 ...

加载时间怎么测试的？ 用秒表？

linzenghuo

支持，挺好的东西

tryhi

f4800 发表于 2022-3-10 23:09
加载时间怎么测试的？ 用秒表？

;;计时器开始，返回时间戳
;;(返回的时间戳由try-time-end调用，返回毫秒整数)
;;(try-time-be)
;;(try-time-end nil t)(prin1)
(defun try-time-be () ;计时器开始
        ;(setq $try-timebe(getvar "TDUSRTIMER"));该变量不适用于高版本
        (setq $try-timebe(getvar "millisecs"))
)
;(setq $try-timebe nil)
;;计时器结束，返回经历了多少毫秒，(整数)
;;参数1、由try-time-be返回的时间戳(nil为默认)2、是否打印(T为打印)
(defun try-time-end (time p / tt) ;计时器结束
        (or time (setq time $try-timebe))
        ;(setq tt(* 86400000(- (getvar "TDUSRTIMER") time)))
        (setq tt(- (getvar "millisecs") time))
        (if p (print(strcat"经历时间为："(itoa tt)"毫秒")))
        tt
)

f4800

tryhi 发表于 2022-4-1 11:11
;;计时器开始，返回时间戳
;;(返回的时间戳由try-time-end调用，返回毫秒整数)
;;(try-time-be)

大师  厉害   LISP 还能实现加载计时    长知识了。。。