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