• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    用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

    参考链接:HashedData Object
    原文:http://demon.tw/programming/vbs-php-sha1_file.html
    您可能感兴趣的文章:
    • php中可能用来加密字符串的函数[base64_encode、urlencode、sha1]
    • PHP实现加密的几种方式介绍
    • 2个比较经典的PHP加密解密函数分享
    • php中base64_decode与base64_encode加密解密函数实例
    • PHP中加密解密函数与DES加密解密实例
    • php中AES加密解密的例子小结
    • PHP可逆加密/解密函数分享
    • PHP 加密解密内部算法
    • php基于mcrypt的加密解密实例
    • php 的加密函数 md5,crypt,base64_encode 等使用介绍
    • php rsa加密解密使用详解
    • PHP实现的简单sha1加密功能示例
    上一篇:用VBS实现PHP的md5_file函数代码
    下一篇:VBS中通过调用CAPICOM对象实现SHA1MD5加密
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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