读书人

C/S加密方式如何写呢

发布时间: 2012-03-17 19:06:27 作者: rapoo

C/S加密方式怎么写呢

VB.NET code
   '/ <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


System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5").Substring(0, 8))
这是B/S加密方式,在C/S加密应该怎么写呢?


[解决办法]
http://www.dotblogs.com.tw/phoenix7765/archive/2008/08/30/5254.aspx

读书人网 >VB Dotnet

热点推荐