用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