加密解密源码，加密后显示纯数字

蚂蚁软件_萧峰

这次发的是两种加密解密方法，可能跟大神们作品无法比较。
请“口”下留情！！！有建议请留言！

第一种加密解密方法是在易语言资源网上看到的收录了，只是把里面的英文改成了中文（没办法英文实在看不懂）
第二种加密解密方法算是一种投机吧，我把字节集文本化进行了处理然后就实现16进制加密解密了！！

具体的大家看图

上图代码中的“666666”是加解密的密码，加密解密的密码不一样的时候是无法解密的，默认密码：123456

上图是演示数字加密解密

上图是演示16进制的加密解密

  

.版本 2[/size][/font]
[font=微软雅黑][size=4]

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

子程序名	返回值类型	公开	备 注
加密_数字版	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
密码	整数型				默认:123456

变量名	类 型	静态	数组	备 注
待加密数据	字节集
加密处理	字节集
加密后数据	文本型
计次	整数型

如果真 (是否为空 (密码))
密码 ＝ 123456
待加密数据 ＝ 到字节集 (文本)
计次循环首 (取字节集长度 (待加密数据), 计次)
加密处理 ＝ 加密处理 ＋ 到字节集 (到字节 (位异或 (待加密数据 [计次], 密码)))
计次循环尾 ()
计次循环首 (取字节集长度 (加密处理), 计次)
加密后数据 ＝ 加密后数据 ＋ 字节补位 (到文本 (到整数 (到字节 (加密处理 [计次]))))
计次循环尾 ()
返回 (加密后数据)

子程序名	返回值类型	公开	备 注
解密_数字版	文本型
参数名	类 型	参考	可空	数组	备 注
密文	文本型
密码	整数型

变量名	类 型	静态	数组	备 注
计次	整数型
解密处理	字节集
解密后数据	字节集

如果真 (是否为空 (密码))
密码 ＝ 123456
如果真 (取文本长度 (密文) ％ 3 ≠ 0)  ' 原来每个字节文本都补齐3位了，求余数≠0肯定不是原来的数据
输出调试文本 (“数据不全或非密文！”)
返回 (“”)
计次循环首 (取文本长度 (密文) ÷ 3, 计次)
解密处理 ＝ 解密处理 ＋ 到字节集 (到字节 (取文本中间 (密文, (计次 － 1) × 3 ＋ 1, 3)))
计次循环尾 ()
计次循环首 (取字节集长度 (解密处理), 计次)
解密后数据 ＝ 解密后数据 ＋ 到字节集 (到字节 (位异或 (解密处理 [计次], 密码)))
计次循环尾 ()
返回 (到文本 (解密后数据))

子程序名	返回值类型	公开	备 注
字节补位	文本型		把字节都补成3位
参数名	类 型	参考	可空	数组	备 注
加密结构	文本型

返回 (取文本右边 (“00” ＋ 加密结构, 3))

子程序名	返回值类型	公开	备 注
蚂蚁_加密	文本型
参数名	类 型	参考	可空	数组	备 注
待加密文本	文本型

变量名	类 型	静态	数组	备 注
加密的文本	文本型
密文	文本型

加密的文本 ＝ 字节集文本化 (到字节集 (待加密文本), 真, 真)
密文 ＝ 子文本替换 (加密的文本, “ ”, “”, , , 假)
返回 (密文)

子程序名	返回值类型	公开	备 注
蚂蚁_解密	文本型
参数名	类 型	参考	可空	数组	备 注
密文	文本型

变量名	类 型	静态	数组	备 注
起始位置	整数型
计次	整数型
待解密文本	文本型
解密的文本	文本型

计次 ＝ 0
起始位置 ＝ 1
计次循环首 (取文本长度 (密文) ÷ 2, 计次)
待解密文本 ＝ 待解密文本 ＋ 取文本中间 (密文, 起始位置, 2) ＋ “ ”
起始位置 ＝ 起始位置 ＋ 2
计次循环尾 ()
解密的文本 ＝ 到文本 (字节集文本还原 (待解密文本, 真, “ ”))
返回 (解密的文本)

.版本 2</font></font><br /> <font face="微软雅黑"><font size="4"><br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> .子程序 加密_数字版, 文本型, 公开<br /> .参数 文本, 文本型<br /> .参数 密码, 整数型, 可空, 默认:123456<br /> .局部变量 待加密数据, 字节集<br /> .局部变量 加密处理, 字节集<br /> .局部变量 加密后数据, 文本型<br /> .局部变量 计次, 整数型<br /> <br /> .如果真 (是否为空 (密码))<br />     密码 ＝ 123456<br /> .如果真结束<br /> 待加密数据 ＝ 到字节集 (文本)<br /> .计次循环首 (取字节集长度 (待加密数据), 计次)<br />     加密处理 ＝ 加密处理 ＋ 到字节集 (到字节 (位异或 (待加密数据 [计次], 密码)))<br /> .计次循环尾 ()<br /> .计次循环首 (取字节集长度 (加密处理), 计次)<br />     加密后数据 ＝ 加密后数据 ＋ 字节补位 (到文本 (到整数 (到字节 (加密处理 [计次]))))<br /> .计次循环尾 ()<br /> 返回 (加密后数据)<br /> <br /> <br /> .子程序 解密_数字版, 文本型, 公开<br /> .参数 密文, 文本型<br /> .参数 密码, 整数型, 可空<br /> .局部变量 计次, 整数型<br /> .局部变量 解密处理, 字节集<br /> .局部变量 解密后数据, 字节集<br /> <br /> .如果真 (是否为空 (密码))<br />     密码 ＝ 123456<br /> .如果真结束<br /> .如果真 (取文本长度 (密文) ％ 3 ≠ 0)  ' 原来每个字节文本都补齐3位了，求余数≠0肯定不是原来的数据<br />     输出调试文本 (“数据不全或非密文！”)<br />     返回 (“”)<br /> .如果真结束<br /> .计次循环首 (取文本长度 (密文) ÷ 3, 计次)<br />     解密处理 ＝ 解密处理 ＋ 到字节集 (到字节 (取文本中间 (密文, (计次 － 1) × 3 ＋ 1, 3)))<br /> .计次循环尾 ()<br /> .计次循环首 (取字节集长度 (解密处理), 计次)<br />     解密后数据 ＝ 解密后数据 ＋ 到字节集 (到字节 (位异或 (解密处理 [计次], 密码)))<br /> .计次循环尾 ()<br /> 返回 (到文本 (解密后数据))<br /> <br /> .子程序 字节补位, 文本型, , 把字节都补成3位<br /> .参数 加密结构, 文本型<br /> <br /> 返回 (取文本右边 (“00” ＋ 加密结构, 3))<br /> <br /> .子程序 蚂蚁_加密, 文本型, 公开<br /> .参数 待加密文本, 文本型<br /> .局部变量 加密的文本, 文本型<br /> .局部变量 密文, 文本型<br /> <br /> 加密的文本 ＝ 字节集文本化 (到字节集 (待加密文本), 真, 真)<br /> 密文 ＝ 子文本替换 (加密的文本, “ ”, “”, , , 假)<br /> 返回 (密文)<br /> <br /> <br /> .子程序 蚂蚁_解密, 文本型, 公开<br /> .参数 密文, 文本型<br /> .局部变量 起始位置, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 待解密文本, 文本型<br /> .局部变量 解密的文本, 文本型<br /> <br /> 计次 ＝ 0<br /> 起始位置 ＝ 1<br /> .计次循环首 (取文本长度 (密文) ÷ 2, 计次)<br />     待解密文本 ＝ 待解密文本 ＋ 取文本中间 (密文, 起始位置, 2) ＋ “ ”<br />     起始位置 ＝ 起始位置 ＋ 2<br /> .计次循环尾 ()<br /> 解密的文本 ＝ 到文本 (字节集文本还原 (待解密文本, 真, “ ”))<br /> 返回 (解密的文本)

黑暗系易语言界面配色、个性配色


蚂蚁软件_加密模块.zip (173.12 KB, 下载次数: 296)

2017-1-2 22:39 上传

点击文件名下载附件
模块演示.zip (1.48 KB, 下载次数: 152)

2017-1-2 22:39 上传

点击文件名下载附件
字节集文本化模块.zip (1.75 KB, 下载次数: 230)

2017-1-2 22:39 上传

点击文件名下载附件

yangjinmu

请问这样咋实现效果    一次多次添加    加密载入     多个项目     最后 点击解密全部解决

ctry78985

感谢分享

huxiaocun23

希望有点用吧

huxiaocun23

有点贵啊 啊 啊还分两个购买

lelele1979

#在这里快速回复# 谢谢分享

minter

谢谢分享

nyb123

4个币又没有了

nyb123

赶快回复下，又没币了

lcctw0821

感谢分享，很给力！~

王东林

谢谢分享