用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



相关阅读:
对javascript和select部件的结合运用
详解:虚拟主机IIS连接数知识
用PHP连mysql和oracle数据库性能比较
CSS实例:创建有图标的网站导航菜单
跳出惯性思维解决Linux上不了网的问题
C#教程:关于匿名类型的特性
Oracle10g新增CONVERT语法
Asp.net Mvc Framework 六 (更多的View传值及显示方式)
用javascript实现select的美化
系统技巧 制作闪存启动盘的思路
ORM中的继承关系映射全解
字符批量替换程序asp服务器版
数据字典表Truncate掉将导致数据库不可用
PHP基础知识总结
快速导航

Copyright © 2016 phpStudy |