如何实现VB程序登录密码加密

编辑和完成考试；现在有些软件设置密码登录，启动软件时要求用户输入有效密码。实际上，密码是对明文的一一变换，使其成为无法识别的密码文本，使非法用户无法识别。

本程序是输入登录密码，然后将用户密码加密保存到文本中。

首先，建立一个标准的EXE项目，在窗体上放置一个名为txtPassword的TextBox控件，PasswordChar属性为“*”。再放置两个CommandButton控件，第一个名为CmdSave，Caption属性为“保存密码&S”，另一个名为CmdExit，Caption属性为“退出&Q”。

主程序的原始代码如下:

选项显式

定义变量

Dim Filenum为整数

将加载文件显示为字符串

私有Sub txtPassword_Change()

CmdSave。启用=真

末端接头

PrivateCmdsave _ click()'保存密码

当密码输入为空时，会有提示。

如果txtPassword。那么Text = Empty

MsgBox "请输入您要更改的密码！"，VB感叹号，我。标题

出口接头

如果…就会结束

加密您输入到Cipher_Text变量中的密码。

Dim密码文本作为字符串

子定时器txtPassword。文本，txtPassword。文本，密码_文本

保存到文件并加密

Filenum = FreeFile

打开随机加载文件作为Filenum

将变量Cipher_Text写入文件。

Put #Filenum，1，Cipher_Text

关闭Filenum

CmdSave。启用=假

末端接头

私有子窗体_Load()

出错时继续下一步

密码信息文件的路径。

LoadFiles = App。Path & IIf(Len(App。Path) > 3，" \key.dat "，" key.dat ")

Dim文件测试为布尔值

检查key.dat文件是否存在。

如果Dir(LoadFiles，vbHidden) = Empty，则

FilesTest = False

其他

FilesTest = True

如果…就会结束

“Filenum = FreeFile”提供了一个未使用的文件号。

读取密码文件，并将该文件的信息赋给StrTarget变量。

Dim StrTarget作为字符串

打开随机加载文件作为Filenum

Get #Filenum，1，StrTarget

关闭Filenum