用VBS模拟实现PHP的sha1_file函数效果代码

 
Function sha1_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 = 0 
Stream.Type = 1 
Stream.Open 
Stream.LoadFromFile filename 
Do Until Stream.EOS 
HashedData.Hash Stream.Read(1024) 
Loop 
If raw_output Then 
sha1_file = Utility.HexToBinary(HashedData.Value) 
Else 
sha1_file = HashedData.Value 
End If 
End Function