简易异或循环移位实现哈希摘要hash算法 字符串不可逆加密算法 可指定任意长度密文输出

QAQ

1. 
   
2. .版本 2
   
3. .支持库 YunReg
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. .程序集变量 二进制位数, 整数型
   
7. 
   
8. .子程序 __启动窗口_创建完毕
   
9. 
   
10. 二进制位数 ＝ 256
    
11. 
    
12. .子程序 异或减1位
    
13. .参数 逻辑型数组, 逻辑型, 数组
    
14. .局部变量 计数, 整数型
    
15. .局部变量 数量, 整数型
    
16. .局部变量 数组副本, 逻辑型, , "0"
    
17. 
    
18. 数量 ＝ 取数组成员数 (逻辑型数组)
    
19. .计次循环首 (数量 － 1, 计数)
    
20.     逻辑型数组 [计数] ＝ 逻辑型数组 [计数] ≠ 逻辑型数组 [计数 ＋ 1]
    
21. .计次循环尾 ()
    
22. 删除成员 (逻辑型数组, 取数组成员数 (逻辑型数组), 1)
    
23. 
    
24. 
    
25. .子程序 取摘要, 文本型
    
26. .参数 数据, 字节集
    
27. .局部变量 逻辑数组, 逻辑型, , "0"
    
28. .局部变量 数量, 整数型
    
29. .局部变量 计数, 整数型
    
30. .局部变量 计数2, 整数型
    
31. .局部变量 奇偶, 逻辑型
    
32. 
    
33. 字节集到逻辑型数组 (数据, 逻辑数组)
    
34. .循环判断首 ()
    
35.     异或减1位 (逻辑数组)
    
36.     数量 ＝ 取数组成员数 (逻辑数组)
    
37.     .计次循环首 (位与 (数量, 二进制位数 － 1) ＋ 1, 计数)
    
38.         .如果 (逻辑数组 [计数])
    
39.             数组循环右移 (逻辑数组)
    
40.         .否则
    
41.             数组循环左移 (逻辑数组)
    
42.         .如果结束
    
43. 
    
44.     .计次循环尾 ()
    
45. .循环判断尾 (数量 ＞ 二进制位数)
    
46. 返回 (字节集到十六进制文本 (逻辑型数组到字节集 (逻辑数组)))
    
47. 
    
48. 
    
49. 
    
50. .子程序 字节集到逻辑型数组
    
51. .参数 字节集数据, 字节集
    
52. .参数 逻辑型数组, 逻辑型, 参考 数组
    
53. .局部变量 字节集长度, 整数型
    
54. .局部变量 字节集计数, 整数型
    
55. .局部变量 移位位数计数, 整数型
    
56. .局部变量 移位后的值, 字节型
    
57. .局部变量 逻辑数组计数, 整数型
    
58. 
    
59. 字节集长度 ＝ 取字节集长度 (字节集数据)
    
60. 重定义数组 (逻辑型数组, 假, 字节集长度 × 8)
    
61. .计次循环首 (字节集长度, 字节集计数)
    
62.     .变量循环首 (7, 0, -1, 移位位数计数)
    
63.         逻辑数组计数 ＝ 逻辑数组计数 ＋ 1
    
64.         移位后的值 ＝ 左移 (1, 移位位数计数)
    
65.         逻辑型数组 [逻辑数组计数] ＝ 位与 (字节集数据 [字节集计数], 移位后的值) ＝ 移位后的值
    
66. 
    
67.     .变量循环尾 ()
    
68. 
    
69. .计次循环尾 ()
    
70. 
    
71. 
    
72. .子程序 逻辑型数组到字节集, 字节集
    
73. .参数 逻辑型数组, 逻辑型, 数组
    
74. .局部变量 逻辑组长度, 整数型
    
75. .局部变量 字节集数据, 字节集
    
76. .局部变量 字节集长度, 整数型
    
77. .局部变量 计数, 整数型
    
78. .局部变量 移位计数, 整数型
    
79. .局部变量 逻辑计数, 整数型
    
80. 
    
81. 逻辑组长度 ＝ 取数组成员数 (逻辑型数组)
    
82. .如果真 (逻辑组长度 ％ 8 ≠ 0)
    
83.     输出调试文本 (“数组成员数必须是8的倍数才可以导出字节集数据。”)
    
84.     返回 ({  })
    
85. .如果真结束
    
86. 字节集数据 ＝ 取空白字节集 (逻辑组长度 ÷ 8)
    
87. 字节集长度 ＝ 取字节集长度 (字节集数据)
    
88. .计次循环首 (字节集长度, 计数)
    
89.     .变量循环首 (7, 0, -1, 移位计数)
    
90.         .如果真 (逻辑型数组 [逻辑计数 ＋ 1] ＝ 真)
    
91.             字节集数据 [计数] ＝ 位或 (左移 (1, 移位计数), 字节集数据 [计数])
    
92.         .如果真结束
    
93.         逻辑计数 ＝ 逻辑计数 ＋ 1
    
94.     .变量循环尾 ()
    
95. .计次循环尾 ()
    
96. 返回 (字节集数据)
    
97. 
    
98. .子程序 _编辑框1_内容被改变
    
99. 
    
100. 输出调试文本 (取摘要 (到字节集 (取空白文本 (二进制位数 ÷ 4) ＋ 编辑框1.内容)))
     
101. 
     
102. 
     
103. .子程序 数组循环左移
     
104. .参数 数组, 逻辑型, 数组
     
105. .局部变量 值, 逻辑型
     
106. 
     
107. 值 ＝ 数组 [1]
     
108. 删除成员 (数组, 1, 1)
     
109. 加入成员 (数组, 值)
     
110. 
     
111. .子程序 数组循环右移
     
112. .参数 数组, 逻辑型, 数组
     
113. .局部变量 值, 逻辑型
     
114. .局部变量 数量, 整数型
     
115. 
     
116. 数量 ＝ 取数组成员数 (数组)
     
117. 值 ＝ 数组 [数量]
     
118. 删除成员 (数组, 数量, 1)
     
119. 插入成员 (数组, 1, 值)
     

复制代码

1心1亿

看看啥玩意

66大顺

真的安全吗

Get

看看运气

222

666

小莉今年7岁

哈哈哈不错

520

我也看看

啦啦啦

路过顶

就不想起名

路过留下脚印≡└( 'o')┘≡┌( 'o')┐

单身狗

有事直说