飞诗Lisp格式化混淆工具 永久免费

飞诗(fsxm)

飞诗Lisp格式化混淆工具 永久免费

飞诗(fsxm)

N年前的存货，发出来玩玩。以后高级版本集成到 Lisp编辑器上吧！

highflybird

甚至都不需要上万行代码，lisp自带的编辑器就对这种类型的lisp文件处理起来相当慢。



下面是如何生成这类型lisp文件的代码：

1. (defun c:tt()
   
2.   (setq f (open "d:\\temp\\test1.lsp" "w"))
   
3.   (repeat 1000  
   
4.     (princ "(defun test() (princ (1+ 2))" f)
   
5.     (repeat 100
   
6.       (princ "(princ (1+ 2))" f)
   
7.     )
   
8.     (princ "(princ (1+ 2)))\n" f)
   
9.   )
   
10.   (close f)
    
11.   (princ)
    
12. )

(defun c:tt()<br />   (setq f (open "d:\\temp\\test1.lsp" "w"))<br />   (repeat 1000  <br />     (princ "(defun test() (princ (1+ 2))" f)<br />     (repeat 100<br />       (princ "(princ (1+ 2))" f)<br />     )<br />     (princ "(princ (1+ 2)))\n" f)<br />   )<br />   (close f)<br />   (princ)<br /> )

baitang36

highflybird 发表于 2025-3-14 09:34
高版本的照旧。---可见这个是屎山代码。
只能用vscode之类的做格式化了。

格式化是给人看的，满足处女座的整齐爱好。
如果是看反编译生成的代码，不格式化看起来条理更清楚，每个函数占一行。

bai2000

混淆后能存出会更好

kozmosovia

两点建议：
1）增加对照文件支持，这样可以统一混淆转换标准处理多个文件。
2）增加文件支持，直接转换lsp文件而不用来回复制黏贴

hubeiwdlue

测试了一下，似乎中望cad也认识混淆后的代码。

highflybird

很牛，比lisp 自带的格式化快多了。
lisp自带的格式化代码一旦代码行数多了，简直慢得像蜗牛。

biya

牛，等我10年后有时间了也要来玩下加密，争取在60岁成为LISP加密高手

aws

飞诗(fsxm) 发表于 2025-3-12 19:47
N年前的存货，发出来玩玩。以后高级版本集成到 Lisp编辑器上吧！

意思是编辑器要更新？

Qwer1243

大老牛逼，

Noangler

坐等新版编辑器更新了