^{<center id="1taje"></center>}

VBS中通過調(diào)用CAPICOM對象實(shí)現(xiàn)SHA1&amp;MD5加密

來源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

本來打算自己寫的，但是看到復(fù)雜的算法描述就知難而退了。算了吧，有現(xiàn)成的COM對象調(diào)用，又何必去關(guān)心算法呢，直接拿來使用就行了。如果下面的例子代碼提示無法創(chuàng)建對象，需要下載CAPICOM組件并注冊。

復(fù)制代碼代碼如下:

Const CAPICOM_HASH_ALGORITHM_MD2 = 1 
Const CAPICOM_HASH_ALGORITHM_MD4 = 2 
Const CAPICOM_HASH_ALGORITHM_MD5 = 3 
Const CAPICOM_HASH_ALGORITHM_SHA1 = 0 
Const CAPICOM_HASH_ALGORITHM_SHA_256 = 4 
Const CAPICOM_HASH_ALGORITHM_SHA_384 = 5 
Const CAPICOM_HASH_ALGORITHM_SHA_512 = 6 

Dim HashedData 
Set HashedData = CreateObject("CAPICOM.HashedData") 
HashedData.Algorithm = CAPICOM_HASH_ALGORITHM_SHA1 
HashedData.Hash "Demon" 
WScript.Echo HashedData.Value

需要指出的是VBS的字符串是Unicode編碼的，例如上面的字符串"Demon"在內(nèi)存中的十六進(jìn)制是4400 6500 6D00 6F00 6E00，這些Hash算法只關(guān)心數(shù)據(jù)的二進(jìn)制值，不同編碼的同一字符串的二進(jìn)制值是不一樣的，這就是算出來的值和PHP中（PHP默認(rèn)的編碼是UTF-8）的sha1("Demon")的值不一樣的原因。更多CAPICOM的用法請自行查閱MSDN參考文檔。

下面是我寫的一個(gè)用VBS校驗(yàn)文件SHA1和MD5值的程序，將文件拖動到VBS上即可，缺點(diǎn)是不能處理太大的文件。
文中軟件與vbs打包下載 http://xiazai.jb51.net/201101/tools/capicom_dc_sdk_jb51.rar
原文：http://demon.tw/programming/vbs-sha1-md5.html

上一篇：VBS中的標(biāo)識符（Identifiers）

欄目：vb

下一篇：將WMI中的DateTime類型轉(zhuǎn)換成VBS時(shí)間的函數(shù)代碼

本文標(biāo)題：VBS中通過調(diào)用CAPICOM對象實(shí)現(xiàn)SHA1&amp;MD5加密

本文地址：http://m.jygsgssxh.com/a1/vb/7445.html

更多vb