如何用VBS实现PHP的sha1_file函数效果-创新互联

本篇内容主要讲解“如何用VBS实现PHP的sha1_file函数效果”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“如何用VBS实现PHP的sha1_file函数效果”吧!

创新互联建站是一家专注于成都网站建设、成都网站制作与策划设计,双牌网站建设哪家好?创新互联建站做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:双牌等地区。双牌做网站价格咨询:18980820575

复制代码 代码如下:

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

到此，相信大家对“如何用VBS实现PHP的sha1_file函数效果”有了更深的了解，不妨来实际操作一番吧！这里是创新互联建站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！

本文标题：如何用VBS实现PHP的sha1_file函数效果-创新互联
网页网址：http://hxwzsj.com/article/jjoii.html