有网友问到如何对表中数据加密处理 用来防止其他用户看到具体的数据。

下面的示例对数据表文本字段进行加解密。当然这只是 其中的一种方法，也没有绝对的安全。

详细源码：

Public Function EncRec(strPW As String)

Dim strTmp As String

Dim i As Integer

For i = 1 To Len(strPW)

    strTmp = Mid(strPW, i, 1)

    If Not Asc(strTmp) Mod 2 = 0 Then

        strTmp = Chr(Asc(strTmp) - 1)

    Else

        strTmp = Chr(Asc(strTmp) + 1)

    End If

    EncRec = EncRec & strTmp

Next

End Function

查询调用函数：