如何实现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
0条评论