打開 Visual Studio 2008在文件 (File) 菜單上，單擊新建項目 (New Project)。 在新建項目 (New Project) 對話框的模板 (Templates) 窗格中，單擊 Windows 應用程序(Windows Application)。單擊確定 (OK) 如圖1。
選擇Form1窗體，在Form1窗體中添加如下控件：Label1、Label2、 Label3控件，TextBox1、TextBox2、TextBox3控件，Button1與Button2控件。
相關屬性設置如下：
我們適當地調整界面，界面設置效果如下：圖2
程序界面設置好後，我們需要創建類，在類中來輸入與此程序相關的代碼
選擇項目---添加類---文件命名為：csmode 如圖3
在編程之前首先我們需要知道System.Security.Cryptography 命名空間
System.Security.Cryptography 命名空間提供加密服務，包括安全的數據編碼和解碼
介紹部分常用的枚舉
介紹部分常用的枚舉進入csmode.vb類的代碼事件
輸入代碼：
Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Public Class csmode
Public Function Encrypt(ByVal StrInput As String) As String
Dim ByteInput As [Byte]() = Encoding.Default.GetBytes(StrInput)
Dim ms As New System.IO.MemoryStream
Dim DESC As New DESCryptoServiceProvider
Dim CStream As New CryptoStream(ms, DESC.CreateEncryptor(Encoding.Default.GetBytes("20000000"), Encoding.Default.GetBytes("字節數量")), CryptoStreamMode.Write)
CStream.Write(ByteInput, 0, ByteInput.Length)
CStream.FlushFinalBlock()
Return Convert.ToBase64String(ms.ToArray())
End Function
Public Function Decrypt(ByVal StrInput As String) As String
Dim ByteInput As [Byte]() = Convert.FromBase64String(StrInput)
Dim ms As New System.IO.MemoryStream
Dim DESC As New DESCryptoServiceProvider
Dim CStream As New CryptoStream(ms, DESC.CreateDecryptor(Encoding.Default.GetBytes("20000000"), Encoding.Default.GetBytes("字節數量")), CryptoStreamMode.Write)
CStream.Write(ByteInput, 0, ByteInput.Length)
CStream.FlushFinalBlock()
Return Encoding.Default.GetString(ms.ToArray())
End Function
End Class
選擇Form1窗體，進入代碼編輯器
首先進行聲明
Imports System
Imports System.IO
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
進入Button1_Click事件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Encode As New csmode() '對文字進行加密
TextBox2.Text = Encode.Encrypt(TextBox1.Text)
End Sub
進入Button2_Click事件
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Decode As New csmode() '對文字進行解密
TextBox3.Text = Decode.Decrypt(TextBox2.Text)
End Sub
代碼輸入完畢，接下來運行程序進行測試。如圖4
程序運行成功，以上是壹個簡單的文字加密與解密程序的編寫過程，希望大家可以舉壹反三，利用這種思路可以編寫出功能更強大的加解密程序。