ASP.NET

Imports System.Security.Cryptography<br />
Imports System.IO<br />
Imports System.Text <br />
<br />
Private Shared KEY_64() As Byte = {42, 16, 93, 156, 78, 4, 218, 32}<br />
        Private Shared VAL_64() As Byte = {55, 103, 246, 79, 36, 99, 167, 3}<br />
<br />
        Public Shared Function Encrypt(ByVal value As String) As String<br />
            Dim CryptoProvider As DESCryptoServiceProvider = New DESCryptoServiceProvider<br />
            Dim ms As MemoryStream = New MemoryStream<br />
            Dim cs As CryptoStream = New CryptoStream(ms, CryptoProvider.CreateEncryptor(KEY_64, VAL_64), CryptoStreamMode.Write)<br />
            Dim sw As StreamWriter = New StreamWriter(cs)<br />
            sw.Write(value)<br />
            sw.Flush()<br />
            cs.FlushFinalBlock()<br />
            ms.Flush()<br />
            Return Convert.ToBase64String(ms.GetBuffer, 0, ms.Length)<br />
        End Function