Use VBS to implement the md5_file Function Code of PHP

Copy codeThe Code is as follows: Function md5_file (filename, raw_output)
Dim HashedData, Utility, Stream
Set HashedData = CreateObject ("CAPICOM. HashedData ")
Set Utility = CreateObject ("CAPICOM. Utilities ")
Set Stream = CreateObject ("ADODB. Stream ")
HashedData. Algorithm = 3
Stream. Type = 1
Stream. Open
Stream. LoadFromFile filename
Do Until Stream. EOS
HashedData. Hash Stream. Read (1, 1024)
Loop
If raw_output Then
Md5_file = Utility. HexToBinary (HashedData. Value)
Else
Md5_file = HashedData. Value
End If
End Function

Reference link:HashedData Object
Original article: http://demon.tw/programming/vbs-php-md5_file.html