vb程序登陆密码加密的实现.docVIP

本程序是通过，输入登录密码，然后把用户密码加密保存到文本里。 首先，建立一个标准EXE工程，在窗体上放置一个TextBox控件，名称为txtPassword，PasswordChar属性为*。再放置两个CommandButton控件，第一个的名称为CmdSave，Caption属性为保存密码(S)，另一个的名称为CmdExit，Caption属性为退出(Q)。 主程序原代码如下： Option Explicit 定义变量 Dim Filenum As Integer Dim LoadFiles As String Private Sub txtPassword_Change() CmdSave.Enabled = True End Sub Private Sub CmdSave_Click() 保存密码 当密码输入为空时，则提示信息。 If txtPassword.Text = Empty Then MsgBox 请你输入要更改的密码！, vbExclamation, Me.Caption Exit Sub End If 将你输入的密码加密到 Cipher_Text 的变量里 Dim Cipher_Text As String SubCipher txtPassword.Text, txtPassword.Text, Cipher_Text 保存到文件并加密 Filenum = FreeFile Open LoadFiles For Random As Filenum 把 Cipher_Text 的变量写入文件里 Put #Filenum, 1, Cipher_Text Close Filenum CmdSave.Enabled = False End Sub Private Sub Form_Load() On Error Resume Next 密码信息文件的路径 LoadFiles = App.Path IIf(Len(App.Path) 3, \key.dat, key.dat) Dim FilesTest As Boolean 检验 key.dat 文件是否存在 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 如果 key.dat 文件已存在，则要求输入登录密码 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 txtPassword.Text = Plain_Text 密码输入错误，则退出程序 If InputString txtPassword.Text Then If InputString Then MsgBox 你输入密码错误！, vbExclamation, 错误: End Else txtPassword.Text = Empty End If End If CmdSave.Enabled = 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 In