咖啡哈克 发表于 2018-3-2 18:53:26

简单的密码防盗技术

.版本 2

.程序集 窗口程序集1
.程序集变量 输入键码, 整数型
.程序集变量 选择长度, 整数型
.程序集变量 密码, 文本型

.子程序 _编辑框1_内容被改变

.判断开始 (输入键码 ＝ 8 或 输入键码 ＝ 46)
    .如果 (选择长度 ＝ 0)
      密码 ＝ 取文本左边 (密码, 编辑框1.起始选择位置) ＋ 取文本中间 (密码, 编辑框1.起始选择位置 ＋ 2, 编辑框1.起始选择位置)
    .否则
      密码 ＝ 取文本左边 (密码, 编辑框1.起始选择位置) ＋ 取文本中间 (密码, 编辑框1.起始选择位置 ＋ 1 ＋ 选择长度, 编辑框1.起始选择位置)
    .如果结束

.默认
    密码 ＝ 取文本左边 (密码, 编辑框1.起始选择位置 － 1) ＋ 字符 (输入键码) ＋ 取文本中间 (密码, 编辑框1.起始选择位置 ＋ 选择长度, 编辑框1.起始选择位置)
.判断结束
标签2.标题 ＝ “密码：” ＋ 密码

.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型


输入键码 ＝ 键代码
选择长度 ＝ 取文本长度 (编辑框1.被选择文本)

.子程序 _编辑框1_字符输入, 整数型
.参数 字符代码, 整数型


输入键码 ＝ 字符代码
选择长度 ＝ 取文本长度 (编辑框1.被选择文本)
.判断开始 (字符代码 ＝ 8)

.判断 (字符代码 ＝ 13)
    字符代码 ＝ 0
.默认
    字符代码 ＝ 42
.判断结束
返回 (字符代码)


咬牙坚持 发表于 2018-3-2 19:00:11

前来支持~~~~~~~~~~~~~~~~~~~

小麦555 发表于 2018-3-2 19:06:56

学习了，这就去试试

asd3186789 发表于 2018-3-2 19:13:41

路过还不错

hy507669673 发表于 2018-3-2 19:20:27

很不错的哦，支持，加油

hy507669673 发表于 2018-3-2 19:27:12

我表示压力很大

无痕 发表于 2018-3-2 19:28:42

学习了！！！！

小天 发表于 2018-3-2 19:30:12

嘻嘻不错支持一个

4414513216511 发表于 2018-3-2 19:31:41

很给力。。。。很喜欢

443651433.. 发表于 2018-3-2 19:33:11

支持，赞
页: [1] 2 3 4 5 6
查看完整版本: 简单的密码防盗技术