Base64：（2）在DotNet 2.0实现DES加密算法中应用Base64

 相关的Namespace请参考者自行导入。

Public   Shared   Function DesEncrypt() Function DesEncrypt(ByVal strInput As String) As String
            Dim objDesCrypSrvPrvd As DESCryptoServiceProvider
            Dim objMemoryStream As MemoryStream = Nothing
            Dim objCryptoStream As CryptoStream = Nothing

            Dim byteKey() As Byte = Text.Encoding.ASCII.GetBytes(mstrKey)
            Dim byteData() As Byte = Text.Encoding.ASCII.GetBytes(strInput)

            Try
                objDesCrypSrvPrvd = New DESCryptoServiceProvider
                objMemoryStream = New MemoryStream
                objCryptoStream = New CryptoStream(objMemoryStream, objDesCrypSrvPrvd.CreateEncryptor(byteKey, byteKey), CryptoStreamMode.Write)
                objCryptoStream.Write(byteData, 0, byteData.Length)
                objCryptoStream.FlushFinalBlock()

                Return Convert.ToBase64String(objMemoryStream.ToArray)
            Catch ex As Exception
                Throw New Exception("eHR.eHRDatabase.DesDecrypt:" & ex.Message, ex)
            Finally
                objMemoryStream.Dispose()
                objCryptoStream.Dispose()
                objDesCrypSrvPrvd = Nothing
            End Try
        End Function

         Public   Shared   Function DesDecrypt() Function DesDecrypt(ByVal strInput As String) As String
            Dim objDesCrypSrvPrvd As DESCryptoServiceProvider
            Dim objMemoryStream As MemoryStream = Nothing
            Dim objCryptoStream As CryptoStream = Nothing
            Dim objEncoding As Text.Encoding

            Dim byteKey() As Byte = Text.Encoding.ASCII.GetBytes(mstrKey)
            Dim byteData() As Byte = Convert.FromBase64String(strInput)

            Try
                objDesCrypSrvPrvd = New DESCryptoServiceProvider
                objMemoryStream = New MemoryStream
                objEncoding = New ASCIIEncoding

                objCryptoStream = New CryptoStream(objMemoryStream, objDesCrypSrvPrvd.CreateDecryptor(byteKey, byteKey), CryptoStreamMode.Write)
                objCryptoStream.Write(byteData, 0, byteData.Length)
                objCryptoStream.FlushFinalBlock()

                Return objEncoding.GetString(objMemoryStream.ToArray)
            Catch ex As Exception
                Throw New Exception("eHR.eHRDatabase.DesEncrypt:" & ex.Message, ex)
            Finally
                objMemoryStream.Dispose()
                objCryptoStream.Dispose()
                objDesCrypSrvPrvd = Nothing
            End Try
        End Function

转载于:https://www.cnblogs.com/LazzyTiger/archive/2008/05/05/1182903.html