如何将 Java 的 SecretKeySpec“DESede”转换为 VB.NET？

【问题标题】：How to convert Java's SecretKeySpec "DESede" to VB.NET?如何将 Java 的 SecretKeySpec“DESede”转换为 VB.NET？
【发布时间】：2014-11-20 05:50:38
【问题描述】：

我在将 java 代码转换为 VB.NET 时遇到问题

SecretKeySpec skey = new SecretKeySpec(key, "DESede");

有什么想法吗？谢谢:)

【问题讨论】：

标签： java vb.net tripledes

【解决方案1】：

Dim skey As SecretKeySpec = New SecretKeySpec(key, "DESede")

当然，要让它正常工作取决于您如何翻译SecretKeySpec 定义。

【讨论】：

【解决方案2】：

Public Function GenerateTripleDesKey() As Byte()
    Dim rng As New RNGCryptoServiceProvider()
    Dim tripleDesKey As Byte() = New Byte(23) {}
    rng.GetBytes(tripleDesKey)
    For i As Integer = 0 To tripleDesKey.Length - 1
        Dim keyByte As Integer = tripleDesKey(i) And &HFE
        Dim parity = 0
        Dim b As Integer = keyByte
        While b <> 0
            parity = parity Xor b And 1
            b >>= 1
        End While
        tripleDesKey(i) = CByte(keyByte Or (If(parity = 0, 1, 0)))
    Next
    Return tripleDesKey
End Function

【讨论】：