欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-29 09:23:24
复制代码 代码如下: function sha1_file(filename, raw_output) dim hasheddata, utility, stream se...
复制代码 代码如下:

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