加解密方法

Imports System

Imports System.Security.Cryptography

Imports System.Text

Imports System.IO

 

    Public Class Encryptor

        Private Shared iv As Byte() = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}

        Private Shared key As Byte() = Encoding.UTF8.GetBytes("24681357")

 

        Public Shared Function DesEncrypt(ByVal strText As String) As String

            Dim byText As Byte() = Encoding.UTF8.GetBytes(strText)

 

            Dim des As New DESCryptoServiceProvider

            Dim ms As New MemoryStream

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

 

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

            cs.FlushFinalBlock()

 

            Return Convert.ToBase64String(ms.ToArray())

        End Function

 

        Public Shared Function DesDecrypt(ByVal strText As String) As String

            Dim byText(strText.Length - 1) As Byte

 

            Dim des As New DESCryptoServiceProvider

 

            byText = Convert.FromBase64String(strText)

 

            Dim ms As New MemoryStream

            Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, iv), CryptoStreamMode.Write)

 

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

            cs.FlushFinalBlock()

            Dim encoding As New System.Text.UTF8Encoding

            Return encoding.GetString(ms.ToArray())

        End Function

 

    End Class