[导读] 在管理信息系统中使用密码可以防止用户数据被非法读取、非法更改,确保数据的安全可靠。文章针对中小企业管理信息系统的特点,设计了一种以动态加密算法为基础的复合加密技术,以期进一步提高中小企业管理信息系统的数据安全性,从而保护软件作者以及软件使用者的合法权益。

一、动态对称加密算法的设计

动态对称加密算法的设计是本复合加密技术的核心,本动态加密算法以密码字典为基础,将明文输入后,通过随机函数从字典中取掩码片段与明文进行异或运算,生成的密文中包含运算结果和随机种子,解密时只需从密文中取出随机种子,根据随机种子从字典中重新获得数据加密掩码片段,通过掩码片段与密文的再次异或即可还原出明文,由于这种加密方式每次输入明文得到的密文都不同,具有较强的隐蔽性,且运算速度快。

根据以上算法在实际应用中可通过任意一种编程语言来实现,以下是动态加密算法通过VB实现的源代码:

Public Function encode(ByVal s) As String

Dim buff() As Byte

Dim i As Long

Dim j As Byte

Dim k As Byte, m As Byte

Dim outs As String

Dim mstr As String

Dim temps As String

＇设定加密字典

mstr = ＂ABCDEFGHIJKLMNOPQRSTU-VWXYZ0123456789abcdefghijklmnopqrstuvwxyz＂

＇判断需加密明文长度

If Len(s) = 0 Then Exit Function

buff = StrConv(s, vbFromUnicode)

i = UBound(buff) + 1

outs = Space(2 * i)

For i = 0 To UBound(buff)

＇生成随机种子

Randomize Time

j = CByte(5 * (Math.Rnd()) + 0)

＇根据随机种子从字典中取掩码片段

k = buff(i) Mod Len(mstr)

＇将明文与掩码进行异或运算

buff(i) = buff(i) Xor j

m = buff(i) \ Len(mstr)

m = m * 2 ^ 3 + j

＇合并运算结果

temps = Mid(mstr, k + 1, 1) + Mid(mstr, m + 1, 1)

Mid(outs, 2 * i + 1, 2) = temps

Next

＇输出密文

encode = outs

End Function