字节集数据膨胀式可逆加密算法1.0无密钥版 膨胀后长度、倍数、耗时不定 自带校验

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 置随机数种子 ()
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 膨胀后, 字节集
    
15. 
    
16. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
17. 
    
18. 膨胀后 ＝ 字节集_膨胀 (到字节集 (“Hello World!”))
    
19. 调试输出 (“膨胀后”, 膨胀后)
    
20. 
    
21. 调试输出 (到文本 (字节集_反膨胀 (膨胀后)))
    
22. 
    
23. 
    
24. .子程序 逻辑型数组编码
    
25. .参数 逻辑数组, 逻辑型, 参考 数组
    
26. .局部变量 数组副本, 逻辑型, , "0"
    
27. .局部变量 位置, 整数型
    
28. .局部变量 逻辑态, 逻辑型
    
29. 
    
30. .计次循环首 (取数组成员数 (逻辑数组), 位置)
    
31.     加入成员 (数组副本, 逻辑态)
    
32.     .如果真 (逻辑数组 [位置])
    
33.         加入成员 (数组副本, 逻辑态)
    
34.     .如果真结束
    
35.     逻辑态 ＝ 取反 (逻辑态)
    
36. .计次循环尾 ()
    
37. 逻辑数组 ＝ 数组副本
    
38. 
    
39. 
    
40. .子程序 逻辑型数组解码, 逻辑型
    
41. .参数 逻辑数组, 逻辑型, 数组
    
42. .局部变量 位置, 整数型
    
43. .局部变量 旧逻辑态, 逻辑型
    
44. .局部变量 连续数, 字节型
    
45. .局部变量 数组副本, 逻辑型, , "0"
    
46. .局部变量 成员数, 整数型
    
47. 
    
48. 成员数 ＝ 取数组成员数 (逻辑数组)
    
49. .如果真 (成员数 ≤ 0)
    
50.     返回 (假)
    
51. .如果真结束
    
52. .计次循环首 (成员数, 位置)
    
53.     .如果 (旧逻辑态 ≠ 逻辑数组 [位置] 且 位置 ＞ 1)
    
54.         加入成员 (数组副本, 连续数 ＝ 2)
    
55.         连续数 ＝ 1
    
56.     .否则
    
57.         连续数 ＝ 连续数 ＋ 1
    
58.         .如果真 (连续数 ＞ 2)
    
59.             返回 (假)
    
60.         .如果真结束
    
61. 
    
62.     .如果结束
    
63.     旧逻辑态 ＝ 逻辑数组 [位置]
    
64. .计次循环尾 ()
    
65. 加入成员 (数组副本, 连续数 ＝ 2)
    
66. 逻辑数组 ＝ 数组副本
    
67. 返回 (真)
    
68. 
    
69. 
    
70. .子程序 字节集到逻辑型数组
    
71. .参数 字节集数据, 字节集
    
72. .参数 逻辑型数组, 逻辑型, 参考 数组
    
73. .参数 高到低位, 逻辑型, 可空
    
74. .局部变量 字节集长度, 整数型
    
75. .局部变量 字节集计数, 整数型
    
76. .局部变量 移位位数计数, 整数型
    
77. .局部变量 移位后的值, 字节型
    
78. .局部变量 逻辑数组计数, 整数型
    
79. .局部变量 循环数组, 整数型, , "0"
    
80. 
    
81. 字节集长度 ＝ 取字节集长度 (字节集数据)
    
82. 重定义数组 (逻辑型数组, 假, 字节集长度 × 8)
    
83. .如果 (高到低位)
    
84.     循环数组 ＝ { 7, 0, -1 }
    
85. .否则
    
86.     循环数组 ＝ { 0, 7, 1 }
    
87. .如果结束
    
88. .计次循环首 (字节集长度, 字节集计数)
    
89.     .变量循环首 (循环数组 [1], 循环数组 [2], 循环数组 [3], 移位位数计数)
    
90.         逻辑数组计数 ＝ 逻辑数组计数 ＋ 1
    
91.         移位后的值 ＝ 左移 (1, 移位位数计数)
    
92.         逻辑型数组 [逻辑数组计数] ＝ 位与 (字节集数据 [字节集计数], 移位后的值) ＝ 移位后的值
    
93.     .变量循环尾 ()
    
94. .计次循环尾 ()
    
95. 
    
96. 
    
97. .子程序 逻辑型数组到字节集, 字节集
    
98. .参数 逻辑型数组, 逻辑型, 数组
    
99. .参数 高到低位, 逻辑型, 可空
    
100. .局部变量 逻辑组长度, 整数型
     
101. .局部变量 字节集数据, 字节集
     
102. .局部变量 字节集长度, 整数型
     
103. .局部变量 计数, 整数型
     
104. .局部变量 移位计数, 整数型
     
105. .局部变量 逻辑计数, 整数型
     
106. .局部变量 循环数组, 整数型, , "0"
     
107. 
     
108. 逻辑组长度 ＝ 取数组成员数 (逻辑型数组)
     
109. .如果真 (逻辑组长度 ％ 8 ≠ 0)
     
110.     输出调试文本 (“数组成员数必须是8的倍数才可以导出字节集数据。”)
     
111.     返回 ({  })
     
112. .如果真结束
     
113. 字节集数据 ＝ 取空白字节集 (逻辑组长度 ÷ 8)
     
114. 字节集长度 ＝ 取字节集长度 (字节集数据)
     
115. .如果 (高到低位)
     
116.     循环数组 ＝ { 7, 0, -1 }
     
117. .否则
     
118.     循环数组 ＝ { 0, 7, 1 }
     
119. .如果结束
     
120. .计次循环首 (字节集长度, 计数)
     
121.     .变量循环首 (循环数组 [1], 循环数组 [2], 循环数组 [3], 移位计数)
     
122.         .如果真 (逻辑型数组 [逻辑计数 ＋ 1])
     
123.             字节集数据 [计数] ＝ 位或 (左移 (1, 移位计数), 字节集数据 [计数])
     
124.         .如果真结束
     
125.         逻辑计数 ＝ 逻辑计数 ＋ 1
     
126.     .变量循环尾 ()
     
127. .计次循环尾 ()
     
128. 返回 (字节集数据)
     
129. 
     
130. 
     
131. .子程序 字节集_膨胀, 字节集, 公开, 膨胀一段字节集数据，处理耗时以及膨胀倍数不定
     
132. .参数 数据, 字节集
     
133. .局部变量 逻辑型数组, 逻辑型, , "0"
     
134. 
     
135. 字节集到逻辑型数组 (数据, 逻辑型数组, 假)
     
136. .循环判断首 ()
     
137.     逻辑型数组编码 (逻辑型数组)
     
138. .循环判断尾 (取数组成员数 (逻辑型数组) ％ 8 ≠ 0)
     
139. 返回 (逻辑型数组到字节集 (逻辑型数组, 假))
     
140. 
     
141. 
     
142. .子程序 字节集_反膨胀, 字节集, 公开, 将已膨胀的字节集数据进行还原
     
143. .参数 数据, 字节集
     
144. .局部变量 逻辑型数组, 逻辑型, , "0"
     
145. .局部变量 数组副本, 逻辑型, , "0"
     
146. 
     
147. 字节集到逻辑型数组 (数据, 逻辑型数组, 假)
     
148. .判断循环首 (逻辑型数组解码 (逻辑型数组))
     
149. .判断循环尾 ()
     
150. 
     
151. 返回 (逻辑型数组到字节集 (逻辑型数组, 假))
     

复制代码

1心1亿

这总有人发一些奇怪的玩意

4面8方

头一次听说