利用 WindowsInstaller.Installer 对象计算文件 MD5 hash 值

曾经写过一篇《用VBS实现PHP的md5_file函数》，里面给出的 md5_file 函数可以用来计算文件的 MD5 hash 值。

但是 md5_file 函数调用了 CAPICOM 组件，而系统默认是没有安装这个组件的。无意中看到 UMU 大神的《利用 WindowsInstaller.Installer 对象计算文件 MD5 hash 值》，里面用到的是 WindowsInstaller.Installer 对象，不知道这个对象是不是系统自带的，反正我的系统上有。

' 40_FileHash.VBS

' UMU @ 22:45 2011/8/10

Option Explicit

Dim wi
Dim file
Dim file_size
Dim file_attributes
Dim file_version
Dim file_hash

Set wi = CreateObject("WindowsInstaller.Installer")
file = "C:\WINDOWS\explorer.exe"
file_size = wi.FileSize(file)
file_attributes = wi.FileAttributes(file)
file_version = wi.FileVersion(file)
file_hash = GetFileHash(file)

Set wi = Nothing

MsgBox "File: " & file & vbCrLf & _
"Size: " & file_size & vbCrLf & _
"Attributes: " & file_attributes & vbCrLf & _
"Version: " & file_version & vbCrLf & _
"MD5: " & file_hash

Function GetFileHash(file_name)
    Dim file_hash
    Dim hash_value
    Dim i
    
    Set file_hash = wi.FileHash(file_name, 0)
    
    hash_value = ""
    
    For i = 1 To file_hash.FieldCount
        hash_value = hash_value & BigEndianHex(file_hash.IntegerData(i))
    Next
    
    GetFileHash = hash_value
    
    Set file_hash = Nothing
End Function

Function BigEndianHex(Int)
    Dim result
    Dim b1, b2, b3, b4
    
    result = Hex(Int)
    b1 = Mid(result, 7, 2)
    b2 = Mid(result, 5, 2)
    b3 = Mid(result, 3, 2)
    b4 = Mid(result, 1, 2)
    
    BigEndianHex = b1 & b2 & b3 & b4
End Function

原文链接：http://hi.baidu.com/umu618/blog/item/d2772e1f6e0c0bd2a686697f.html

随机文章:

1. 在64位系统中使用CAPICOM
2. PuTTY SSH Tunnel设置
3. Unicode中的CIRCLED NUMBER
4. BAT批处理编辑器Superbat
5. 用VBS实现PHP的crc32函数

这篇文章发布于 2012年01月20日，星期五，16:17，归类于 复制粘贴。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。