2.3 输入信息加密

    在身份验证中，以上办法都多少存在着一些问题，目前本校很多应用系统使用信息加密方法来防止黑客的攻击，此方法可以彻底地防止数据库被黑客盗取。即使被盗，黑客也无法查看用户表中的用户口令，因此也无法进入系统。此功能原理是利用ASP技术编写代码使输入的用户名和密码以加密的形式存入数据库中，在读取数据时利用解密代码来进行数据解密。可以说目前这种方法被广泛使用，并且很多成型软件也使用这种信息加密安全机制来保障软件的安全性。下面详细地看一下目前本校使用的信息加密的代码：

Function CfsEnCode(CodeStr)

Dim CodeLen

Dim CodeSpace

Dim NewCode

CodeLen = 30

CodeSpace = CodeLen - Len(CodeStr)

′Len(CodeStr)计算CodeStr 字符串的长度，Len为ASP的内建函数

If Not CodeSpace < 1 Then

For cecr = 1 To CodeSpace

CodeStr = CodeStr & Chr(21)

Next

End If

NewCode = 1

Dim Been

For cecb = 1 To CodeLen

Been = CodeLen + Asc(Mid(CodeStr,cecb,1)) * cecb

′Asc返回与字符串的第一个字母对应的 ANSI 字符代码

NewCode = NewCode * Been

Next