LSP 加密与解密

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))
)

账号		自动登录	找回密码
密码			注册

[讨论] LSP 加密与解密