crypt.vb

来自「vb 应用实例 简单应用 dddddddddddddddddddddddddd」· VB 代码 · 共 34 行

Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text

Public Class Crypt

    Public Function Encrypt(ByVal StrInput As String) As String
        Dim ByteArrayInput As [Byte]() = Encoding.Default.GetBytes(StrInput)
        Dim ms As New System.IO.MemoryStream


        Dim DES As New DESCryptoServiceProvider

        Dim CryptoStream As New CryptoStream(ms, DES.CreateEncryptor(Encoding.Default.GetBytes("20031231"), Encoding.Default.GetBytes("知足常乐")), CryptoStreamMode.Write)

        CryptoStream.Write(ByteArrayInput, 0, ByteArrayInput.Length)
        CryptoStream.FlushFinalBlock()
        Return Convert.ToBase64String(ms.ToArray())
    End Function

    Public Function Decrypt(ByVal StrInput As String) As String
        Dim ByteArrayInput As [Byte]() = Convert.FromBase64String(StrInput)
        Dim ms As New System.IO.MemoryStream

        Dim DES As New DESCryptoServiceProvider

        Dim CryptoStream As New CryptoStream(ms, DES.CreateDecryptor(Encoding.Default.GetBytes("20031231"), Encoding.Default.GetBytes("知足常乐")), CryptoStreamMode.Write)
        CryptoStream.Write(ByteArrayInput, 0, ByteArrayInput.Length)
        CryptoStream.FlushFinalBlock()
        Return Encoding.Default.GetString(ms.ToArray())
    End Function
End Class