0
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而不是DESVB.Net DES加密功能,三重DES
当我去隐窝我的文件,它说:“值不能为空参数名:inArray” – Epicblood 2012-03-14 05:11:23
现在就来试试,刚刚更新的代码,看看如果你通过正确的数据。还TripleDES键必须是24长度不是8. – 2012-03-14 05:42:34
好吧,我会尝试当我回家 – Epicblood 2012-03-14 14:53:33