jkop 发表于 2024-6-20 18:39:51

可以使用，也能透过乱码来达到加密的目的，很厉害！

yerenyu@qq.com 发表于 2024-6-21 09:39:57

试试怎么样

刘大叔 发表于 2024-8-27 17:02:15

Mark一下！

被风吹走的灰尘 发表于 2025-4-6 15:59:59

本帖最后由 被风吹走的灰尘 于 2025-4-6 16:06 编辑

命令: passLsp ; 错误: no function definition: READ_BIN
不知道是不是我设置的不对还是什么
cad2020

lsp文件中第一行是
"<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> PROTECTED LISP file\0x0D\0x0A\0x1A"


不行

然后在第一行换成
(setq *head* '(26 10 13 101 108 105 102 32 80 83 73 76 32 68 69 84 67 69 84 79 82 80 32 68 65 67 111 116 117 65))

还是不行



baitang36 发表于 2025-4-7 05:47:42

本帖最后由 baitang36 于 2025-4-7 05:55 编辑

被风吹走的灰尘 发表于 2025-4-6 15:59
命令: passLsp ; 错误: no function definition: READ_BIN
不知道是不是我设置的不对还是什么
cad2020

你的代码不全？需要下载附件中的lsp

;;读入二进制文件
(defun read_Bin( file / vbin ADO)
(setq ADO (vlax-create-object "ADODB.Stream"))
(vlax-put-property ADO 'type 1)
(vlax-invoke-method ADO 'open 'nil 'nil 'nil 'nil 'nil)
(vlax-invoke-method ADO 'LoadFromFile file)
(setq vbin (vlax-invoke-method ADO 'read 'nil))
(vlax-invoke-method ADO 'close)
(vlax-release-object ADO)
(vlax-safearray->list (vlax-variant-value vbin))
)
页: 1 2 [3]
查看完整版本: LSP 加密与解密