易语言+PHP 文本加解密 带秘钥

xiaotao110

提供易语言 PHP的加解密方法, 可用于关键信息加密使用(安全性不太高, 拿到秘钥就能破J, 但是总比没有好)

易语言 加解密

1. .版本 2
   
2. .支持库 dp1
   
3. 
   
4. .子程序 小涛_加解密, 文本型
   
5. .参数 文本内容, 文本型
   
6. .参数 是否解密, 逻辑型
   
7. .参数 秘钥, 文本型
   
8. .局部变量 秘钥长度, 整数型
   
9. .局部变量 文本长度, 整数型
   
10. .局部变量 i, 整数型
    
11. .局部变量 rndkey, 整数型, , "256"
    
12. .局部变量 box, 整数型, , "256"
    
13. .局部变量 j, 整数型
    
14. .局部变量 tmp, 整数型
    
15. .局部变量 a, 整数型
    
16. .局部变量 re, 文本型
    
17. .局部变量 返回内容, 文本型
    
18. 
    
19. 秘钥 ＝ 到文本 (取数据摘要 (到字节集 (秘钥)))
    
20. 秘钥长度 ＝ 取文本长度 (秘钥)
    
21. .如果 (是否解密 ＝ 真)
    
22.     文本内容 ＝ 到文本 (编码_BASE64解码 (文本内容, 真))
    
23. .否则
    
24.     文本内容 ＝ 取文本左边 (取数据摘要 (到字节集 (文本内容 ＋ 秘钥)), 8) ＋ 文本内容
    
25. .如果结束
    
26. 文本长度 ＝ 取文本长度 (文本内容)
    
27. 
    
28. .计次循环首 (256, i)
    
29.     rndkey [i] ＝ 取代码 (取文本中间 (秘钥, (i － 1) ％ 秘钥长度 ＋ 1, 1), )
    
30.     box [i] ＝ i － 1
    
31. .计次循环尾 ()
    
32. j ＝ 0
    
33. .计次循环首 (256, i)
    
34.     j ＝ (j ＋ box [i] ＋ rndkey [i]) ％ 256
    
35.     tmp ＝ box [i]
    
36.     box [i] ＝ box [j ＋ 1]
    
37.     box [j ＋ 1] ＝ tmp
    
38. .计次循环尾 ()
    
39. a ＝ 0
    
40. j ＝ 0
    
41. .计次循环首 (文本长度, i)
    
42.     a ＝ (a ＋ 1) ％ 256
    
43.     j ＝ (j ＋ box [a ＋ 1]) ％ 256
    
44.     tmp ＝ box [a ＋ 1]
    
45.     box [a ＋ 1] ＝ box [j ＋ 1]
    
46.     box [j ＋ 1] ＝ tmp
    
47.     re ＝ re ＋ 字符 (小涛_xor (取代码 (取文本中间 (文本内容, i, 1), ), box [到整数 ((box [a ＋ 1] ＋ box [j ＋ 1]) ％ 256) ＋ 1]))
    
48. .计次循环尾 ()
    
49. .如果 (是否解密 ＝ 真)
    
50.     返回内容 ＝ 取文本中间 (re, 9, 取文本长度 (re))
    
51. .否则
    
52.     返回内容 ＝ 子文本替换 (编码_BASE64编码 (到字节集 (re)), “=”, “”, , , 真)
    
53. .如果结束
    
54. 
    
55. 返回 (返回内容)
    
56. 
    
57. .子程序 小涛_xor, 整数型, , 位异或
    
58. .参数 Value1, 整数型
    
59. .参数 Value2, 整数型
    
60. 
    
61. 置入代码 ({ 139, 69, 8, 51, 69, 12, 137, 236, 93, 194, 8, 0 })
    
62. 返回 (0)
    

复制代码

PHP 加解密

1. /**
   
2. * 文本加解密
   
3. */
   
4. function textEnc($string,$operation,$key=''){   
   
5.     $key=md5($key);   
   
6.     $key_length=strlen($key);   
   
7.     $string=$operation=='D'?base64_decode($string):substr(md5($string.$key),0,8).$string;   
   
8.     $string_length=strlen($string);   
   
9.     $rndkey=$box=array();   
   
10.     $result='';
    
11.     for($i=0;$i<=255;$i++){   
    
12.         $rndkey[$i]=ord($key[$i%$key_length]);
    
13.         $box[$i]=$i;   
    
14.     }
    
15.     for($j=$i=0;$i<256;$i++){   
    
16.         $j=($j+$box[$i]+$rndkey[$i])%256;   
    
17.         $tmp=$box[$i];
    
18.         $box[$i]=$box[$j];
    
19.         $box[$j]=$tmp;
    
20.     }   
    
21.     for($a=$j=$i=0;$i<$string_length;$i++){   
    
22.         $a=($a+1)%256;   
    
23.         $j=($j+$box[$a])%256;
    
24.         $tmp=$box[$a];   
    
25.         $box[$a]=$box[$j];   
    
26.         $box[$j]=$tmp;   
    
27.         $result.=chr(ord($string[$i])^($box[($box[$a]+$box[$j])%256]));  
    
28.     }   
    
29.     if($operation=='D'){   
    
30.         if(substr($result,0,8)==substr(md5(substr($result,8).$key),0,8)){   
    
31.             return substr($result,8);   
    
32.         }else{
    
33.             return'';
    
34.         }
    
35.     }else{   
    
36.         return str_replace('=','',base64_encode($result));   
    
37.     }   
    
38. }

复制代码

嫂子

剑轶 发表于 2022-12-20 18:48
这个看着不像是RC4?

RC4+MD5变异

xiaotao110

嫂子 发表于 2022-12-20 14:49
就是Discuz的 AUTH算法

应该是吧 PHP网上找的 然后自己弄了个易语言版本 刚好最近用得上

六先生

支持开源~！感谢分享

小布仕奇

666666666666666666666

396384183

很好谢谢分享11

吃干饭的锅

        感谢分享，支持你

一指温柔

感谢分享，支持开源~

kvx55c

努力挣分中

Wz613613

感谢分享，很给力！~