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

baitang36

发了把注册码藏起来(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，可以把任意文件藏到另一个文件中 :-)

baitang36

pzweng 发表于 2024-5-31 10:34
请问大侠，打开DWG如何加载隐藏在dwg文件里的lsp呢

(syz-load-hide-lsp "c:/00/test.dwg")               ;从内存中加载隐藏的gys.lsp

yyzhan12

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

pzweng

baitang36 发表于 2024-5-31 10:37
(syz-load-hide-lsp "c:/00/test.dwg")               ;从内存中加载隐藏的gys.lsp

这们的话，还得单独加载syz-hide-lsp.fas

明_明

感谢分享，节日快乐!

baitang36

明_明 发表于 2022-5-1 19:50
感谢分享，节日快乐!

  节日快乐！

pxt2001

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

dtucad

盛老师 真快 半天出货

尘缘一生

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

alexmai

赞，可以把任意文件藏到另一个文件中：老司机画面


syz-hide-lsp.fas
没有这个函数

baitang36

alexmai 发表于 2022-5-1 21:37
赞，可以把任意文件藏到另一个文件中：老司机画面

是syz-hide-lsp，仔细看例子

alexmai

附件没有这个 (load "c:/00/syz-hide-lsp.fas" )            ;加载函数定义

baitang36

alexmai 发表于 2022-5-1 21:55
附件没有这个 (load "c:/00/syz-hide-lsp.fas" )            ;加载函数定义

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