VB.Net DES加密功能，三重DES

Question

Public Shared Function DESEncrypt(ByVal Data As String, ByVal Key As String) As Byte() 
    Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF} 
    Try 
     Dim bykey() As Byte = System.Text.Encoding.UTF8.GetBytes(Left(Key, 8)) 
     Dim InputByteArray() As Byte = System.Text.Encoding.UTF8.GetBytes(Data) 
     Dim des As New DESCryptoServiceProvider 
     Dim ms As New MemoryStream 
     Dim cs As New CryptoStream(ms, des.CreateEncryptor(bykey, IV), CryptoStreamMode.Write) 
     cs.Write(InputByteArray, 0, InputByteArray.Length) 
     cs.FlushFinalBlock() 
     Return ms.ToArray() 
    Catch ex As Exception 
    End Try 
End Function 

這是我現在有我的DES加密，但我是相當新的VB.Net我可以計算出如何使其使用三重DES而不是DES

Answer 1

試試這個

 Public Shared Function DESEncrypt(ByVal Data As String, ByVal Key As String) As Byte() 
    Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF} 
    Try 
     Dim bykey() As Byte = System.Text.Encoding.UTF8.GetBytes(Left(Key, 24)) 


     If String.IsNullOrEmpty(Data) Then 

      Throw New ArgumentException("No data passed", "input") 

     ElseIf bykey Is Nothing OrElse bykey.Length <> 24 Then 

      Throw New ArgumentException("Invalid Key. Key must be 24 bytes length", "key") 

     End If 

     Dim InputByteArray() As Byte = System.Text.Encoding.UTF8.GetBytes(Data) 

     Using ms As New IO.MemoryStream 

      Using des As New Security.Cryptography.TripleDESCryptoServiceProvider 


       Using cs As New Security.Cryptography.CryptoStream(ms, des.CreateEncryptor(bykey, IV), Security.Cryptography.CryptoStreamMode.Write) 

        cs.Write(InputByteArray, 0, InputByteArray.Length) 
        cs.FlushFinalBlock() 
        Return ms.ToArray() 

       End Using 

      End Using 

     End Using 

    Catch ex As Exception 
    End Try 

End Function