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

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

发了这个帖子后，很多朋友不满足于隐藏一个整数，希望能够把程序藏到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，可以把任意文件藏到另一个文件中 :-)

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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，这是什么文件?