午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线

VBS獲取MD5值最簡(jiǎn)單的方法是直接調(diào)用CAPICOM組件，但是由于CAPICOM組件系統(tǒng)并不是默認(rèn)安裝，所以使用起來(lái)不方便

下面這個(gè)代碼不需要組件一樣可以獲取MD5值。

代碼如下:

Option Explicit

Dim wi

Dim file

Dim file_size

Dim file_attributes

Dim file_version

Dim file_hash

Set wi = CreateObject("WindowsInstaller.Installer")

file = "111.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

更多信息請(qǐng)查看IT技術(shù)專(zhuān)欄