如何在多台域计算机上安全加解密字符串并保护密钥？

你遇到的这个问题很典型——用域CA证书加密后，安装证书的机器能轻松拿到私钥解密，核心原因是当前证书的私钥存储在LocalMachine\Root证书库，默认权限允许本地管理员（甚至某些高权限用户）直接访问私钥。下面给你几个实用的解决方案，从快速权限控制到代码改造都有：

1. 先给证书私钥加权限锁（最快见效，无需改代码） #

这是最直接的临时修复，不需要改动现有代码，只需要调整证书私钥的访问控制列表（ACL）：

• 打开证书管理器（按下Win+R输入certlm.msc），找到你的目标证书
• 右键证书 → 所有任务 → 管理私钥
• 在权限窗口里，移除不必要的账户（比如Administrators组，除非你的应用必须用管理员权限运行），只添加应用实际运行时使用的域用户/服务账户，并只赋予读取权限
• 这样即使有人登录到这台机器，只要不是指定的账户，就无法访问私钥进行解密

2. 改用DPAPI结合域环境保护（域内应用首选） #

Windows内置的**DPAPI（数据保护API）**是专门为这种场景设计的，支持域级别的加密保护。如果你的应用是在域用户上下文下运行，用DataProtectionScope.CurrentUser模式，只有当前登录的域用户能解密；如果是服务账户，可以用LocalMachine模式配合权限控制。

修改你的加解密代码为DPAPI版本（VB.NET示例）：

Imports System.Security.Cryptography

Public Class DataProtector
    ' 自定义一个用途字符串，避免其他应用误用你的加密数据
    Private Const EncryptionPurpose As String = "YourApp:DatabaseConnectionStrings_v1"

    Public Shared Function Encrypt(ByVal stringToEncrypt As String) As String
        If String.IsNullOrEmpty(stringToEncrypt) Then
            RadMessageBox.Show(Nothing, "Empty string to encrypt!", "Encryption Error", MessageBoxButtons.OK, RadMessageIcon.Error)
            End
        End If

        Dim dataBytes As Byte() = Encoding.UTF8.GetBytes(stringToEncrypt)
        ' 用CurrentUser范围加密，只有当前登录的域用户能解密
        Dim encryptedBytes As Byte() = ProtectedData.Protect(
            dataBytes, 
            Encoding.UTF8.GetBytes(EncryptionPurpose), 
            DataProtectionScope.CurrentUser
        )
        Return Convert.ToBase64String(encryptedBytes)
    End Function

    Public Shared Function Decrypt(ByVal stringToDecrypt As String) As String
        If String.IsNullOrEmpty(stringToDecrypt) Then
            RadMessageBox.Show(Nothing, "Empty string to decrypt!", "Decryption Error", MessageBoxButtons.OK, RadMessageIcon.Error)
            End
        End If

        Dim encryptedBytes As Byte() = Convert.FromBase64String(stringToDecrypt)
        Dim dataBytes As Byte() = ProtectedData.Unprotect(
            encryptedBytes, 
            Encoding.UTF8.GetBytes(EncryptionPurpose), 
            DataProtectionScope.CurrentUser
        )
        Return Encoding.UTF8.GetString(dataBytes)
    End Function
End Class

• 如果你需要让域内多个特定用户/组能解密，可以联系域管理员配置域DPAPI，这样指定的域组用户都能跨机器解密
• 注意：如果应用从网络共享运行，要确保用户对共享目录有读取权限，且DPAPI的上下文是当前登录的域用户

3. 用受保护的RSA密钥容器（保留证书方案但增强私钥安全） #

如果你不想放弃现有的证书加密流程，可以把RSA私钥转移到自定义密钥容器中，然后通过ACL限制只有指定账户能访问容器。修改你的代码如下：

Imports System.Security.Cryptography
Imports System.Security.Cryptography.X509Certificates
Imports System.Security.AccessControl

Public Class Certificates
    ' 自定义唯一的密钥容器名称
    Private Const KeyContainerName As String = "YourApp_RSA_Protected_Container"
    ' 应用运行的域账户（替换成你的实际账户）
    Private Const AuthorizedAccount As String = "DOMAIN\YourAppServiceAccount"

    Private Shared Function GetProtectedRsa() As RSACng
        Dim cngParams As New CngKeyCreationParameters()
        cngParams.KeyUsage = CngKeyUsages.Decryption Or CngKeyUsages.Signing
        cngParams.Provider = CngProvider.MicrosoftSoftwareKeyStorageProvider
        ' 用MachineKey表示容器属于机器，UserKey则属于当前用户
        cngParams.KeyCreationOptions = CngKeyCreationOptions.MachineKey
        cngParams.UIPolicy = New CngUIPolicy(CngUIProtectionLevels.None)

        ' 尝试打开现有容器，不存在则创建
        Dim cngKey As CngKey
        Try
            cngKey = CngKey.Open(KeyContainerName, CngProvider.MicrosoftSoftwareKeyStorageProvider)
        Catch
            cngKey = CngKey.Create(CngAlgorithm.Rsa, KeyContainerName, cngParams)
        End Try

        ' 设置密钥容器的ACL，只允许指定账户访问
        Dim keySecurity As New CryptoKeySecurity()
        Dim accessRule As New CryptoKeyAccessRule(
            New NTAccount(AuthorizedAccount),
            CryptoKeyRights.GenericRead,
            AccessControlType.Allow
        )
        ' 移除默认的所有权限，只保留指定账户
        keySecurity.SetAccessRuleProtection(True, False)
        keySecurity.AddAccessRule(accessRule)
        cngKey.SetAccess(keySecurity)

        Return New RSACng(cngKey)
    End Function

    ' 保留原有的加密逻辑，用证书公钥加密
    Public Shared Function Encrypt(ByVal stringToEncrypt As String) As String
        Dim x509 = FindCert("certname")
        If x509 Is Nothing OrElse String.IsNullOrEmpty(stringToEncrypt) Then
            RadMessageBox.Show(Nothing, "Could not find the certificate!", "Certificate Error", MessageBoxButtons.OK, RadMessageIcon.Error)
            End
        End If

        Dim rsa As RSACng = CType(x509.GetRSAPublicKey, RSACng)
        Dim bytestoEncrypt As Byte() = Encoding.UTF8.GetBytes(stringToEncrypt)
        Dim encryptedBytes As Byte() = rsa.Encrypt(bytestoEncrypt, RSAEncryptionPadding.OaepSHA256)
        Return Convert.ToBase64String(encryptedBytes)
    End Function

    ' 修改解密逻辑，用受保护的密钥容器私钥
    Public Shared Function Decrypt(ByVal stringToDecrypt As String) As String
        If String.IsNullOrEmpty(stringToDecrypt) Then
            RadMessageBox.Show(Nothing, "Empty string to decrypt!", "Decryption Error", MessageBoxButtons.OK, RadMessageIcon.Error)
            End
        End If

        Try
            Dim rsa As RSACng = GetProtectedRsa()
            Dim bytestodecrypt As Byte() = Convert.FromBase64String(stringToDecrypt)
            Dim plainbytes As Byte() = rsa.Decrypt(bytestodecrypt, RSAEncryptionPadding.OaepSHA256)
            Return Encoding.UTF8.GetString(plainbytes)
        Catch ex As Exception
            RadMessageBox.Show(Nothing, $"Decryption failed: {ex.Message}", "Decryption Error", MessageBoxButtons.OK, RadMessageIcon.Error)
            End
        End Try
    End Function

    ' 保留原有的证书查找方法
    Private Shared Function FindCert(ByVal certificateName As String) As X509Certificate2
        Using store As New X509Store(StoreName.Root, StoreLocation.LocalMachine)
            store.Open(OpenFlags.[ReadOnly])
            Return store.Certificates.Cast(Of X509Certificate2)()
                .FirstOrDefault(Function(c) c.FriendlyName.Equals(certificateName))
        End Using
    End Function
End Class

• 注意：创建密钥容器和设置ACL需要管理员权限，建议在应用安装时执行这一步，或者让域管理员预先配置好
• 这种方案的核心是把私钥从证书的机器存储中分离出来，放到受权限控制的容器里，避免证书被读取时直接暴露私钥

4. 混合加密模式（兼顾安全性和性能） #

RSA加密大文本效率很低，而且一旦私钥泄露，所有加密数据都能被解密。混合加密模式是行业通用的安全做法：

1. 生成一个随机的AES对称密钥
2. 用AES加密你的连接字符串（对称加密效率高）
3. 用RSA公钥加密AES密钥（非对称加密保护密钥）
4. 存储加密后的AES密钥和加密的连接字符串
5. 解密时，先解密AES密钥，再用AES解密连接字符串

这样即使RSA私钥被访问，攻击者也需要先解密AES密钥，你还可以给AES密钥额外加一层DPAPI保护，进一步降低风险。示例代码（简化版）：

Imports System.Security.Cryptography

Public Class HybridEncryptor
    Private Const AesKeySize As Integer = 256

    ' 用证书公钥加密数据
    Public Shared Function Encrypt(ByVal plainText As String, ByVal certFriendlyName As String) As Tuple(Of String, String)
        Dim x509 = Certificates.FindCert(certFriendlyName)
        If x509 Is Nothing Then
            RadMessageBox.Show(Nothing, "Could not find the certificate!", "Certificate Error", MessageBoxButtons.OK, RadMessageIcon.Error)
            End
        End If

        Using rsa = CType(x509.GetRSAPublicKey, RSACng), aes = Aes.Create()
            aes.KeySize = AesKeySize
            aes.GenerateKey()
            aes.GenerateIV()

            ' 加密明文
            Using encryptor = aes.CreateEncryptor(aes.Key, aes.IV)
                Dim plainBytes = Encoding.UTF8.GetBytes(plainText)
                Dim encryptedData = encryptor.TransformFinalBlock(plainBytes, 0, plainBytes.Length)

                ' 加密AES密钥
                Dim encryptedAesKey = rsa.Encrypt(aes.Key, RSAEncryptionPadding.OaepSHA256)

                ' 返回加密后的AES密钥（Base64）和带IV的加密数据（IV和数据用冒号分隔）
                Return Tuple.Create(
                    Convert.ToBase64String(encryptedAesKey),
                    $"{Convert.ToBase64String(aes.IV)}:{Convert.ToBase64String(encryptedData)}"
                )
            End Using
        End Using
    End Function

    ' 用受保护的私钥解密数据
    Public Shared Function Decrypt(ByVal encryptedAesKeyBase64 As String, ByVal encryptedDataWithIv As String) As String
        If String.IsNullOrEmpty(encryptedAesKeyBase64) OrElse String.IsNullOrEmpty(encryptedDataWithIv) Then
            RadMessageBox.Show(Nothing, "Invalid encrypted data!", "Decryption Error", MessageBoxButtons.OK, RadMessageIcon.Error)
            End
        End If

        ' 拆分IV和加密数据
        Dim parts = encryptedDataWithIv.Split(":"c)
        If parts.Length <> 2 Then
            RadMessageBox.Show(Nothing, "Invalid encrypted data format!", "Decryption Error", MessageBoxButtons.OK, RadMessageIcon.Error)
            End
        End If

        Dim iv = Convert.FromBase64String(parts(0))
        Dim encryptedData = Convert.FromBase64String(parts(1))

        Using rsa = Certificates.GetProtectedRsa(), aes = Aes.Create()
            aes.KeySize = AesKeySize
            ' 解密AES密钥
            aes.Key = rsa.Decrypt(Convert.FromBase64String(encryptedAesKeyBase64), RSAEncryptionPadding.OaepSHA256)
            aes.IV = iv

            ' 解密数据
            Using decryptor = aes.CreateDecryptor(aes.Key, aes.IV)
                Dim plainBytes = decryptor.TransformFinalBlock(encryptedData, 0, encryptedData.Length)
                Return Encoding.UTF8.GetString(plainBytes)
            End Using
        End Using
    End Function
End Class

方案优先级推荐 #

1. 快速修复选方案1：不用改代码，立刻降低私钥泄露风险
2. 域内应用选方案2：DPAPI是微软原生的安全方案，适配域环境，代码最简单
3. 必须保留证书选方案3：通过密钥容器隔离私钥，增强安全性
4. 大数据加密选方案4：混合加密兼顾安全和性能，适合加密较长的连接字符串或其他数据

内容的提问来源于stack exchange，提问作者Willy