获取文件MD5的两种方法

Highflybird

方式1： 通过certutil命令获取：

1. ;;;参数file --文件名
   
2. (defun GetMD5FromFile (file / wsh res txt idx cmd)
   
3.   (setq wsh (vlax-create-object "wscript.shell"))
   
4.   (setq cmd (strcat "certutil -hashfile \""  file "\" MD5"))
   
5.   (setq res (vlax-invoke wsh 'exec cmd))
   
6.   (setq txt (vlax-invoke (vlax-get res 'stdout) 'readall))
   
7.   (setq idx (VL-STRING-POSITION (ascii "\r") txt))
   
8.   (setq txt (substr txt (+ idx 3)))
   
9.   (setq idx (VL-STRING-POSITION (ascii "\r") txt))
   
10.   (setq txt (substr txt 1 idx))
    
11.   (vlax-release-object wsh)
    
12.   txt
    
13. )
    

;;;参数file --文件名<br /> (defun GetMD5FromFile (file / wsh res txt idx cmd)<br />   (setq wsh (vlax-create-object "wscript.shell"))<br />   (setq cmd (strcat "certutil -hashfile \""  file "\" MD5"))<br />   (setq res (vlax-invoke wsh 'exec cmd))<br />   (setq txt (vlax-invoke (vlax-get res 'stdout) 'readall))<br />   (setq idx (VL-STRING-POSITION (ascii "\r") txt))<br />   (setq txt (substr txt (+ idx 3)))<br />   (setq idx (VL-STRING-POSITION (ascii "\r") txt))<br />   (setq txt (substr txt 1 idx))<br />   (vlax-release-object wsh)<br />   txt<br /> )<br />

方式2： 通过WindowsInstaller.installer类获取.

1. (defun GetMD5 (file / HASH H COUNT I S V WCS WI)
   
2.   (if
   
3.     (or
   
4.       (setq wcs (vlax-create-object "Aec32BitAppServer.AecScriptControl.1"))
   
5.       (setq wcs (vlax-create-object "ScriptControl"))
   
6.     )
   
7.      (vlax-put-property wcs "language" "VBScript")
   
8.   )
   
9. 
   
10.   (setq wi (vlax-create-object "WindowsInstaller.installer"))
    
11.   ;;  (setq size (vlax-invoke wi 'filesize file))
    
12.   ;;  (setq version (vlax-invoke wi 'fileversion file))
    
13.   (setq hash (vlax-invoke wi 'filehash file 0))
    
14.   (setq count (vlax-get-property hash 'FieldCount))
    
15.   (setq i 1)
    
16.   (setq s "")
    
17.   (repeat count
    
18.     (setq v (vlax-get-property hash 'IntegerData i))
    
19.     (setq v (rtos v 2 0))
    
20.     (setq H (vlax-invoke wcs 'eval (strcat "hex(" v ")")))
    
21.     (while (< (strlen H) 8)
    
22.       (setq H (strcat "0" H))
    
23.     )
    
24.     (setq s (strcat s
    
25.                     (substr H 7 2)
    
26.                     (substr H 5 2)
    
27.                     (substr H 3 2)
    
28.                     (substr H 1 2)
    
29.             )
    
30.     )
    
31.     (setq i (1+ i))
    
32.   )
    
33.   (vlax-release-object hash)
    
34.   (vlax-release-object wcs)
    
35.   (vlax-release-object wi)
    
36.   s
    
37. )
    

(defun GetMD5 (file / HASH H COUNT I S V WCS WI)<br />   (if<br />     (or<br />       (setq wcs (vlax-create-object "Aec32BitAppServer.AecScriptControl.1"))<br />       (setq wcs (vlax-create-object "ScriptControl"))<br />     )<br />      (vlax-put-property wcs "language" "VBScript")<br />   )<br /> <br />   (setq wi (vlax-create-object "WindowsInstaller.installer"))<br />   ;;  (setq size (vlax-invoke wi 'filesize file))<br />   ;;  (setq version (vlax-invoke wi 'fileversion file))<br />   (setq hash (vlax-invoke wi 'filehash file 0))<br />   (setq count (vlax-get-property hash 'FieldCount))<br />   (setq i 1)<br />   (setq s "")<br />   (repeat count<br />     (setq v (vlax-get-property hash 'IntegerData i))<br />     (setq v (rtos v 2 0))<br />     (setq H (vlax-invoke wcs 'eval (strcat "hex(" v ")")))<br />     (while (< (strlen H) 8)<br />       (setq H (strcat "0" H))<br />     )<br />     (setq s (strcat s<br />                     (substr H 7 2)<br />                     (substr H 5 2)<br />                     (substr H 3 2)<br />                     (substr H 1 2)<br />             )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (vlax-release-object hash)<br />   (vlax-release-object wcs)<br />   (vlax-release-object wi)<br />   s<br /> )<br />

用法示例：
(getMD5FromFile "c:\\temp\\test.exe")
(getMD5 "c:\\temp\\test.exe")

tzfcn

存在就是合理的另一种说法

aisong220

刘程_OqNUl

想请问大师一个问题，往表格的单元格里插入块应该用什么函数，不胜感激。

huangpc27

字符串的MD5怎么获取