用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)文章
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-03VBS實(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-06VBS教程:函數(shù)-GetObject 函數(shù)
使用 GetObject 函數(shù)可以訪問(wèn)文件中的 Automation 對(duì)象,而且可以將該對(duì)象賦值給對(duì)象變量。使用 Set 語(yǔ)句將 GetObject 返回的對(duì)象賦值給對(duì)象變量。2006-11-11vbs 獲取當(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