English
资源说明：在VBScript(VBS)编程中，如果你需要使用SHA1或MD5散列算法，通常会发现网上提供的代码基于算法本身实现，导致代码较长且复杂。然而，你可以利用Microsoft的CAPICOM(Cryptographic API Component Object Model)组件来轻松地完成这些加密任务。CAPICOM是一个免费的组件，提供了一系列安全相关的接口，包括哈希计算。
让我们来看看如何使用VBS通过CAPICOM对象实现SHA1和MD5加密：
```vbscript
' 定义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
' 创建CAPICOM.HashedData对象
Dim HashedData
Set HashedData = CreateObject("CAPICOM.HashedData")
' 设置哈希算法为SHA1
HashedData.Algorithm = CAPICOM_HASH_ALGORITHM_SHA1
' 对字符串进行哈希
HashedData.Hash "Demon"
' 输出哈希值
WScript.Echo HashedData.Value
```
这段代码首先定义了CAPICOM支持的哈希算法常量，然后创建了一个`HashedData`对象，并将其算法设置为SHA1。接着，它对字符串"Demon"进行哈希，并输出结果。请注意，VBS中的字符串是Unicode编码的，因此在进行哈希时，字符串的二进制表示会有所不同，这可能导致与使用其他编码（如PHP的UTF-8）计算的哈希值不匹配。
为了验证文件的SHA1或MD5值，你可以扩展这个脚本，读取文件内容并进行哈希。由于CAPICOM组件可能无法处理过大的文件，你需要确保你的程序能够适当地处理大文件，例如分块读取和计算。以下是一个简单的示例，演示如何计算文件的SHA1哈希值：
```vbscript
Option Explicit
Dim objFSO, objFile, HashedData, FileContent
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(WScript.Arguments(0), 1)
HashedData = CreateObject("CAPICOM.HashedData")
HashedData.Algorithm = CAPICOM_HASH_ALGORITHM_SHA1
Do Until objFile.AtEndOfStream
FileContent = objFile.ReadAll
HashedData.Hash FileContent
Loop
objFile.Close
WScript.Echo HashedData.Value
Set HashedData = Nothing
Set objFile = Nothing
Set objFSO = Nothing
```
这个脚本接受一个命令行参数，即你要校验的文件路径，然后逐行读取文件内容并进行哈希。请注意，对于非常大的文件，你可能需要修改代码以避免一次性加载整个文件到内存。
在使用CAPICOM之前，确保已安装并注册了CAPICOM组件。如果你遇到“无法创建对象”的错误，可以下载CAPICOM组件并按照安装指南进行操作。CAPICOM的更多用法可以通过查阅MSDN参考文档获得。
CAPICOM虽然方便，但请注意，该组件自Windows Server 2008 R2和Windows 7开始被弃用，建议考虑使用更新的加密库，如Windows Cryptography API: Next Generation (CNG)。然而，在旧系统上，CAPICOM仍然是一个可靠的解决方案。
本源码包内暂不包含可直接显示的源代码文件，请下载源码包。
