用VBS模拟实现PHP的sha1_file函数效果代码
更新时间：2011年01月21日 22:53:23 作者：
用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
相关文章
vbs版的sql查询分析器，该有的功能都有了2008-08-08
dictionnary，是一个集合对象。一般情况霞，我把这个特殊的集合想象为数组，可以使用其中内建的函数完成存储和操纵数据等基本任务，无须担心数据是在哪些行列2006-11-11
如何通过计划任务调用QuickTest测试脚本...2007-03-03
这篇文章主要介绍了VBS脚本实现遍历批量替换多目录多文件内容的代码，主要是结合了bat，实现这种效果，需要的朋友可以参考一下2018-12-12
这篇文章主要介绍了Vbs脚本经典教材,其实最全的资料还是MSDN，不过脚本之家已经为大家整理了一些，也可以查看2014-08-08
这个是我见过的最有特色的脚本提醒程序了，时间|提示语，具体使用方法可以参考例子2008-06-06
VBS教程：VBscript语句-For Each...Next 语句
VBS教程：VBscript语句-For Each...Next 语句...2006-11-11
用vbs实现可以查找指定扩展名的文件，方便大家搜索2008-06-06
VBScript语法速查及实例说明...2006-11-11
用vbscript实现从后到前阅读一个文本文件...2007-04-04
最新评论