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

mm331944

谢谢分享 ！！！

fdqay3

支持一下！！！！！！！

tzdfvc

回复看看怎么样

yjaaww

.版本 2 .支持库 spec  .程序集 窗口程序集_启动窗口  .子程序 __启动窗口_创建完毕  编辑框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)

yjaaww

爱的是否打算发达

51367701

6666666666666666666666

理想作废

谢谢了，楼主幸苦了，大大的好啊

理想作废

谢谢了，楼主幸苦了，大大的好啊

digauwl

谢谢楼主分享！！！！！！

摸螺打罕

回复看看怎么样