VBS中通過(guò)調(diào)用CAPICOM對(duì)象實(shí)現(xiàn)SHA1&MD5加密
更新時(shí)間：2011年01月21日 23:00:15 作者：
MD5算法的VBS代碼在網(wǎng)上可以找到很多，這些代碼都是按照“算法”寫出來(lái)的，所以都很長(zhǎng)，更重要的是，找不到SHA1算法的VBS實(shí)現(xiàn)。
本來(lái)打算自己寫的，但是看到復(fù)雜的算法描述就知難而退了。算了吧，有現(xiàn)成的COM對(duì)象調(diào)用，又何必去關(guān)心算法呢，直接拿來(lái)使用就行了。如果下面的例子代碼提示無(wú)法創(chuàng)建對(duì)象，需要下載CAPICOM組件并注冊(cè)。
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)制值是不一樣的，這就是算出來(lái)的值和PHP中（PHP默認(rèn)的編碼是UTF-8）的sha1("Demon")的值不一樣的原因。更多CAPICOM的用法請(qǐng)自行查閱MSDN參考文檔。
復(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)制值是不一樣的，這就是算出來(lái)的值和PHP中（PHP默認(rèn)的編碼是UTF-8）的sha1("Demon")的值不一樣的原因。更多CAPICOM的用法請(qǐng)自行查閱MSDN參考文檔。
下面是我寫的一個(gè)用VBS校驗(yàn)文件SHA1和MD5值的程序，將文件拖動(dòng)到VBS上即可，缺點(diǎn)是不能處理太大的文件。
文中軟件與vbs打包下載 http://xiazai.jb51.net/201101/tools/capicom_dc_sdk_jb51.rar
原文：http://demon.tw/programming/vbs-sha1-md5.html
相關(guān)文章
VBS教程：函數(shù)-CSng 函數(shù)...2006-11-11
VBS獲取GZIP壓縮的HTTP內(nèi)容的實(shí)現(xiàn)代碼
這篇文章主要介紹了VBS獲取GZIP壓縮的HTTP內(nèi)容的實(shí)現(xiàn)代碼,需要的朋友可以參考下2016-01-01
VBS教程：方法-GetDrive 方法...2006-11-11
使用SAFEARRAY返回的代碼...2007-03-03
vbs中實(shí)現(xiàn)啟動(dòng)兩個(gè)應(yīng)用程序，一直等到其中一個(gè)程序結(jié)束，然后關(guān)閉另一個(gè)？
vbs中實(shí)現(xiàn)啟動(dòng)兩個(gè)應(yīng)用程序，一直等到其中一個(gè)程序結(jié)束，然后關(guān)閉另一個(gè)？...2007-04-04
使用腳本調(diào)用系統(tǒng)的關(guān)機(jī)對(duì)話框?qū)崿F(xiàn)代碼
以前有介紹如何使用命令行調(diào)用系統(tǒng)的關(guān)機(jī)對(duì)話框rundll32.exe shell32.dll #60,但是，上述方法會(huì)存在一問(wèn)題，XP下無(wú)法正常使用該方法進(jìn)行關(guān)機(jī)2012-05-05
這篇文章主要介紹了如何使用vb 監(jiān)控電腦活動(dòng)記錄，幫助大家更好的理解和學(xué)習(xí)使用vb，感興趣的朋友可以了解下2021-03-03
VBS基礎(chǔ)篇 - 條件語(yǔ)句(if與Select Case)
經(jīng)常地，當(dāng)我們編寫代碼時(shí)，我們需要根據(jù)不同的判斷執(zhí)行不同操作，我們可以使用條件語(yǔ)句完成這個(gè)工作，asp中的條件語(yǔ)句主要是if與Select Case這里就為大家介紹一下,需要的朋友可以參考下2018-05-05
reg2vbs.vbs 將Reg文件轉(zhuǎn)換為VBS文件保存 腳本之家修正版本
可以將Reg文件轉(zhuǎn)換為VBS文件保存的代碼，網(wǎng)上的好多都有問(wèn)題，本地特給修正了一下，有問(wèn)題，請(qǐng)回復(fù)。2009-05-05
vbs實(shí)現(xiàn)web自動(dòng)登錄網(wǎng)站的方法
這篇文章主要介紹了vbs實(shí)現(xiàn)web自動(dòng)登錄網(wǎng)站,首先編寫vbs，接著配置為開(kāi)機(jī)自啟，這個(gè)比較簡(jiǎn)單，只需要將這個(gè)vbs文件放到下面目錄中就可以了，需要的朋友可以參考下2022-04-04