VBS中通過(guò)調(diào)用CAPICOM對(duì)象實(shí)現(xiàn)SHA1&MD5加密
更新時(shí)間：2011年01月21日 23:00:15 作者：
MD5算法的VBS代碼在網(wǎng)上可以找到很多，這些代碼都是按照“算法”寫(xiě)出來(lái)的，所以都很長(zhǎng)，更重要的是，找不到SHA1算法的VBS實(shí)現(xiàn)。
本來(lái)打算自己寫(xiě)的，但是看到復(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參考文檔。
下面是我寫(xiě)的一個(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 自動(dòng)登錄論壇的實(shí)現(xiàn)代碼
這篇文章主要介紹了如果通過(guò)vbs實(shí)現(xiàn)論壇自動(dòng)登錄的實(shí)現(xiàn)方法，其實(shí)主要利用了vbs操作網(wǎng)頁(yè)表單的自動(dòng)填寫(xiě)實(shí)現(xiàn)，喜歡的朋友可以試試2013-07-07
VBS教程：VBscript屬性-Length 屬性...2006-11-11
vbscript 三個(gè)數(shù)比較大小的實(shí)現(xiàn)代碼
由于樓主只是三個(gè)數(shù),所以不用復(fù)雜的冒泡排序法來(lái)排序,直接三個(gè)數(shù)比較就行了2009-06-06
vbs腳本大全，配有實(shí)例 DOS命令，批處理 腳本 代碼
vbs腳本大全，配有實(shí)例 DOS命令，批處理 腳本 代碼...2007-03-03
閑來(lái)無(wú)事發(fā)個(gè)VBS 16進(jìn)制驗(yàn)證特定字符 例子驗(yàn)證VBS自身(紅色部分fastslz)2011-01-01
VBS教程：方法-GetTempName 方法...2006-11-11
vbs解決處理TXT文本數(shù)據(jù)相關(guān)問(wèn)題實(shí)現(xiàn)代碼
使用vbs處理txt數(shù)據(jù)時(shí)，會(huì)遇到一些問(wèn)題，本文將提供詳細(xì)的解決方法，希望可以幫助你們2012-12-12
殺毒的對(duì)vbs相當(dāng)敏感 免殺...2006-08-08
SQLids.vbs 0.7(最終版，以后改成gui界面的)
今天搞了個(gè)網(wǎng)站，注入點(diǎn)過(guò)濾得很變態(tài)，工具都不能跑，于是寫(xiě)了這個(gè)東東。2009-10-10
bookfind 通過(guò)ISBN序號(hào)獲取圖書(shū)連接的書(shū)名與作者的vbs代碼
bookfind 通過(guò)ISBN序號(hào)獲取圖書(shū)連接的書(shū)名與作者的vbs代碼，類(lèi)似小偷程序，通過(guò)正則匹配，雖然現(xiàn)在已經(jīng)無(wú)法使用，但代碼不錯(cuò)，原理都有2011-12-12