上次我已经设计出了基本的界面，而且也确定了使用ini文件做为参数的保存方式，调用Windows API函数进行INI文件的读写操作，但有一个重要的问题，这个小程序涉及到了二个方面的密码：一是数据库的连接密码，二是邮件服务器的发送密码，如果我们直接把密码以明文的方式保存到INI文件中，如果一不小心INI文件泄露的话，其他人很容易就可以得到这些参数，可能会对数据库或邮件服务器进行攻击或者伪造邮件，造成不必要的麻烦。因此，我下一步考虑的是如何对敏感信息进行加密。
现在通用的加密算法有很多，但首先要确定的一点就是，我们选择的加密算法一定要是可逆的，也就是说，使用同一个密码，可以加密，也可以解密出明文，否则就无法将保存的密码恢复，这样的话，最常用的MD5加密方式就不能使用了，我选择的是DES加密方式,虽然这种加密方式可能已经有点老了，但用在这个场合感觉已经够用了，最重要的是，它本身就包括在了vs的一个类中，很方便就可以调用。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
Imports System.Security.CryptographyImports System.TextPublic Function Encrypt(ByVal pToEncrypt As String, ByVal sKey As String) As String Dim des As New DESCryptoServiceProvider() Dim inputByteArray() As Byte inputByteArray = Encoding.Default.GetBytes(pToEncrypt) ''建立加密对象的密钥和偏移量 ''原文使用ASCIIEncoding.ASCII方法的GetBytes方法 ''使得输入密码必须输入英文文本 des.Key = ASCIIEncoding.ASCII.GetBytes(sKey) des.IV = ASCIIEncoding.ASCII.GetBytes(sKey) ''写二进制数组到加密流 ''(把内存流中的内容全部写入) Dim ms As New System.IO.MemoryStream() Dim cs As New CryptoStream(ms, des.CreateEncryptor, CryptoStreamMode.Write) ''写二进制数组到加密流 ''(把内存流中的内容全部写入) cs.Write(inputByteArray, 0, inputByteArray.Length) cs.FlushFinalBlock() ''建立输出字符串 Dim ret As New StringBuilder() Dim b As Byte For Each b In ms.ToArray() ret.AppendFormat("{0:X2}", b) Next Return ret.ToString() End Function Public Function Decrypt(ByVal pToDecrypt As String, ByVal sKey As String) As String Try Dim des As New DESCryptoServiceProvider() ''把字符串放入byte数组 Dim len As Integer len = pToDecrypt.Length / 2 - 1 Dim inputByteArray(len) As Byte Dim x, i As Integer For x = 0 To len i = Convert.ToInt32(pToDecrypt.Substring(x * 2, 2), 16) inputByteArray(x) = CType(i, Byte) Next ''建立加密对象的密钥和偏移量，此值重要，不能修改 des.Key = ASCIIEncoding.ASCII.GetBytes(sKey) des.IV = ASCIIEncoding.ASCII.GetBytes(sKey) Dim ms As New System.IO.MemoryStream() Dim cs As New CryptoStream(ms, des.CreateDecryptor, CryptoStreamMode.Write) cs.Write(inputByteArray, 0, inputByteArray.Length) cs.FlushFinalBlock() Return Encoding.Default.GetString(ms.ToArray) Catch ex As Exception Return "" End Try End Function |
要注意的是，DES算法的密钥必须是八位英文字母或数字，不能多也不能少，不然就会报错。
现在，我将读写INI的语句稍做改变，写入时加上密码，读取时自动解密，假设密钥使用一个固定的八位字串，示例代码如下：
|
1
2
3
4
5
|
IniFile = Application.StartupPath + "\sendmail.ini"'将密码加密后写入INI文件，密钥固定为"vvian999"WriteINI("SMTP", "password", Encrypt(Txt_MailPwd.Text, "vvian999"), IniFile)'将读出的密码解密后放入文本框内Txt_MailPwd.Text = Decrypt(GetINI("SMTP", "password", "", IniFile), "vvian999") |
这样一来，存入INI文件的密码参数就已经是加密后的字串，在不知道密钥的情况下，一般人已经很难将其破解，得到敏感信息了。但安全永远是放在第一位的，我又想到，如果得到INI文件的那个人在其他的机器上运行了这个程序，文本框中就会显示出星号的密码明文，只要使用一个密码查看器之类的软件，密码也会泄露了，而且密钥如果写死在可执行文件中，加密的规律是相同的，也不好呀，最好的办法是每台机器的密钥是一个固定的值，但各台机器的密钥又不相同，这样的话，就算把程序和INI文件一起拷到其他服务器上也无法正常执行，安全也有了保障。
每台机器一个固定密钥最好的办法就是获取该机器的某个硬件值，如硬盘序号、CPU编号、网卡MAC地址等一般不会变化的数据，使用这些数据得到一个八位长度的字符串，以此为密钥，加密一个只有自己才知道的字符串，每次启动时解密一次，如果解密结果相同，就继续进行，如果解密结果不同，就报错，要求重新输入数据库和邮件服务器的密码，最大程度的保证了数据的安全，这实际上也是共享软件常用的注册码方式吧。
获取硬件信息我使用的是System.Management，使用wmi来获取，比如下面的例子就是获取网卡的MAC地址，然后取前八位做为密钥进行加密，因为MAC地址都是12位的，不用担心长度不够的问题，也可以取后八位、中间八位等方式来处理。加一个加密好的字符串同时放入INI文件后，以后每次启动程序时进行一次检查。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
'先获取硬件代码，这里使用的是网卡MAC地址的前八位Dim HwCode as StringDim macaddr As StringDim Wmimac As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")For Each WmiObj As ManagementObject In Wmimac.Get If CBool(WmiObj("IPEnabled")) Then macaddr = WmiObj("MACAddress") End IfNextHwCode = Microsoft.VisualBasic.Left(Replace(macaddr, ":", ""),8))'把验证字符串写入INI文件WriteINI("SendMail", "CRC", Encrypt("clicvvian2010", HwCode), IniFile) |
还有一点，如果是服务器上一般不止一块网址，我使用的是最后一块网卡的地址，你也可以使用其他方式来指定某一块网卡，使用wmi来获取其他硬件信息的方法，大家可以通过google搜索，这里就不多说了。
|
1
2
3
4
5
6
7
|
Private Sub sendmail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'前面的一些代码已经删除，只留下判断过程的 If Decrypt(GetINI("SendMail", "CRC", "", IniFile), HwCode) <> "clicvvian2010" Then MessageBox.Show("注意：检测到服务器有变化，请重新输入数据库、邮件服务器密码后保存，现密码已解码出错！", "注意", MessageBoxButtons.OK, MessageBoxIcon.Information) End If' End Sub |
处理了一个问题后，对于第二个问题也可以开始考虑，就是将解密后的密码放回文本框后，如果有心人可以接触到服务器，一样可以通过密码查看软件得到密码，因此我的处理方式是将读入的密码密文直接放到文本框中，将解密后的密码明文放到一个Public变量中，在要使用密码的地方，先进行一次判断，将变量中的密码加密后与文本框中的对比，如果一致，就使用变量中的密码，如果不一致，说明使用者修改过密码，就将文本框中的密码符值给变量然后使用，当使用者每点击一次“保存参数”时，再将加密后的密码重新放到密码框中。当然这也有问题，就是使用者修改了密码，又没有点击保存参数时，密码还是以明文方式存放在文本框中，我尝试使用了Txt_MailPwd_LostFocus和Txt_MailPwd_Validated二种方式都没能做过修改后实时变换，不知道各位有没有什么好的办法。
与上次相比，界面做了一点点改动，增加了一个测试邮件的输入框和发送测试邮件的按钮，同时去掉了“数据库优先”选项，就直接默认为数据库的信息优先吧（指的是如果数据库中的某条记录指定了发件人姓名，就不再使用本处输入的内容），比上次的排列更好看了一些，呵呵
原打算在这次就进入数据库设计的，看来又要推到下一次了，呵呵，我力争加大进度，在国庆长假期间完成这个小程序吧。
