精易论坛

标题: 异或加解密字节集 [打印本页]

作者: 神女软件定制    时间: 2020-6-12 22:54
标题: 异或加解密字节集
看到个帖子https://125.confly.eu.org/thread-14585484-1-1.html里面有人问“密码可以设置中文和符号吗”
@kmskik
闲得无聊做了个,很简单,加密解密都是同一个函数
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
原数据字节集 
加密后字节集 
解密后字节集 
原数据 = 到字节集 (“这是明文,123,abc”)
调试输出 (“原数据:”, 原数据, 到文本 (原数据))
加密后 = 异或加解密 (原数据, 到字节集 (“密码$#@%$%ASDF”))
调试输出 (“加密后:”, 加密后, 到文本 (加密后))
解密后 = 异或加解密 (加密后, 到字节集 (“密码$#@%$%ASDF”))
调试输出 (“解密后:”, 解密后, 到文本 (解密后))
调试输出 (“——————————”)
调试输出 (“如果用空字节,或者0x00做加密密码,加密后和原数据一样”)
调试输出 (“原数据:”, 原数据, 到文本 (原数据))
加密后 = 异或加解密 (原数据, { 0, 0, 0 })  ' 不管多少0
调试输出 (“0x00加密后:”, 加密后, 到文本 (加密后))
子程序名返回值类型公开备 注
异或加解密字节集 加密解密,都是这个函数
参数名类 型参考可空数组备 注
cs_待加解密数据字节集
cs_密码字节集
变量名类 型静态数组备 注
jb_密码长度整数型 
jb_长度整数型 
jb_加密字节集 
jb_位置整数型 
jb_计次整数型 
jb_密码长度 = 取字节集长度 (cs_密码)
如果 (jb_密码长度 ≠ 0)
jb_长度 = 取字节集长度 (cs_待加解密数据)
jb_加密 = 取空白字节集 (jb_长度)
jb_位置 = 1
计次循环首 (jb_长度, jb_计次)
jb_加密 [jb_计次]位异或 (cs_待加解密数据 [jb_计次], cs_密码 [jb_位置])
如果 (jb_位置 = jb_密码长度)
jb_位置 = 1
jb_位置 = jb_位置 + 1

计次循环尾 ()
返回 (jb_加密)
返回 (cs_待加解密数据)


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



作者: kmskik    时间: 2020-6-12 23:28
啊啊,谢谢大佬分享!!
作者: happyweeks365    时间: 2020-6-13 08:08
谢谢分享!!
作者: jxc1690    时间: 2020-6-13 08:28
我是要做个高并发的服务器 准备用异或加密的 所以要用asm
作者: 杨明煜    时间: 2020-6-14 07:10
感谢分享,有你同行.................
作者: 79961565    时间: 2020-6-26 21:38
支持开源~!感谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4