vb.net des加密
vb.net des加密如何定义key和IV?
新手希望高手指点
[解决办法]
'MD5加密算法
Private Function MD5Zob(k1 As Integer, k2 As Integer) As Integer
Dim md5 As New MD5CryptoServiceProvider
Dim inputByteArray As Byte() = New Byte() {k1, k2}
Dim mdByte As Byte() = md5.ComputeHash(inputByteArray)
Return BitConverter.ToInt32(mdByte, 0)
End Function
'RC2，DES算法的键和动量
Private key As Byte() = New Byte() {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
Private iv As Byte() = New Byte() {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
'RC2加密算法
Private Function RC2Zob(k1 As Byte, k2 As Byte) As Long
Dim rc2 As New RC2CryptoServiceProvider
Dim inputByteArray As Byte() = New Byte() {k1, k2}
rc2.Key = key
rc2.IV = iv
Dim ms As New System.IO.MemoryStream
Dim cs As New CryptoStream(ms, rc2.CreateEncryptor, CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Return BitConverter.ToInt64(ms.ToArray(), 0)
End Function
'DES加密算法
Private Function DESZob(k1 As Byte, k2 As Byte) As Long
Dim rc2 As New DESCryptoServiceProvider
Dim inputByteArray As Byte() = New Byte() {k1, k2}
rc2.Key = key
rc2.IV = iv
Dim ms As New System.IO.MemoryStream
Dim cs As New CryptoStream(ms, rc2.CreateEncryptor, CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Return BitConverter.ToInt64(ms.ToArray(), 0)
End Function
其实我很懒……………………………………………………
