VB.net編程教程：編寫文字加解密順序。本站提示廣大學習愛好者：（VB.net編程教程：編寫文字加解密順序）文章只能為提供參考，不一定能成為您想要的結果。以下是VB.net編程教程：編寫文字加解密順序正文
本篇文章的次要開發環境是Visual Studio 2008，Visual Studio系列產品不斷以來都提供了弱小的控件功用，但是我們應用這些控件可以編寫出功用弱小的使用順序，Visual Studio2008在一些特性上也做出了許多的改良。本文次要應用微軟的最新.net開發工具為大家展現文字加密與解密的使用辦法，為大家引見創立根本加密與解密順序的一些技巧。很合適.net開發工具的初學者，具有一定的適用價值。
翻開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
順序運轉成功，以上是一個復雜的文字加密與解密順序的編寫進程，希望大家可以觸類旁通，應用這種思緒可以編寫出功用更弱小的加解密順序。
