实例解说.Net构架下的加密编程

　　现在就对本文使用的加密技术来做个讲解。首先我们得知道的是密钥这个专用名词。密钥可以这样来理解：X+Y=Z。其中X是要被加密的数据，Y就是密钥，Z是加密后的数据。如果在这个加法中将Y去掉，那吗就成了X=Z。所以Y在这里就可以被看成一个变量，而密钥也正是一个变量，当这个变量发生变化后加密的数据也就更着发生变化了。不过在有的资料中会将它称为向量。
　　本文所采用的加密方法是被称为密钥散列值的方法。此方法是将要加密的数据和密钥进行组合产生新的加密了的数据。
　　在.NET中可以说加密所要使用的类全部都集中在System.Security.Cryptography框架中，他包含了多种加密算法，所以我们使用的加密方法也是在System.Security.Cryptography框夹中。 下面我们就来看看如何实现数据的加密。
　　首先在窗口中添加一个Button，3个Textbox，3个Label控件。将Button的Text属性设置为"确定"。将3个Label控件的Text属性设置分别设置为：文字，密钥，HMACSHA1。3个Textbox的属性保持默认。添加控件后的图如下：

　　现在双击Button1在Button1_Click中输入下面的代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim txt1() As Byte 　
txt1 = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text) 　
'读取输入的文字，即要加密的文字。 　
Dim key(16) As Byte 　
key = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox2.Text)'读取密钥 　
'HMACSHA加密 　Dim hma As New System.Security.Cryptography.HMACSHA1(key)'声明加密类，既使用何种加密方法 　
Dim csstream As New System.Security.Cryptography.CryptoStream(System.IO.Stream.Null, hma, Security.Cryptography.CryptoStreamMode.Write)'进行加密转换 　
csstream.Write(txt1, 0, txt1.Length) 　
'将加密后的数据保存在TXT1这个变量中 　
'此时的txt1已经不是先前的要加密的文字，而是被刷新后的已经加密的数据。 　
csstream.Close() 　
TextBox3.Text = System.Text.ASCIIEncoding.ASCII.GetString(hma.Hash)'显示加密的文字。 End Sub

　　程序说明：在本代码中我们主要是使用HMACSHA1算法实现了密钥散列值的加密。从代码可以看出要在.NET中进行数据的加密其实并不难，关键是选择System.Security.Cryptography中具体算法。
　　总结：对于加密技术本文并没设计的太多，其原因是加密技术本身在大学中就是作为单独的一们学科，何况现在有很数专门的书在讨论加密算法，有兴趣的读者可以去看看。本文主要的意图是告诉大家，在.NET中已经将加密作为框架的一部分，我们可以根据自己的需要进行选择具体的加密算法。而且在.NET中使用加密编程并不会太难。
　　加密文字"这一次我绝不放手"，密钥"123"时运行的效果。如图

　　加密文字"这一次我绝不放手"，密钥"223"时运行的效果。如图

　　加密文字"爱你直到永远ZHANG RUI RUI"，密钥"223"时运行的效果。如图

加密文字"爱你直到永远ZHANG RUI RUI"，密钥"123"时运行的效果。如图