0

Java コードを VB.NET に変換できません。

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

何か案が ？ありがとう ：）

4

2 に答える 2

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

もちろん、これを適切に機能させるには、SecretKeySpec定義をどのように翻訳したかによって異なります。

于 2014-11-20T06:21:17.740 に答える
0 
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
于 2014-11-20T16:07:54.020 に答える