标题 | 用VBS实现PHP的md5_file函数代码 |
范文 | 用VBS实现PHP的md5_file函数代码,需要的朋友可以参考下,代码主要是参考官方的资料。 代码如下: 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(1024) Loop If raw_output Then md5_file = Utility.HexToBinary(HashedData.Value) Else md5_file = HashedData.Value End If End Function |
随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。