[原创]让MD5算法飞起来（已改进）

sharetow

大佬，浩辰cad好像加载不了

baitang36

sharetow 发表于 2025-2-21 21:33
大佬，浩辰cad好像加载不了

不支持浩辰，浩辰缺函数。中望正在努力，可能很快就能用了

baitang36

命令: (syz-md5 "1234567890")
"e807f1fcf82d132f9bb018ca6738a19f"
经测试，中望cad2026测试版，可以正常使用。

hw8810

可以用，支持大佬

nuan1989

在2022电脑上面好像不好使, 2007可以.


(load "d:/aa/syz-md5.fas")
(print (syz-md5 "12345678901234567890"))


; 错误: 参数类型错误: consp nil

nuan1989

哦哦, 好嘞, 谢谢.

zml84

https://mp.weixin.qq.com/s/ldUFafBUCXxJcBlrSkaEmQ

1. (vl-load-com)
   
2. ;;;=================================================================*
   
3. ;;;      定义函数                                                   *
   
4. ;;;功能：获取指定文件的MD5                                          *
   
5. ;;;参数：filename ----- 文件名称。                                  *
   
6. ;;;返回：若成功，返回32位字符串。若失败，返回nil。                  *
   
7. ;;;日期：zml84 于 2025-04-26                                        *
   
8. ;;;--------------------------------
   
9. ;;;备忘：
   
10. ;;;1、等待机制：通过 while 循环持续检查 Status 属性，直到命令完成
    
11. ;;;
    
12. ;;;2、输出读取：
    
13. ;;; StdOut.ReadAll 获取标准输出
    
14. ;;; StdErr.ReadAll 获取错误输出
    
15. ;;;
    
16. ;;;3、状态码：
    
17. ;;; 0 = 运行中
    
18. ;;; 1 = 成功完成
    
19. ;;; 2 = 失败
    
20. ;;;
    
21. ;;;4、资源释放：使用 vlax-release-object 防止内存泄漏
    
22. ;;;--------------------------------
    
23. (defun fun-MD5 (filename / shell cmd exec stdout stderr status)
    
24.     (if (and
    
25.             (findfile filename)
    
26.             (setq shell
    
27.                 (vlax-create-object "WScript.Shell")
    
28.             )
    
29.         )
    
30.         (progn
    
31.             ;; 构建命令行
    
32.             (setq cmd
    
33.                 (strcat "certutil -hashfile \"" filename "\" MD5"
    
34.                 )
    
35.             )
    
36.             ;; 执行命令
    
37.             (setq exec
    
38.                 (vlax-invoke shell 'Exec cmd)
    
39.             )
    
40.             ;; 等待命令执行完成
    
41.             (while
    
42.                 (zerop (vlax-get-property exec 'Status))
    
43.                 (vlax-get-property exec 'Status) ; 空循环等待
    
44.             )
    
45.             ;; 记录执行结果
    
46.             (setq stdout
    
47.                 (vlax-invoke-method
    
48.                     (vlax-get-property exec 'StdOut) "ReadAll"
    
49.                 )
    
50.             )
    
51.             (setq stderr
    
52.                 (vlax-invoke-method
    
53.                     (vlax-get-property exec 'StdErr) "ReadAll"
    
54.                 )
    
55.             )
    
56.             (setq status
    
57.                 (vlax-get-property exec 'Status)
    
58.             ) ;_状态码
    
59.             ;; 清理 COM 对象
    
60.             (vlax-release-object exec)
    
61.             (vlax-release-object shell)
    
62. ;;;     ;; 显示结果
    
63. ;;;     (princ (strcat "\n标准输出: \n" stdout))
    
64. ;;;     (princ (strcat "\n错误信息: \n" stderr))
    
65. ;;;     (princ (strcat "\n状态码: " (itoa status)))
    
66.             ;; 返回
    
67.             (if
    
68.                 (and
    
69.                     (= status 1)
    
70.                     (setq i (vl-string-search "\r\n" stdout))
    
71.                 )
    
72.                 (substr stdout (+ i 3) 32)
    
73.             )
    
74.         )
    
75.     )
    
76. )
    
77. ;;;=================================================================*
    
78. ;;;功能：测试
    
79. (defun c:tt(/ filename)
    
80.     (princ "测试：计算文件的MD5")
    
81.     (if
    
82.         (setq filename
    
83.             (getfiled "选择要计算哈希的文件" "" "*" 16)
    
84.         )
    
85.         (print (fun-md5 filename))
    
86.     )
    
87.     (princ)
    
88. )

(vl-load-com)<br /> ;;;=================================================================*<br /> ;;;      定义函数                                                   *<br /> ;;;功能：获取指定文件的MD5                                          *<br /> ;;;参数：filename ----- 文件名称。                                  *<br /> ;;;返回：若成功，返回32位字符串。若失败，返回nil。                  *<br /> ;;;日期：zml84 于 2025-04-26                                        *<br /> ;;;--------------------------------<br /> ;;;备忘：<br /> ;;;1、等待机制：通过 while 循环持续检查 Status 属性，直到命令完成<br /> ;;;<br /> ;;;2、输出读取：<br /> ;;; StdOut.ReadAll 获取标准输出<br /> ;;; StdErr.ReadAll 获取错误输出<br /> ;;;<br /> ;;;3、状态码：<br /> ;;; 0 = 运行中<br /> ;;; 1 = 成功完成<br /> ;;; 2 = 失败<br /> ;;; <br /> ;;;4、资源释放：使用 vlax-release-object 防止内存泄漏<br /> ;;;--------------------------------<br /> (defun fun-MD5 (filename / shell cmd exec stdout stderr status)<br />     (if (and <br />             (findfile filename)<br />             (setq shell <br />                 (vlax-create-object "WScript.Shell")<br />             )<br />         )<br />         (progn <br />             ;; 构建命令行 <br />             (setq cmd <br />                 (strcat "certutil -hashfile \"" filename "\" MD5"<br />                 )<br />             )<br />             ;; 执行命令 <br />             (setq exec <br />                 (vlax-invoke shell 'Exec cmd)<br />             )<br />             ;; 等待命令执行完成 <br />             (while <br />                 (zerop (vlax-get-property exec 'Status))<br />                 (vlax-get-property exec 'Status) ; 空循环等待 <br />             )<br />             ;; 记录执行结果 <br />             (setq stdout <br />                 (vlax-invoke-method <br />                     (vlax-get-property exec 'StdOut) "ReadAll" <br />                 )<br />             )<br />             (setq stderr <br />                 (vlax-invoke-method <br />                     (vlax-get-property exec 'StdErr) "ReadAll" <br />                 )<br />             )<br />             (setq status <br />                 (vlax-get-property exec 'Status)<br />             ) ;_状态码 <br />             ;; 清理 COM 对象 <br />             (vlax-release-object exec)<br />             (vlax-release-object shell)<br /> ;;;     ;; 显示结果<br /> ;;;     (princ (strcat "\n标准输出: \n" stdout))<br /> ;;;     (princ (strcat "\n错误信息: \n" stderr))<br /> ;;;     (princ (strcat "\n状态码: " (itoa status)))<br />             ;; 返回 <br />             (if <br />                 (and <br />                     (= status 1)<br />                     (setq i (vl-string-search "\r\n" stdout))<br />                 )<br />                 (substr stdout (+ i 3) 32)<br />             )<br />         )<br />     )<br /> )<br /> ;;;=================================================================*<br /> ;;;功能：测试<br /> (defun c:tt(/ filename)<br />     (princ "测试：计算文件的MD5")<br />     (if <br />         (setq filename <br />             (getfiled "选择要计算哈希的文件" "" "*" 16)<br />         )<br />         (print (fun-md5 filename))<br />     )<br />     (princ)<br /> )

源码位置：https://tool.zml84.xyz/lisp/view/?uuid=cc00eccd-6fcc-4435-b963-d961aa25a461