当前位置:首页 > 编程学习 > 密码的故事

密码的故事

编程学习2007-05-2121890

密码的故事


Billy Hollis

本文是由一个问题引出的。我需要一种将密码保存在加密文件中的方法,因为我需要记住许多密码,但记忆力却已大不如前。我知道有许多商用工具能够做到这一点,但我感到学习  .NET 中的一项新技术真的很有好处。

我用 Visual Basic® .NET  完成了一个简单而完整的程序,用于加密和解密文件,从中学到了许多知识。既然加密对于多种开发都是一个重要问题,本文就介绍一下如何构造这样的程序。

有各种低级别的技术可以用于加密,如 Microsoft Crypto API。而在 .NET 中,则是将这些复杂内容打包在各个 .NET  框架类中,并且由一个 System.Security  命名空间包含这些与加密相关的类。我们不可能查看该命名空间中的所有类,但通过分析一个最简单的、使用数据加密标准 (DES)  算法进行加密和解密的类,可以大概了解它们的工作原理。

正如前面提到的,我们要执行一个完整的加密和解密文件的过程,但首先需要解释一下该程序中涉及的许多基本概念。除有关密码的原理外,还有必要简单讨论一下 .NET  中的流,因为加密类是以流的形式实现的。

理解流

流是 .NET 中处理字节的基本概念。下面简单介绍一下其工作原理。

假设要读取一个文件,将所有大写字母更改为小写字母,然后将结果写入另一个文件。图 1 显示了要完成的各个步骤的关系图。

密码的故事 - Apull - 海闊  天空

图 1:读取文件、处理内容并写回结果的过程

在 .NET 中,完成此过程的最好方法是使用流。“流”是一个对象,用于接收和/或发送信息字节。流有两种 - 后端流和过程流。

后端流

后端流从某个可以保存字节的位置获取字节或将字节存储到该位置。文件流就是一种后端流。文件流使用文件作为字节的后端存储,并读取或写入该文件。

文件流在 .NET 的 FileStream 类中实现,该类位于 System.IO 命名空间。FileStream 对象使用  Read 和 Write 方法访问文件。将 FileStream 对象附加到现有文件时,您可以使用  Read 方法,以一系列字节的形式获取文件内容。而使用 Write 方法时,FileStream  对象可以将一系列字节写入文件(现有文件或新文件)。FileStream 类还使用 Seek 方法来定位文件中的特定位置。

后端流的其他示例有网络流(将数据放到 TCP/IP 堆栈或从中获取数据)和内存流(使用内存作为临时后端)。它们的基本结构与  FileStream 对象相同,都使用 Read 和 Write 方法访问后端存储的字节。有些后端流(如网络流)不支持  Seek 方法,因为没有可供执行查找操作的永久存储内容。

过程流

过程流用于接收并处理字节,然后将字节写入其他流(通常是后端流)。例如,我们可以从名为 Stream 的 .NET  基类中继承,然后创建一个将大写字母更改为小写字母的过程流。再将这个流附加到任何后端流。现在,上图的关系可以表示为图 2。

密码的故事 - Apull - 海闊  天空

图 2:使用流表示的读取文件、处理内容并写回结果的过程

我们的“变为小写”流类只在经常需要执行该操作时才有用。但这种流类可以对通过它的字节执行所需的各种操作。

.NET 中的加密

在 .NET 中,加密和解密是使用过程流来实现的。例如,加密的典型步骤为:

  1. 从某个输入流(例如,磁盘中的未加密文件)传入字节。

  2. 将字节送到加密流,加密流本身连接到某个输出流(例如,要保存加密数据的文件)。

  3. 加密流加密字节并自动将字节放到相关联的输出流中。

加密流被封装到一个名为 CryptoStream  的类(本文后面将详细介绍该类)。假设我们正在读取和写入磁盘文件,那么如果使用这一术语,则此过程的关系如图 3 所示。

密码的故事 - Apull - 海闊  天空

图 3:加密文件的过程

加密类型

加密信息的方法已经有几百年的历史。小说家艾伦·坡就曾经涉足密码学,而设计和破解密码也曾经是第二次世界大战中的一项重要活动。然而,计算机的出现使密码学有了飞速发展。计算机强大的分析加密消息的能力迫使人们不断研究越来越难以破解的加密技术。

其结果是研究出了多种加密方法。.NET 中提供的常用方法包括:

加密方法一般类型实现方法的 .NET 类
数据加密标准 (DES)对称
           (私钥)
DESCryptoServiceProvider
RC2 (RSA Data Security, Inc.)对称
           (私钥)
RC2CryptoServiceProvider
Rijndael对称
           (私钥)
RijndaelManaged
TripleDES(在一行中使用三重 DES 加密)对称
           (私钥)
TripleDESCryptoServiceProvider
数字签名算法非对称
           (公钥)
DSACryptoServiceProvider
RSA(由 Rivest、Shamir 和 Adelman 发明,以他们名字的首字母命名)非对称
           (公钥)
RSACryptoServiceProvider

加密算法的一般类型有对称和非对称两种。对称算法使用相同的密钥来加密和解密数据。非对称算法使用一个公钥进行加密,而使用另一个密钥来解密。在本文最后,我们将继续介绍这一点。

如果只是使用加密方法,则不必详细了解其工作原理(谢天谢地,某些内容是相当复杂的);但如果要选择一种算法,则必须考虑以下三个主要因素:

  • 破解使用该算法加密的消息的难度

  • 算法的性能

  • 密钥的安全性

有许多 Web 站点讨论了以上因素。对于初学者,以下两个网站比较适合:

密码的故事 - Apull - 海闊  天空

图 4:加密/解密程序的窗体布局

使用以下名称从上到下设置文本框:

  • txtUnencryptedFile

  • txtEncryptedFile

  • txtKeyPassword

  • txtIVPassword

将各个文本框的 Text 属性设置为空。将状态栏命名为 sbEncryptionStatus。

将按钮命名为 btnEncrypt 和 btnDecrypt,并将它们的 Text 属性分别更改为  Encrypt 和 Decrypt。为 btnEncrypt 按钮添加以下代码:

Dim byteKey() As Byte  byteKey = GetKeyByteArray(txtKeyPassword.Text)    
Dim byteInitializationVector() As Byte 
byteInitializationVector = GetKeyByteArray(txtIVPassword.Text)  
EncryptOrDecryptFile(txtUnencryptedFile.Text, _
                       txtEncryptedFile.Text, _
                       byteKey, byteInitializationVector, _ 
                      CryptoAction.actionEncrypt)
 

为 btnDecrypt 按钮添加以下代码:

Dim byteKey() As Byte 
byteKey = GetKeyByteArray(txtKeyPassword.Text)    
Dim byteInitializationVector() As Byte 
byteInitializationVector = GetKeyByteArray(txtIVPassword.Text)  
EncryptOrDecryptFile(txtEncryptedFile.Text, _
                       txtUnencryptedFile.Text, _
                       byteKey, byteInitializationVector, _
                       CryptoAction.actionDecrypt)
 

您会注意到这两个按钮相关的代码很类似。它们使用相同的函数获取密钥和初始化向量的数组,并使用相同的函数(名为  EncryptOrDecryptFile)加密或解密文件。使用 EncryptOrDecryptFile  时的唯一区别是文本框中输入和输出文件的文件名正好相反,并且动作(加密或解密)不同。

该动作被指定为 CryptoAction 枚举类型,所以需要定义枚举。将此代码添加到 Inherits  System.Windows.Forms.Form 行的下面:

Private Enum CryptoAction
      actionEncrypt = 1
      actionDecrypt = 2
End Enum

还需要在模块顶部添加语句,以便轻松地引用密码类和流类。以下是所需的代码行:

Imports System.Security.Cryptography  
Imports System.Security  
Imports System.IO
 

到目前为止,代码都比较简单。现在我们看看怎样生成密钥。下面是一个将密码变成字节数组的函数,应当将它添加到窗体代码中:

Private Function GetKeyByteArray(ByVal sPassword As String) As Byte()
             Dim byteTemp(7) As Byte
              sPassword = sPassword.PadRight(8)   ' 确保是 8 个字符
                Dim iCharIndex As Integer
              For iCharIndex = 0 To 7
                          byteTemp(iCharIndex) = Asc(Mid$(sPassword, iCharIndex + 1, 1))
              Next
              Return byteTemp
End Function


这也是一段很直观的代码。Visual Basic 6.0 开发人员应当注意对字符串的 PadRight 方法(取代 Visual Basic  6.0 中的等效字符串处理代码)的使用,以确保长度正确。

下面是关键内容。插入下面的函数以处理加密和解密:

Private Sub EncryptOrDecryptFile(ByVal sInputFile As String, _
                                   ByVal sOutputFile As String, _
                                   ByVal byteDESKey() As Byte, _
                                   ByVal byteDESIV() As Byte, _
                                   ByVal Direction As CryptoAction)' 创建处理输入和输出文件的文件流。
      Dim fsInput As New FileStream(sInputFile, _
                                    FileMode.Open, FileAccess.Read)Dim fsOutput As New FileStream(sOutputFile, _
                                    FileMode.OpenOrCreate, FileAccess.Write)fsOutput.SetLength(0)
      ' 加密/解密过程中需要的变量
      Dim byteBuffer(4096) As Byte ' 保存字节块以进行处理
      Dim nBytesProcessed As Long = 0 ' 运行对加密字节的计数
      Dim nFileLength As Long = fsInput.Length
      Dim iBytesInCurrentBlock As Integer
      Dim desProvider As New DESCryptoServiceProvider()
      Dim csMyCryptoStream As CryptoStream
      Dim sDirection As String        ' 设置为加密或解密
      Select Case Direction
            Case CryptoAction.actionEncrypt
                      csMyCryptoStream = New CryptoStream(fsOutput, _
                 desProvider.CreateEncryptor(byteDESKey, byteDESIV), _
                 CryptoStreamMode.Write)
                      sDirection = "加密"
            Case CryptoAction.actionDecrypt
                      csMyCryptoStream = New CryptoStream(fsOutput, _ 
                desProvider.CreateDecryptor(byteDESKey, byteDESIV), _
                 CryptoStreamMode.Write)
                      sDirection = "解密"
      End Select
        sbEncryptionStatus.Text = sDirection + "正在启动..."
        ' 从输入文件读取,然后加密或解密
      ' 并写入输出文件。
      While nBytesProcessed < nFileLength
                  iBytesInCurrentBlock = fsInput.Read(byteBuffer, 0, 4096)
                  csMyCryptoStream.Write(byteBuffer, 0, iBytesInCurrentBlock)
                  nBytesProcessed = nBytesProcessed + CLng(iBytesInCurrentBlock)
                  sbEncryptionStatus.Text = sDirection + _
                                    "正在处理 - 已处理字节数 - " + _
                                    nBytesProcessed.ToString
      End While
        sbEncryptionStatus.Text = "完成" + sDirection + _ 
                    "。处理的字节总数 - " + nBytesProcessed.ToString
      csMyCryptoStream.Close()
      fsInput.Close()
      fsOutput.Close()
End Sub
 

现在我们具体说明以上代码。

第一段创建文件流对象(名为 fsInput 和  fsOutput),用于从正在读取的文件获得输入,再输出到一个新文件中。然后是函数的其余部分中需要的几个变量和对象的声明。所声明的元素如下:

  • byteBuffer:字节数组,用于处理当前数据块。通过读取输入文件来填充该数组,然后将其传递到 CryptoStream  对象进行加密。后面的代码有一个读取输入文件的循环,以大小为 4096 字节的块提取文件内容,并放到 byteBuffer 中。

  • nBytesProcessed:到目前为止处理的输入文件的总字节数。

  • nFileLength:输入文件的长度。

  • iBytesInCurrentBlock:在循环的特定迭代操作中处理的字节数。除最后一次外,每次迭代都是 4096  字节。在最后一次迭代中,其字节数是文件的最后一个块中的剩余字节数(通常小于 4096)。

  • desProvider:将其插入 CryptoStream 中以提供要使用的加密/解密功能。

  • csMyCryptoStream:是用于加密或解密的 CryptoStream 对象。

  • sDirection:是 CryptoAction 值(actionEncrypt 或  actionDecrypt),表明通过执行此函数所要完成的操作。

接下来的一段是 Select  Case,根据我们执行该函数所要完成的操作来设置为加密或解密。DESCryptoServiceProvider 可以分别使用  CreateEncryptor 或 CreateDecryptor 方法创建加密器或解密器。这用于实例化我们要使用的  CryptoStream 对象,并命名为 csMyCryptoStream。csMyCryptoStream  对象还需要知道使用哪个流进行输出。为此,在实例化 csMyCryptoStream 过程中,加密和解密都指定 fsOutput 流。

我们还设置了一个用于状态栏消息的字符串,其值为“加密”或“解密”。

最后一段真正执行加密和解密。While 循环从输入文件读取数据,一次读取一个块。然后使用其 Write 方法将块写入到  csMyCryptoStream 中。之后,csMyCryptoStream 自动执行加密或解密,并将结果写入到所附加的文件流  fsOutput 中。然后,更新处理的字节总数和状态栏消息,并执行循环以处理另一个块。

循环完成后,更新状态栏文本并关闭流对象,整个过程便告结束。

现在我们可以测试该项目。要进行正确的测试,加密的文件大小要适当。我使用从 Project Gutenberg(http://promo.net/pg/  [英文])获得的一个文本文件,该 Web 站点提供各种可以下载且不受版权限制的文本文件。我选择的文件是柯南·道尔著的《福尔摩斯探案集》。文本文件长度为 573  KB。

在 Unencrypted File(未加密文件)文本框中,输入您选择的需要加密的文件的路径名;并在 Encrypted  File(已加密文件)文本框中,输入加密文件的路径名。还需要为密钥和初始化向量构造密码。

在测试时,我用的是 700-MHz 的 Pentium III 计算机,加密大小为 573 KB 的《福尔摩斯探案集》用了不到两秒钟时间。这展示了 DES  算法的优势之一,即其优异的性能。

如果在测试后打开输出文件,会看到文件已被完全加密。现在,使用相同的密码将它解密到另一个文件中。您可能希望确保新的解密文件与原文件完全相同。在  Microsoft Windows® 中有一个命令行实用程序,名为 FC(文件比较),可以用它来进行检验。

很显然,如果您在解密时更改了密码,解密将不起作用。然而,如果在解密时更改初始化向量,则会发生有趣的事情。除了前 8  个字符外,文件被正常解密。也就是说,初始化向量只能保护第一个块。

总结

如上所述,DES  算法只是一种选择。而最灵活的选择之一是使用公钥加密系统,也称为非对称加密。在这种技术中,加密和解密使用不同的密钥。加密密钥是公开的,而解密密钥则是保密的,只有需要执行解密的人才知道。人人都可以使用加密密钥进行加密,但只能使用解密密钥进行解密。

公钥加密的最大缺点是其性能较差。对称算法对处理能力的要求比公钥算法低得多。但是,公钥加密令所有人(即使是您不认识的人)都能加密文件并将它发送给您,这会给您提供更大的灵活性。

无论选择哪种加密技术,使用 .NET  密码类都能使操作更容易。正如本文示例所示,您只需提供必要的密钥和其他参数,然后将密码类插入相应的流即可。这为创建使用加密技术的 Visual Basic  .NET 应用程序提供了更大方便。

扫描二维码推送至手机访问。

版权声明:本文由海阔天空发布,如需转载请注明出处。

本文链接:https://www.apull.net/html/20070521172.html

分享给朋友:

相关文章

VB/VB.net 只允许运行一个实例

VB/VB.net 只允许运行一个实例

VB/VB.net  只允许运行一个实例       by:  Apull  VB中的实现方法VB如何防止程序被重复加载,也就是只允许运行一个实例,一般有2种方法。一,直接用VB提供的APP对象的PrevInstance方法。PrevInstance的返回值为True则说明已经有一个实力在运行。If App.PrevInstance Then Msgbox "已经有一个实例在运行" End if这个...

在ASP中访问和更新Cookies集合

在ASP中访问和更新Cookies集合

  Cookies的值比ASP其他集合(例如Form和ServerVariables)的值要复杂得多。Cookie是一小块由浏览器存贮在客户端系统上的文本,且随同每次请求发往它们应用于的域中的服务器。  ASP使得应用cookie较为容易,可以从Request对象的Cookies集合中获得所有随同请求发出的cookie值,并可创建或修改cookie,通过Response对象的Cookies集合发回给用户。  Cookie包含可用两种方式构造的信息,单值cookie提供其值给代...

VB.NET关于加密算法

VB.NET关于加密算法

加密将防止数据被查看或修改,并在原本不安全的信道上提供安全的通信信道,它达到以下目的:  保密性:防止用户的标识或数据被读取。  数据完整性:防止数据被更改。  身份验证:确保数据发自特定的一方。  基本概念  1、散列(HASH)函数  散列(HASH)函数H也称哈希函数或杂凑函数等,是典型的多到一的函数,其输入为一可变长x(可以足够的长),输出一固定长的串h(一般为128位、160位,比输入的串短),该串h被称为输入x的Hash值(或称消息摘要Message  ...

ASP错误提示大全

ASP错误提示大全

Microsoft VBScript 语法错误(0×800A03E9)–>内存不足Microsoft VBScript 语法错误(0×800A03EA)–>语法错误Microsoft VBScript 语法错误(0×800A03EB)–>缺少’:’Microsoft VBScript 语法错误(0×800A03ED)–>缺少’(’Mi...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。