1

我正在尝试使用 TripleDES 在我的 ASP.NET 应用程序和另一个开发人员的 CF 应用程序之间交换加密数据。

这是他的 CF 代码（当然是虚构的密钥和 IV）：

<cfset variables.theKey = "rpaSPvIvVLlrcmtzPU9/c67Gkj7yL1S5">
<cfset variables.theIV = BinaryDecode("password","Base64")>
<cfset variables.theAlgorithm = "DESEDE">
<cfset variables.theEncoding = "Base64">

<cfif IsDefined("form.string") and IsDefined("form.method")>
   <cfif form.method is "encrypt">
      <cfset variables.theString = encrypt(form.string, variables.theKey, variables.theAlgorithm, variables.theEncoding, variables.theIV)>
   </cfif>
   <cfif form.method is "decrypt">
      <cfset variables.theString = decrypt(form.string, variables.theKey, variables.theAlgorithm, variables.theEncoding, variables.theIV)>
   </cfif>
   <cfoutput><p>Output: #variables.theString#</cfoutput>
</cfif>

这是我的 VB.NET（我省略了异常处理等）：

    Private IV() As Byte = ASCIIEncoding.ASCII.GetBytes("password")
    Private EncryptionKey() As Byte = Convert.FromBase64String("rpaSPvIvVLlrcmtzPU9/c67Gkj7yL1S5")

    Public Function EncryptString(ByVal Input As String) As String
        Dim buffer() As Byte = Encoding.UTF8.GetBytes(Input)
        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        des.Key = EncryptionKey
        des.IV = IV
        Return Convert.ToBase64String(des.CreateEncryptor().TransformFinalBlock(buffer, 0, buffer.Length()))
    End Function

    Public Function DecryptString(ByVal Input As String) As String
        Dim buffer() As Byte = Convert.FromBase64String(Input)
        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        des.Key = EncryptionKey
        des.IV = IV
        Return Encoding.UTF8.GetString(des.CreateDecryptor().TransformFinalBlock(buffer, 0, buffer.Length()))
    End Function

我们得到了不同的结果。

显而易见的事情是他使用 Base64 从密码创建 IV，而我使用的是 ASCII - 但如果我这样做

    Private IV() As Byte = Convert.FromBase64String("password")

然后 .NET 不高兴，因为它为 IV 获取了一个 6 字节的数组并且它需要 8 个字节。

任何想法我们做错了什么 - 最好是我可以对我的（VB.NET）代码进行更改以使其工作？或者如果做不到这一点，另一种方法可以在两种环境之间更好地工作？

4

2 回答 2

1

CF 的默认值似乎是“ DESede/ECB/PKCS5Padding ”，但在 VB.NET 中它们是“ DESede/CBC/PKCS7 ”。我不知道为什么，但两个填充（PKCS5 和 PKCS7）似乎是兼容的。

要使其正常工作，您需要在 VB.NET 端将模式更改为“ECB”

Public Function EncryptString(ByVal Input As String) As String
        Dim buffer() As Byte = Encoding.UTF8.GetBytes(Input)
        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        des.Mode = CipherMode.ECB
        des.Key = EncryptionKey
        des.IV = IV
        Return Convert.ToBase64String(des.CreateEncryptor().TransformFinalBlock(buffer, 0, buffer.Length()))
End Function

..或更改 CF 模式和 IV 以匹配 VB.NET 默认值

  <cfset variables.theKey = "rpaSPvIvVLlrcmtzPU9/c67Gkj7yL1S5" />
  <cfset variables.theIV = javacast("string", "password").getBytes() />
  <cfset variables.theAlgorithm = "DESede/CBC/PKCS5Padding">
  <cfset variables.theEncoding = "Base64">
于 2009-12-01T11:08:54.893 回答
0

尝试使用 UTF8 编码作为密码。

Private IV() As Byte = Encoding.UTF8.GetBytes("password")
于 2009-09-25T09:07:02.257 回答