对称加密解密模块

最新推荐文章于 2022-11-21 09:51:22 发布

guang_ge

最新推荐文章于 2022-11-21 09:51:22 发布

阅读量490

点赞数

分类专栏： C#.NET 文章标签：解密加密 string integer function byte

C#.NET 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

标题	对称加密解密模块选择自 iwebsms 的 Blog
关键字	对称加密解密模块
出处

Imports System.Text

Imports System.Security.Cryptography

Module ModSecurity

Function EnText(ByVal Text As String, ByVal sKey As String) As String

Text = Text.ToLower

Dim des As New DESCryptoServiceProvider

Dim inputByteArray() As Byte

inputByteArray = Encoding.Default.GetBytes(Text)

des.Key = ASCIIEncoding.ASCII.GetBytes(Left(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5"), 8))

des.IV = ASCIIEncoding.ASCII.GetBytes(Left(System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sKey, "md5"), 8))

Dim ms As New System.IO.MemoryStream

Dim cs As New CryptoStream(ms, des.CreateEncryptor, CryptoStreamMode.Write)

cs.Write(inputByteArray, 0, inputByteArray.Length)

cs.FlushFinalBlock()

Dim ret As New StringBuilder

Dim b As Byte

For Each b In ms.ToArray()

ret.AppendFormat("{0:X2}", b)

Return ret.ToString()

End Function

Function DeText(ByVal Text As String, ByVal sKey As String) As String

Dim des As New DESCryptoServiceProvider

Dim len As Integer

len = Text.Length / 2 - 1

Dim inputByteArray(len) As Byte

Dim x, i As Integer

For x = 0 To len

i = Convert.ToInt32(Text.Substring(x * 2, 2), 16)

inputByteArray(x) = CType(i, Byte)