[原创]把lsp程序隐藏到dwg文件中
本帖最后由 baitang36 于 2022-5-1 22:11 编辑发了把注册码藏起来(mjtd.com)这个帖子后，很多朋友不满足于隐藏一个整数，希望能够把程序藏到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，可以把任意文件藏到另一个文件中 :-) pzweng 发表于 2024-5-31 10:34
请问大侠，打开DWG如何加载隐藏在dwg文件里的lsp呢
(syz-load-hide-lsp "c:/00/test.dwg") ;从内存中加载隐藏的gys.lsp (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 发表于 2024-5-31 10:37
(syz-load-hide-lsp "c:/00/test.dwg") ;从内存中加载隐藏的gys.lsp
这们的话，还得单独加载syz-hide-lsp.fas 感谢分享，节日快乐! 明_明 发表于 2022-5-1 19:50
感谢分享，节日快乐!
节日快乐！ 这把lisp玩出新高度，曲高和寡，想起了当年的高飞鸟。 盛老师 真快 半天出货 高大上的技术，再努力一把，完美藏DWG里。
本帖最后由 alexmai 于 2022-5-1 21:45 编辑
赞，可以把任意文件藏到另一个文件中：老司机画面
syz-hide-lsp.fas
没有这个函数
alexmai 发表于 2022-5-1 21:37
赞，可以把任意文件藏到另一个文件中：老司机画面
是syz-hide-lsp，仔细看例子 附件没有这个 (load "c:/00/syz-hide-lsp.fas" ) ;加载函数定义 alexmai 发表于 2022-5-1 21:55
附件没有这个 (load "c:/00/syz-hide-lsp.fas" ) ;加载函数定义
不好意思，漏掉主要文件了，取消收币。