用VBS实现PHP的md5_file函数代码
更新时间：2011年01月21日 22:43:29 作者：
用VBS实现PHP的md5_file函数代码,需要的朋友可以参考下，代码主要是参考官方的资料。
复制代码 代码如下:
Function md5_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 = 3
Stream.Type = 1
Stream.Open
Stream.LoadFromFile filename
Do Until Stream.EOS
HashedData.Hash Stream.Read(1024)
Loop
If raw_output Then
md5_file = Utility.HexToBinary(HashedData.Value)
Else
md5_file = HashedData.Value
End If
End Function
参考链接：HashedData Object
原文：http://demon.tw/programming/vbs-php-md5_file.html
相关文章
目前各类万能驱动程序包在网络上屡见发布，在使用这些程序包的同时，我们不仅会问：为什么这些程序包中的驱动程序可以在安装新硬件之后自动安装呢？2008-07-07
今天写代码的时候需要用到vbs获取文件配置项，不用放数据库里面，要不增删改查都要做一篇，本身功能就简单，这里就为大家分享一下实现代码,需要的朋友可以参考下2019-09-09
用vbs实现删除名称中有撇号的文件夹...2007-03-03
用vbs得到计算机的 IP 地址...2007-05-05
VBS实现GB2312,UTF-8,Unicode,BIG5编码转换工具
VBS写的GB2312,UTF-8,Unicode,BIG5编码转换工具,转换工具下载:GB2Ue.vbs (3.34 kb)2010-06-06
VBS教程：函数-Hex 函数...2006-11-11
使用 GetObject 函数可以访问文件中的 Automation 对象，而且可以将该对象赋值给对象变量。使用 Set 语句将 GetObject 返回的对象赋值给对象变量。2006-11-11
有时候我们需要获取当前目录下有多少个文件，那么就可以参考下面的代码2013-09-09
用vbs计算某个词在日志文件中的出现次数...2007-03-03
'让SendKeys可以发送中文,clip.exe在windows2003里有2008-12-12
最新评论