大多数商业软件都是把密码等重要信息保存在注册表中或单独的文件中。如果把密码直接保存当然是不可靠的。所以一般都是结果一定的变换，比如用255减去每个字符的ASCII码，然后将结果保存起来。验证密码时用255减去读出的值就可以得到真实的密码。你当然可以使用更复杂的转换算法。例如： 
    Dim s As String, nCode() As Integer 
    s = "ABCdejkk" 
    ReDim nCode(1 To Len(s)) As Integer 
    For i = 1 To Len(s) 
     nCode(i) = 255 - Asc(Mid(s, i, 1)) 
    Next 
<END>    