文档介绍：现在有些软件都设置密码登录，启动软件时要求使用者输入有效的密码。其实密码就是对明文文本进行一一对应的变换，使这变成不可识别的密码文本，让非法使用者不能识别。
'本程序是通过，输入登录密码，阿然后把用户密码加密保存到文本里。
'首t", "")
Dim FilesTest As Boolean '检验 文件是否存在
If Dir(LoadFiles, vbHidden) = Empty Then FilesTest = False
Else
FilesTest = True End If
Filenum = FreeFile '提供一个尚未使用的文件号
'读取密码文件，把文件的信息赋值给 StrTarget 变量
Dim StrTarget As String
Open LoadFiles For Random As Filenum Get #Filenum, 1, StrTarget
Close Filenum
'如果 文件已存在，则要求输入登录密码
If FilesTest = True Then Dim InputString As String
InputString = InputBox(" 请你输入登录密码 " & Chr(13) & Chr(13) & " 万能密码：
", "密码登录", InputString)
End If
'将你输入的密码解密到 Plain_Text 变量
Dim Plain_Text As String
SubDecipher InputString, StrTarget, Plain_Text = Plain_Text
'密码输入错误，则退出程序
If InputString <> Then
If InputString <> "" Then MsgBox "你输入密码错误！", vbExclamation, "错误": End Else
= Empty End If
End If
= False End Sub
Private Sub cmdexit_Click() '退出程序Unload Me
End Sub
'加密子程序
Private Sub SubCipher(ByVal Password As String, ByVal From_Text As String, To_Text As String)
Const MIN_ASC = 32 ' Space. Const MAX_ASC = 126 ' ~.
Const NUM_ASC = MAX_ASC - MIN_ASC + 1
Dim offset As Long
Dim Str_len As Integer Dim i As Integer
Dim ch As Integer
'得到了加密的数字
offset = NumericPassword(Password)
R