DES_加密软件

Module Encrptoy    Public Function Encrptoy(ByVal PtoEncoding As String, ByVal Skey As String) As String        Dim des As New DESCryptoServiceProvider        Dim _byte As Byte()        _byte = Encoding.Default.GetBytes(PtoEncoding)        des.Key = Encoding.Default.GetBytes(Skey)        des.IV = Encoding.Default.GetBytes(Skey)        Dim ms As New System.IO.MemoryStream()        Dim cs As New CryptoStream(ms, des.CreateEncryptor, CryptoStreamMode.Write)        cs.Write(_byte, 0, _byte.Length)        cs.FlushFinalBlock()        Return Convert.ToBase64String(ms.ToArray())    End Function    Public Function Dencrptoy(ByVal PtoDencoding As String, ByVal skey As String) As String        Dim des As New DESCryptoServiceProvider()        Dim _byte As Byte()        _byte = Convert.FromBase64String(PtoDencoding)        des.IV = Encoding.Default.GetBytes(skey)        des.Key = Encoding.Default.GetBytes(skey)        Dim ms As New IO.MemoryStream        Dim cstream As New CryptoStream(ms, des.CreateDecryptor, CryptoStreamMode.Write)        cstream.Write(_byte, 0, _byte.Length)        cstream.FlushFinalBlock()        Return Encoding.Default.GetString(ms.ToArray())    End FunctionEnd Module