异或加解密字节集

神女软件定制

看到个帖子https://bbs.125.la/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	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 原数据, 字节集<br /> .局部变量 加密后, 字节集<br /> .局部变量 解密后, 字节集<br /> <br /> 原数据 ＝ 到字节集 (“这是明文，123，abc”)<br /> 调试输出 (“原数据：”, 原数据, 到文本 (原数据))<br /> 加密后 ＝ 异或加解密 (原数据, 到字节集 (“密码$#@%$%ASDF”))<br /> 调试输出 (“加密后：”, 加密后, 到文本 (加密后))<br /> 解密后 ＝ 异或加解密 (加密后, 到字节集 (“密码$#@%$%ASDF”))<br /> 调试输出 (“解密后：”, 解密后, 到文本 (解密后))<br /> 调试输出 (“——————————”)<br /> 调试输出 (“如果用空字节，或者0x00做加密密码，加密后和原数据一样”)<br /> 调试输出 (“原数据：”, 原数据, 到文本 (原数据))<br /> 加密后 ＝ 异或加解密 (原数据, { 0, 0, 0 })  ' 不管多少0<br /> 调试输出 (“0x00加密后：”, 加密后, 到文本 (加密后))<br /> <br /> .子程序 异或加解密, 字节集, , 加密解密，都是这个函数<br /> .参数 cs_待加解密数据, 字节集<br /> .参数 cs_密码, 字节集<br /> .局部变量 jb_密码长度, 整数型<br /> .局部变量 jb_长度, 整数型<br /> .局部变量 jb_加密, 字节集<br /> .局部变量 jb_位置, 整数型<br /> .局部变量 jb_计次, 整数型<br /> <br /> jb_密码长度 ＝ 取字节集长度 (cs_密码)<br /> .如果 (jb_密码长度 ≠ 0)<br />     jb_长度 ＝ 取字节集长度 (cs_待加解密数据)<br />     jb_加密 ＝ 取空白字节集 (jb_长度)<br />     jb_位置 ＝ 1<br />     .计次循环首 (jb_长度, jb_计次)<br />         jb_加密 [jb_计次] ＝ 位异或 (cs_待加解密数据 [jb_计次], cs_密码 [jb_位置])<br />         .如果 (jb_位置 ＝ jb_密码长度)<br />             jb_位置 ＝ 1<br />         .否则<br />             jb_位置 ＝ jb_位置 ＋ 1<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     返回 (jb_加密)<br /> .否则<br />     返回 (cs_待加解密数据)<br /> .如果结束

79961565

支持开源~！感谢分享

杨明煜

感谢分享，有你同行.................

jxc1690

我是要做个高并发的服务器 准备用异或加密的 所以要用asm

happyweeks365

谢谢分享！！

kmskik

啊啊，谢谢大佬分享！！