VBA获取文件MD5值

gtol

各位大师好.我想写一个VBA,要求:把一个文件夹中的文件的文件名放到A列,MD5值放到B列.这个代码要怎么写啊!


获取文件的MD5值我都不知道从何下手了!

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

lb_bn

网上找的VB代码

1. Option Explicit
   
2. Option Base 0
   
3. 
   
4. Public Type MD5_CTX
   
5.     i(1) As Long
   
6.     buf(3) As Long
   
7.     inc(63) As Byte
   
8.     digest(15) As Byte
   
9. End Type
   
10. 
    
11. Public Declare Sub MD5Init Lib "Cryptdll.dll" (ByVal pContex As Long)
    
12. Public Declare Sub MD5Final Lib "Cryptdll.dll" (ByVal pContex As Long)
    
13. Public Declare Sub MD5Update Lib "Cryptdll.dll" (ByVal pContex As Long, ByVal lPtr As Long, ByVal nSize As Long)
    
14. 
    
15. Public Function ConvBytesToBinaryString(bytesIn() As Byte) As String
    
16.     Dim i As Long
    
17.     Dim nSize As Long
    
18.     Dim strRet As String
    
19.    
    
20.     nSize = UBound(bytesIn)
    
21.     For i = 0 To nSize
    
22.          strRet = strRet & Right$("0" & Hex(bytesIn(i)), 2)
    
23.     Next
    
24.     ConvBytesToBinaryString = strRet
    
25. End Function
    
26. 
    
27. Public Function GetMD5Hash(bytesIn() As Byte) As Byte()
    
28.     Dim ctx As MD5_CTX
    
29.     Dim nSize As Long
    
30.    
    
31.     nSize = UBound(bytesIn) + 1
    
32.    
    
33.     MD5Init VarPtr(ctx)
    
34.     MD5Update ByVal VarPtr(ctx), ByVal VarPtr(bytesIn(0)), nSize
    
35.     MD5Final VarPtr(ctx)
    
36.    
    
37.     GetMD5Hash = ctx.digest
    
38. End Function
    
39. 
    
40. Public Function GetMD5Hash_Bytes(bytesIn() As Byte) As String
    
41.     GetMD5Hash_Bytes = ConvBytesToBinaryString(GetMD5Hash(bytesIn))
    
42. End Function
    
43. 
    
44. Public Function GetMD5Hash_String(ByVal strIn As String) As String
    
45.     GetMD5Hash_String = GetMD5Hash_Bytes(StrConv(strIn, vbFromUnicode))
    
46. End Function
    
47. 
    
48. Public Function GetMD5Hash_File(ByVal strFile As String) As String
    
49.     Dim lFile As Long
    
50.     Dim bytes() As Byte
    
51.     Dim lSize As Long
    
52.    
    
53.     lSize = FileLen(strFile)
    
54.     If (lSize) Then
    
55.         lFile = FreeFile
    
56.         ReDim bytes(lSize - 1)
    
57.         Open strFile For Binary As lFile
    
58.         Get lFile, , bytes
    
59.         Close lFile
    
60.         GetMD5Hash_File = GetMD5Hash_Bytes(bytes)
    
61.     End If
    
62. End Function

复制代码

gtol

太感谢了!我好好学习这一段代码

AZA

lb_bn 发表于 2011-5-29 09:41
网上找的VB代码

谢谢分享！

三流高手

学习学习，谢谢谢谢！

硅谷少年

win11 office365 64位，报错了，MD5Init VarPtr(ctx) 这行，varptr这里。字符串hash在windows下比linux下费劲多了，vba有没有10行以内能解决的方法？

victor888

刚刚遇到了和楼上一样的问题，目前还不会解决，等我查查国外是怎么弄的，有方案了再回贴。

opiona

VBA生成MD5的函数.rar (2.61 KB, 下载次数: 19)

2024-12-15 14:03 上传

点击文件名下载附件

shanxiren2004

opiona 发表于 2024-12-15 14:03

下载是0字节文件，怎么回事？