| 标题 | 用VBS实现PHP的md5_file函数代码 |
| 分类 | 范文、应用文-IT技术专栏-脚本栏目 |
| 范文 | 用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 |
| 随便看 |
|
客官网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。