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

Question

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

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

任何的想法 ？谢谢 ：）

Answer 1

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

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

Answer 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