世界首款不影响压缩率的加密算法易语言实现，采用特定查表算法实现的加密而不影响压缩

123

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 置随机数种子 ()
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 密钥, 字节集
    
14. .局部变量 加密后的, 字节集
    
15. .局部变量 解密后的, 字节集
    
16. 
    
17. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
18. 密钥 ＝ 生成有效密钥 ()
    
19. 加密后的 ＝ 加解密数据 (读入文件 (“加密前.bin”), 密钥, 假)
    
20. 解密后的 ＝ 加解密数据 (加密后的, 密钥, 真)
    
21. 写到文件 (“密钥.bin”, 密钥)
    
22. 写到文件 (“加密后的.bin”, 加密后的)
    
23. 写到文件 (“解密后的.bin”, 解密后的)
    
24. 
    
25. 
    
26. .子程序 生成有效密钥, 字节集
    
27. .局部变量 i, 整数型
    
28. .局部变量 数据, 字节集
    
29. 
    
30. 数据 ＝ 取空白字节集 (256)
    
31. .计次循环首 (256, i)
    
32.     数据 [i] ＝ i － 1
    
33. .计次循环尾 ()
    
34. .判断循环首 (密钥校验 (数据) ＝ 假)
    
35.     交换字节 (数据 [取随机数 (1, 256)], 数据 [取随机数 (1, 256)])
    
36. .判断循环尾 ()
    
37. 返回 (数据)
    
38. 
    
39. .子程序 交换字节
    
40. .参数 字节A, 字节型, 参考
    
41. .参数 字节B, 字节型, 参考
    
42. .局部变量 字节C, 字节型
    
43. 
    
44. 字节C ＝ 字节A
    
45. 字节A ＝ 字节B
    
46. 字节B ＝ 字节C
    
47. 
    
48. 
    
49. .子程序 转为解密密钥, 字节集
    
50. .参数 数据, 字节集
    
51. .局部变量 返回值, 字节集
    
52. .局部变量 i, 整数型
    
53. 
    
54. 返回值 ＝ 取空白字节集 (256)
    
55. .计次循环首 (256, i)
    
56.     返回值 [数据 [i] ＋ 1] ＝ i － 1
    
57. .计次循环尾 ()
    
58. 返回 (返回值)
    
59. 
    
60. .子程序 加解密数据, 字节集, , 失败返回空
    
61. .参数 数据, 字节集
    
62. .参数 密钥, 字节集
    
63. .参数 解密, 逻辑型, 可空
    
64. .局部变量 i, 整数型
    
65. .局部变量 结果, 字节集
    
66. 
    
67. 结果 ＝ 取空白字节集 (取字节集长度 (数据))
    
68. .如果真 (密钥是否有效 (密钥) ＝ 假)
    
69.     返回 ({  })
    
70. .如果真结束
    
71. .如果真 (解密 ＝ 真)
    
72.     密钥 ＝ 转为解密密钥 (密钥)
    
73. .如果真结束
    
74. .计次循环首 (取字节集长度 (数据), i)
    
75.     结果 [i] ＝ 密钥 [数据 [i] ＋ 1]
    
76. .计次循环尾 ()
    
77. 返回 (结果)
    
78. 
    
79. .子程序 密钥校验, 逻辑型, , 值与数组下标有1个相同时返回假，否则返回真。
    
80. .参数 密钥, 字节集
    
81. .局部变量 i, 整数型
    
82. .局部变量 j, 整数型
    
83. .局部变量 值, 整数型
    
84. 
    
85. .计次循环首 (256, i)
    
86.     值 ＝ i － 1
    
87.     .如果真 (密钥 [i] ＝ 值)
    
88.         返回 (假)
    
89.     .如果真结束
    
90. 
    
91. .计次循环尾 ()
    
92. 返回 (真)
    
93. 
    
94. .子程序 密钥冲突校验, 逻辑型, , 密钥中若出现两次相同的值则为冲突密钥就返回真，此类密钥会使数据丢失将不能正常解密数据。
    
95. .参数 密钥, 字节集
    
96. .局部变量 被占用的字节, 逻辑型, , "256"
    
97. .局部变量 i, 整数型
    
98. 
    
99. .计次循环首 (256, i)
    
100.     .如果真 (被占用的字节 [密钥 [i] ＋ 1] ＝ 真)
     
101.         返回 (真)
     
102.     .如果真结束
     
103.     被占用的字节 [密钥 [i] ＋ 1] ＝ 真
     
104. .计次循环尾 ()
     
105. 返回 (假)
     
106. 
     
107. .子程序 密钥是否有效, 逻辑型
     
108. .参数 密钥, 字节集
     
109. 
     
110. .如果真 (取字节集长度 (密钥) ≠ 256)
     
111.     返回 (假)
     
112. .如果真结束
     
113. .如果真 (密钥冲突校验 (密钥) ＝ 真)
     
114.     返回 (假)
     
115. .如果真结束
     
116. .如果真 (密钥校验 (密钥) ＝ 假)
     
117.     返回 (假)
     
118. .如果真结束
     
119. 返回 (真)
     

复制代码

123

demon 发表于 2017-7-10 18:26
确实很六啊。

原理其实很简单，加密时需要一个256字节且字节不重复的表，每一个字节通过查表找到另一个字节，解密就是反向查表，数据所出现的字节数是不变的，所以就不会影响到压缩率。

小莉今年7岁

不知道这里有多少个帖子有世界首款这4个字。

一脸萌比

一脸萌比，如果您要查看本帖隐藏内容请回复

Cute

看看是神算法加密了

demon

感谢分享。

demon

确实很六啊。

QAQ

路过而已打酱油的。

璁哄潧

哦，原来如此。

Kuni7wa

这发明6啊，果然发明家都在这里聚集。

Loading

我也来看看