用VBS實現(xiàn)PHP的md5_file函數(shù)代碼
更新時間：2011年01月21日 22:43:29 作者：
用VBS實現(xiàn)PHP的md5_file函數(shù)代碼,需要的朋友可以參考下，代碼主要是參考官方的資料。
復(fù)制代碼 代碼如下:
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
相關(guān)文章
目前各類萬能驅(qū)動程序包在網(wǎng)絡(luò)上屢見發(fā)布，在使用這些程序包的同時，我們不僅會問：為什么這些程序包中的驅(qū)動程序可以在安裝新硬件之后自動安裝呢？2008-07-07
今天寫代碼的時候需要用到vbs獲取文件配置項，不用放數(shù)據(jù)庫里面，要不增刪改查都要做一篇，本身功能就簡單，這里就為大家分享一下實現(xiàn)代碼,需要的朋友可以參考下2019-09-09
用vbs實現(xiàn)刪除名稱中有撇號的文件夾...2007-03-03
用vbs得到計算機的 IP 地址...2007-05-05
VBS實現(xiàn)GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具
VBS寫的GB2312,UTF-8,Unicode,BIG5編碼轉(zhuǎn)換工具,轉(zhuǎn)換工具下載:GB2Ue.vbs (3.34 kb)2010-06-06
VBS教程：函數(shù)-Hex 函數(shù)...2006-11-11
VBS教程：函數(shù)-GetObject 函數(shù)
使用 GetObject 函數(shù)可以訪問文件中的 Automation 對象，而且可以將該對象賦值給對象變量。使用 Set 語句將 GetObject 返回的對象賦值給對象變量。2006-11-11
vbs 獲取當(dāng)前目錄文件數(shù)量的代碼(不包括子文件夾中的)
有時候我們需要獲取當(dāng)前目錄下有多少個文件，那么就可以參考下面的代碼2013-09-09
用vbs計算某個詞在日志文件中的出現(xiàn)次數(shù)
用vbs計算某個詞在日志文件中的出現(xiàn)次數(shù)...2007-03-03
'讓SendKeys可以發(fā)送中文,clip.exe在windows2003里有2008-12-12