 
Function sha1_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 = 0 
Stream.Type = 1 
Stream.Open 
Stream.LoadFromFile filename 
Do Until Stream.EOS 
HashedData.Hash Stream.Read(1024) 
Loop 
If raw_output Then 
sha1_file = Utility.HexToBinary(HashedData.Value) 
Else 
sha1_file = HashedData.Value 
End If 
End Function 

參考鏈接：HashedData Object
原文：http://demon.tw/programming/vbs-php-sha1_file.html

您可能感興趣的文章:

相關(guān)文章

VBS遍歷Excel工作表的實(shí)現(xiàn)代碼
這篇文章主要介紹了VBS遍歷Excel工作表的實(shí)現(xiàn)代碼,需要的朋友可以參考下
2019-12-12
VBS教程：方法-MoveFile 方法
VBS教程：方法-MoveFile 方法...
2006-11-11
用vbs實(shí)現(xiàn)的XP序列號(hào)替換器
用vbs實(shí)現(xiàn)的XP序列號(hào)替換器...
2007-10-10
VBScript教程第二課在HTML頁(yè)面中添加VBscript代碼
VBScript教程第二課在HTML頁(yè)面中添加VBscript代碼...
2006-11-11
VBS教程：VBscript語(yǔ)句-On Error 語(yǔ)句
VBS教程：VBscript語(yǔ)句-On Error 語(yǔ)句...
2006-11-11
vbs 讀寫(xiě)注冊(cè)表之系統(tǒng)啟動(dòng)項(xiàng)添加與刪除
這篇文章主要介紹了vbs 讀寫(xiě)注冊(cè)表之系統(tǒng)啟動(dòng)項(xiàng)添加值,需要的朋友可以參考下
2019-12-12
VBS基礎(chǔ)篇 - vbscript Dictionary對(duì)象
Dictionary是存儲(chǔ)數(shù)據(jù)鍵和項(xiàng)目對(duì)的對(duì)象，其主要屬性有Count、Item、Key，主要方法有Add、Exists、Items、Keys、Remove、RemoveAll
2018-05-05
vbs實(shí)現(xiàn)的定時(shí)提醒你休息的腳本
天天坐在電腦前的朋友要每隔一段時(shí)間活動(dòng)一下，不然身體會(huì)變得越來(lái)越差。下成的vbs腳本可以每隔一段時(shí)間來(lái)提醒你。
2008-06-06
ActiveX部件不能創(chuàng)建對(duì)象：dm.dmsoft代碼：800A01AD
vbs調(diào)用插件報(bào)：ActiveX部件不能創(chuàng)建對(duì)象，代碼：800A01AD，一般是因?yàn)椴《緦?dǎo)致dll文件丟失或者64系統(tǒng)問(wèn)題導(dǎo)致,需要的朋友可以參考下
2019-12-12
使用vbs獲取雅虎匯率
這篇文章主要介紹了使用vbs獲取雅虎匯率的相關(guān)代碼及思路,需要的朋友可以參考下
2015-09-09