用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修改二進(jìn)制文件HEX數(shù)據(jù)
利用VBS修改二進(jìn)制文件HEX數(shù)據(jù)。第一個(gè)參數(shù)為原文件，第二個(gè)參數(shù)為修改后的文件，第三個(gè)參數(shù)為原HEX值，第四個(gè)參數(shù)為修改后的HEX值2013-07-07
使用vbs腳本添加程序到自啟動(dòng)項(xiàng)的代碼
bs腳本的功能呢是很多的，不過(guò)有時(shí)候我們只需要其中的某些功能，今天我突然想研究下怎么用vbs腳本實(shí)現(xiàn)添加程序到自啟動(dòng)項(xiàng)2013-01-01
使用VBS實(shí)現(xiàn)Hosts文件一鍵配置實(shí)現(xiàn)代碼
hosts文件存儲(chǔ)了IP地址與域名的映射。因?yàn)橛械臅r(shí)候需要經(jīng)常性地配置hosts文件，因此這段時(shí)間我琢磨了一套傻瓜化的hosts文件配置方案，記錄如下2019-09-09
VBScript的入門(mén)學(xué)習(xí)資料...2006-11-11
讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的代碼
讓IIS建立的站點(diǎn)默認(rèn)是.net 2.0的,而不是.net 1.1的,沒(méi)有使用WMI,所以在操作前先得停止IIS相關(guān)服務(wù)2008-07-07
這篇文章主要介紹了Vbs腳本經(jīng)典教材,其實(shí)最全的資料還是MSDN，不過(guò)腳本之家已經(jīng)為大家整理了一些，也可以查看2014-08-08
VBScript開(kāi)發(fā)自動(dòng)化測(cè)試腳本的方法分析
很多人都覺(jué)得微軟的VBScript功能比較弱，如果從開(kāi)發(fā)自動(dòng)化測(cè)試的角度來(lái)講，更是不可能了。從我對(duì)VBScript腳本的了解來(lái)看，對(duì)一個(gè)腳本是否可以做自動(dòng)化測(cè)試需要這個(gè)測(cè)試人員具備兩方面的知識(shí)，第一個(gè)，就是對(duì)VBScript腳本開(kāi)發(fā)語(yǔ)言精通，要了解VBScript的核心技術(shù)如何更廣泛的應(yīng)用；第二個(gè)，就是要有自動(dòng)化的測(cè)試思想，這個(gè)一定得是做過(guò)測(cè)試工作的能夠了解的多一些。2008-03-03
VBS教程：VBscript屬性-Number 屬性...2006-11-11
VBS基礎(chǔ)編程教程 (第6篇)...2007-12-12
VBS教程：屬性-Count 屬性...2006-11-11