用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