VB.Net使用RSA加密

是否有反正我可以将其转换为使用RSA加密？即时通讯有点新VB.Net和更糟糕的加密。谢谢VB.Net使用RSA加密

Imports System.Text 
Imports System.Security.Cryptography 
Imports System.IO 
Public Class ClsEncryption 
Public Shared Function DESEncrypt(ByVal Data As String, ByVal Key As String) As String 
    Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider 
    Dim dHash As New System.Security.Cryptography.MD5CryptoServiceProvider 
    Dim encrypted As String = "" 
    Try 
     Dim hash(7) As Byte 
     Dim temp As Byte() = dHash.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(Key)) 
     Array.Copy(temp, 0, hash, 0, 8) 
     DES.Key = hash 
     DES.Mode = Security.Cryptography.CipherMode.ECB 
     Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateEncryptor 
     Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(Data) 
     encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) 
     Return encrypted 
    Catch ex As Exception 
    End Try 
End Function 
End Class

来源

2012-03-25 joris bolsens

您不能简单地将对称密码函数“转换”为非对称密码函数。涉及的因素很多，除非你知道自己在做什么，否则你什么都不懂。我完全建议你先清楚地理解什么是密码学，以及在做任何其他事情之前对称密码学与非对称密码学之间的区别！ :) – 2012-03-25 06:35:29