加密与解密，可以自己定义算法。一看就懂

经常修电脑 · 发表于 2016-11-26 15:12:25

就几句话我就不上传附件了，代码回复一下就可以看到了。

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

编辑框1.内容＝ “https://www.baidu.com/”

子程序名	返回值类型	公开	备注
_按钮1_被单击

编辑框2.内容＝ yd加密 (编辑框1.内容, 99999999999, 9999999999)
编辑框3.内容＝ yd解密 (编辑框2.内容, 99999999999, 9999999999)

子程序名	返回值类型	公开	备注
yd加密	文本型		只支持英文加密
参数名	类型	参考	可空	数组	备注
文本	文本型				欲加密的内容，只支持英文
密码	整数型				2-10位整数，建议不低于5位数
二级密码	整数型				2-10位整数

变量名	类型	静态	数组	备注
b	长整数型		0
计次	整数型
a	文本型
c	文本型

a ＝文本

计次循环首 (取文本长度 (a), 计次)

加入成员 (b, 取代码 (取文本中间 (a, 计次, 1), 1) × 密码－二级密码) ' 取出代码*密码再减去二级密码

计次循环尾 ()
计次＝ 0
a ＝ “”

计次循环首 (取数组成员数 (b), 计次)

a ＝ a ＋到文本 (b [计次]) ＋ “O” ' 分割的文本是大写字母O，可以和数字0混淆，让人不容易猜解

计次循环尾 ()
调试输出 (“加密后=” ＋ a)
返回 (a)

子程序名	返回值类型	公开	备注
yd解密	文本型
参数名	类型	参考	可空	数组	备注
文本	文本型				欲解密的内容
密码	整数型				加密时设置的密码，整数型
二级密码	整数型				加密时设置的密码，整数型

变量名	类型	静态	数组	备注
计次	整数型
a	文本型		0
b	文本型

a ＝分割文本 (文本, “O”, ) ' 分割的文本是大写字母O，可以和数字0混淆，让人不容易猜解

计次循环首 (取数组成员数 (a), 计次)

b ＝ b ＋字符 ( (到长整数 (a [计次]) ＋二级密码) ÷ 密码) ' 加二级密码在除以密码

计次循环尾 ()
调试输出 (“解密后的文本：” ＋ b)
返回 (b)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
编辑框1.内容 ＝ “https://www.baidu.com/”<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
编辑框2.内容 ＝ yd加密 (编辑框1.内容, 99999999999, 9999999999)<br />
编辑框3.内容 ＝ yd解密 (编辑框2.内容, 99999999999, 9999999999)<br />
<br />
.子程序 yd加密, 文本型, 公开, 只支持英文加密<br />
.参数 文本, 文本型, , 欲加密的内容，只支持英文<br />
.参数 密码, 整数型, , 2-10位整数，建议不低于5位数<br />
.参数 二级密码, 整数型, , 2-10位整数<br />
.局部变量 b, 长整数型, , "0"<br />
.局部变量 计次, 整数型<br />
.局部变量 a, 文本型<br />
.局部变量 c, 文本型<br />
<br />
a ＝ 文本<br />
.计次循环首 (取文本长度 (a), 计次)<br />
    加入成员 (b, 取代码 (取文本中间 (a, 计次, 1), 1) × 密码 － 二级密码)  ' 取出代码*密码再减去二级密码<br />
.计次循环尾 ()<br />
<br />
计次 ＝ 0<br />
a ＝ “”<br />
.计次循环首 (取数组成员数 (b), 计次)<br />
    a ＝ a ＋ 到文本 (b [计次]) ＋ “O”  ' 分割的文本是大写字母O，可以和数字0混淆，让人不容易猜解<br />
.计次循环尾 ()<br />
调试输出 (“加密后=” ＋ a)<br />
返回 (a)<br />
<br />
.子程序 yd解密, 文本型, 公开<br />
.参数 文本, 文本型, , 欲解密的内容<br />
.参数 密码, 整数型, , 加密时设置的密码，整数型<br />
.参数 二级密码, 整数型, , 加密时设置的密码，整数型<br />
.局部变量 计次, 整数型<br />
.局部变量 a, 文本型, , "0"<br />
.局部变量 b, 文本型<br />
<br />
a ＝ 分割文本 (文本, “O”, )  ' 分割的文本是大写字母O，可以和数字0混淆，让人不容易猜解<br />
.计次循环首 (取数组成员数 (a), 计次)<br />
    b ＝ b ＋ 字符 ((到长整数 (a [计次]) ＋ 二级密码) ÷ 密码)  ' 加二级密码在除以密码<br />
.计次循环尾 ()<br />
调试输出 (“解密后的文本：” ＋ b)<br />
返回 (b)