社区 › Auto Lisp › [原创]把lsp程序隐藏到dwg文件中

baitang36 发表于 2022-5-1 19:40:00

[原创]把lsp程序隐藏到dwg文件中

发了这个帖子后，很多朋友不满足于隐藏一个整数，希望能够把程序藏到dwg中，经过多次试验，终于成功了。发帖共享一下。
发现几个局限，藏了lsp的dwg文件必须始终在ntfs分区的硬盘中，可以复制，但不能复制到fat32分区，也就是说只支持ntfs分区。
藏了lsp的dwg文件不能压缩，不能另存，不能网络传输，否则里面藏的东西会丢失。
用法:
首先加载syz-hide-lsp.fas,当然也可以把它组合到你的fas或vlx中。
隐藏：（syz-hide-lsp “带路径的目标文件名” “需要隐藏的带路径 的文件名”）
读取： （syz-read-hide“带路径的完整文件名” ） 返回一个字符串，就是隐藏的文件内容。
加载运行：（syz-load-hide-lsp “带路径的完整文件名” ）从内存中加载隐藏的lsp
例子：
(load "c:/00/syz-hide-lsp.fas" )            ;加载函数定义
(syz-hide-lsp "c:/00/test.dwg" "c:/00/gys.lsp") ;将gys.lsp藏到test.dwg中
(setq str (syz-read-hide "c:/00/test.dwg" ))   ;读出隐藏的lsp内容，返回一个字符串
(syz-load-hide-lsp "c:/00/test.dwg")               ;从内存中加载隐藏的gys.lsp
其实，文件类型不限于dwg和lsp，可以把任意文件藏到另一个文件中 :-)



**** Hidden Message *****

yyzhan12 发表于 2022-5-3 11:09:00

(syz-hide-lsp "c:/00/test.dwg" "c:/00/gys.lsp")
C:\00\test.dwg:syz.txt - write
(setq str (syz-read-hide "c:/00/test.dwg"))
C:\00\test.dwg:syz.txt - read
C:\00\test.dwg:syz.txt，这是什么文件?

baitang36 发表于 2022-5-3 22:37:00

技术本身没有善恶之分，是否干坏事，看掌握技术的人

baitang36 发表于 2022-5-1 22:11:00

不好意思，漏掉主要文件了，取消收币。

明_明 发表于 2022-5-1 19:50:00

感谢分享，节日快乐!

baitang36 发表于 2022-5-1 19:52:00

节日快乐！

pxt2001 发表于 2022-5-1 20:01:00

这把lisp玩出新高度，曲高和寡，想起了当年的高飞鸟。

DTUCAD 发表于 2022-5-1 20:02:00

盛老师 真快 半天出货

尘缘一生 发表于 2022-5-1 20:22:00

高大上的技术，再努力一把，完美藏DWG里。

alexmai 发表于 2022-5-1 21:37:00

赞，可以把任意文件藏到另一个文件中：老司机画面
syz-hide-lsp.fas
没有这个函数

查看完整版本: [原创]把lsp程序隐藏到dwg文件中