C/S加密方式怎么写呢
'/ <summary> '/ 加密数据 '/ </summary> '/ <param name="Text"></param> '/ <param name="sKey"></param> '/ <returns></returns> Public Shared Function Encrypt(ByVal Text As String, ByVal sKey As String) As String Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider() Dim inputByteArray() As Byte inputByteArray = Encoding.Default.GetBytes(Text) des.Key = ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8)) des.IV = ASCIIEncoding.ASCII.GetBytes(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8)) Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream() Dim cs As CryptoStream = New CryptoStream(ms, des.CreateEncryptor(), CryptoStreamMode.Write) cs.Write(inputByteArray, 0, inputByteArray.Length) cs.FlushFinalBlock() Dim ret As StringBuilder = New StringBuilder() Dim b As Byte For Each b In ms.ToArray ret.AppendFormat("{0:X2}", b) Next End Function