如何用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://lszwz.com/article/jjoii.html

其他资讯

售后响应及时

7×24小时客服热线

数据备份

更安全、更高效、更稳定

价格公道精准

项目经理精准报价不弄虚作假

合作无风险

重合同讲信誉,无效全额退款