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