用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
上一篇: AJAX工作原理及优缺点详解