求一个文件加密算法

yulihua49

兄弟直接上传个源码包吧
c/unix 发表于 2010-06-28 17:06

enigma1.c：

1. #include <strproc.h>
   
2. #include <enigma.h>
   
3. #include <arpa/inet.h>
   
4. #include <crc.h>
   
5. #include <des.h>
   
6. /*
   
7. *      A one-rotor machine designed along the lines of Enigma
   
8. *      but considerably trivialized.
   
9. */
   
10. 
    
11. #define MASK 0377
    
12. // 随机串长度，如果你想使用MD5，加大这个值
    
13. #define RAN_LEN 17
    
14. 
    
15. /* 生成密码轮 */
    
16. void enigma1_init(ENIGMA t,char *pw)
    
17. {
    
18. int ic, i, k, temp;
    
19. int random,seed;
    
20. char *buf,buf1[RAN_LEN+1];
    
21. char    *t1,*t2,*t3,salt[3];
    
22. int len;
    
23. int32_t crc,*ip;
    
24. char *h;
    
25. int hlen;
    
26. 
    
27.         if(!t || !pw || !*pw) return;
    
28.         t1=t[0];
    
29.         t2=t[1];
    
30.         t3=t[2];
    
31.         len=strlen(pw);
    
32.         crc=(int32_t)ssh_crc32((const unsigned char *)pw,len);
    
33.         ip=(int *)buf1;
    
34.         *ip=htonl(crc);//CRC在不同系统上具有相同的值，作为随机串的使用，必须保证在所有系统上相同的字节次序
    
35. 
    
36.         seed=0xFFFF&gencrc((unsigned char *)pw,len);
    
37.         salt[0]=seed&127;
    
38.         if(!salt[0]) salt[0]=0X41;
    
39.         seed >>= 7;
    
40.         salt[1]=seed&127;
    
41.         if(!salt[1]) salt[1]=0X41;
    
42.         salt[2]=0;
    
43.         if(seed==0) seed=pw[len-1];
    
44. 
    
45. // 设置ic，初始化的自旋
    
46.         ic=len;
    
47.         for(i=0;i<len;i++) ic += pw[i];
    
48.         ic &= 127;
    
49.         ic|=(seed & 128);
    
50. 
    
51.         if(len>13) {
    
52.                 hlen=13;
    
53.                 h=pw+len-13;
    
54.         } else {
    
55.                 hlen=len;
    
56.                 h=pw;
    
57.         }
    
58. 
    
59. /* 你可以在buf1里添加任何散列数据  如MD5等 */
    
60.         buf=des_fcrypt(pw,salt,buf1+sizeof(int32_t));
    
61.         for (i=0; i<13; i++) {
    
62.                 seed = seed*buf[i] + i;
    
63. //随机串由原来的6-7bit提升到8bit，并与密钥的最后13位直接相关
    
64.                 buf[i] = (buf[i] << 1) ^ h[i % hlen];
    
65.         }
    
66. // ic，初始化的自旋
    
67.         for(i=0;i<ROTORSZ;i++) {
    
68.                 t1[i] = (i+ic) & MASK;
    
69.                 t3[i] = 0;
    
70.         }
    
71.         for(i=0;i<ROTORSZ;i++) {
    
72.                 seed = len*seed + buf1[i%RAN_LEN];
    
73.                 random = (seed&0X7FFFFFFF) % 65529;     //random(key);
    
74. // 以上生成尽可能随机的random，你有充分的自由度选择你的算法
    
75. /* 生成主编码轮 t1 */
    
76.                 k = ROTORSZ-1 - i;
    
77.                 ic = random % (k+1);
    
78. 
    
79.                 temp = t1[k];
    
80.                 t1[k] = t1[ic];
    
81.                 t1[ic] = temp;
    
82. /************************************************************************
    
83. * 生成反射板 反射板只要不重不漏的把各点两两连接起来?
    
84. ************************************************************************/
    
85.                 if(t3[k]!=0) continue;
    
86.                 ic = (random>>8) % k;
    
87.                 while(t3[ic]!=0) ic = (ic+1) % k;
    
88.                 t3[k] = ic;
    
89.                 t3[ic] = k;
    
90.         }
    
91. /* t2为t1的逆 */
    
92.         for(i=0;i<ROTORSZ;i++)
    
93.                 t2[t1[i]&MASK] = i;
    
94. }
    
95. void enigma1(ENIGMA t,char *string,int len)
    
96. {
    
97. register char *p;
    
98. register int  n1,n2, k, x;      //x旋转因子
    
99. char *t1,*t2,*t3;
    
100. 
     
101.         if(!t || !string || len <= 0) return;
     
102.         t1=t[0];
     
103.         t2=t[1];
     
104.         t3=t[2];
     
105. //初始位置和旋转因子与len和T有关，不知道T就不知道它们，也无法通过明文、密文的关系推断T。
     
106.         n2=t[len&1][(len>>9)&MASK]&MASK;
     
107.         n1=t3[(len>>1)&MASK]&MASK;
     
108. 
     
109.         x=((t3[((len>>17)+n1)&MASK]&3)<<1)+1;   //x=1,3,5,7
     
110. 
     
111.         p=string;
     
112.         for(k=0;k<len;k++){
     
113.                 *p = t2[(t3[(t1[(*p+n1)&MASK]+n2)&MASK]-n2)&MASK]-n1;
     
114.                 ++p;
     
115.                 n1 += x;
     
116.                 if (n1 >= ROTORSZ) {
     
117.                         n1 &= MASK;
     
118.                         if(++n2==ROTORSZ) n2 = 0;
     
119.                 }
     
120.         }
     
121. }
     
122. 
     
123. void frenz_encode(ENIGMA t,char *string,int len)
     
124. {
     
125. register char *p;
     
126. register int x,n1;       //x旋转因子
     
127. char *t1,*t2,*t3;
     
128. int  n2, k;
     
129. //int r=0;
     
130. 
     
131.         if(!t || !string || len <= 0) return;
     
132.         t1=t[0];
     
133.         t2=t[1];
     
134.         t3=t[2];
     
135. //初始位置和旋转因子与len和T有关，不知道T就不知道它们，也无法通过明文、密文的关系推断T。
     
136. 
     
137.         n2=t[len&1][(len>>9)&MASK]&MASK;
     
138.         n1=t3[(len>>1)&MASK]&MASK;
     
139. 
     
140.         p=string;
     
141.         for(k=0;k<len;k++){
     
142.                 x=t2[(*p+k)&MASK];
     
143.                 *p = t2[(t3[(t1[(*p+n1)&MASK]+n2)&MASK]-n2)&MASK]-n1;
     
144.                 ++p;
     
145.                 n1 += x;
     
146.                 if(n1<0) {
     
147.                         n1&=MASK;
     
148.                         continue;
     
149.                 }
     
150.                 if (n1 >= ROTORSZ) {
     
151.                         n1 &= MASK;
     
152.                         if(++n2==ROTORSZ) n2 = 0;
     
153. //                      r++;
     
154.                 }
     
155.         }
     
156. }
     
157. void frenz_decode(ENIGMA t,char *string,int len)
     
158. {
     
159. register char *p;
     
160. register int x,n1;       //x旋转因子
     
161. char *t1,*t2,*t3;
     
162. int  n2, k;
     
163. 
     
164.         if(!t || !string || len <= 0) return;
     
165.         t1=t[0];
     
166.         t2=t[1];
     
167.         t3=t[2];
     
168. //初始位置和旋转因子与len和T有关，不知道T就不知道它们，也无法通过明文、密文的关系推断T。
     
169.         n2=t[len&1][(len>>9)&MASK]&MASK;
     
170.         n1=t3[(len>>1)&MASK]&MASK;
     
171. 
     
172.         p=string;
     
173.         for(k=0;k<len;k++){
     
174.                 *p = t2[(t3[(t1[(*p+n1)&MASK]+n2)&MASK]-n2)&MASK]-n1;
     
175.                 x=t2[(*p+k)&MASK];
     
176.                 ++p;
     
177.                 n1 += x;
     
178.                 if(n1<0) {
     
179.                         n1&=MASK;
     
180.                         continue;
     
181.                 }
     
182.                 if (n1 >= ROTORSZ) {
     
183.                         n1 &= MASK;
     
184.                         if(++n2==ROTORSZ) n2 = 0;
     
185.                 }
     
186.         }
     
187. }
     

复制代码

里边用到的散列函数;
des_fcrypt,ssh_crc32是ssl里的，crcgen（）是crc16,ccitt的，用别的也行，只要加密解密是一套就行。

yulihua49

enigma1.c：
yulihua49 发表于 2010-06-28 17:25

enigma2.c:

1. #include <strproc.h>
   
2. #include "enigma.h"
   
3. 
   
4. void b_revers(char *buf,int len)
   
5. {
   
6. char *p,*p1,c;
   
7.         if(!buf || len<2) return;
   
8.         p=buf;
   
9.         p1=p+len-1;
   
10.         while(p1>p) {
    
11.                 c=*p1;
    
12.                 *p1--=*p;
    
13.                 *p++=c;
    
14.         }
    
15.         return;
    
16. }
    
17. 
    
18. void enigma_rev(ENIGMA ep,char *buf,int len)
    
19. {
    
20. int i;
    
21. char *p;
    
22.         if(!buf||len<=0) return;
    
23.         frenz_encode(ep,buf,len);
    
24.         b_revers(buf,len);
    
25.         p=buf;
    
26.         for(i=0;i<len-1;i++) {
    
27.                 p[1]^=*p;
    
28.                 p++;
    
29.         }
    
30. }
    
31. void rev_enigma(ENIGMA ep,char *buf,int len)
    
32. {
    
33. int i;
    
34. char *p;
    
35.         if(!buf||len<=0) return;
    
36.         b_revers(buf,len);
    
37.         p=buf;
    
38.         for(i=0;i<len-1;i++) {
    
39.                 *p^=p[1];
    
40.                 p++;
    
41.         }
    
42.         frenz_decode(ep,buf,len);
    
43. }
    
44. void enigma2_init(ENIGMA2 *ep,char *key)
    
45. {
    
46. int len;
    
47.         if(!ep||!key||!*key) return;
    
48.         len=strlen(key);
    
49. char rk[len+1];
    
50.         strcpy(rk,key);
    
51.         enigma1_init(ep->t,key);
    
52.         b_revers(rk,len);
    
53.         enigma1_init(ep->r,rk);
    
54.         ep->crc=0X7FFFFFFF & ssh_crc32(ep->t,2*sizeof(ep->t));
    
55. //ShowLog(5,"%s:crc=%d",__FUNCTION__,ep->crc);
    
56.         return;
    
57. }
    
58. 
    
59. static void str_rotor(char *str,int len,int rotor)
    
60. {
    
61. char *p;
    
62.         if(!rotor) return;
    
63. char buf[rotor];//WINDOWS不能如此，改alloca
    
64. 
    
65.         memcpy(buf,str,rotor);
    
66.         memcpy(str,str+rotor,len-rotor);
    
67.         memcpy(str+len-rotor,buf,rotor);
    
68. }
    
69. 
    
70. void enigma2_encode(ENIGMA2 *ep,char *buf,int len)
    
71. {
    
72. char *p;
    
73.         if(!ep) return;
    
74.         enigma_rev(ep->t,buf,len);
    
75.         str_rotor(buf,len,ep->crc%len);
    
76.         enigma1(ep->r,buf,len);
    
77. }
    
78. 
    
79. void enigma2_decode(ENIGMA2 *ep,char *buf,int len)
    
80. {
    
81. int i;
    
82. char *p;
    
83.         if(!ep) return;
    
84.         enigma1(ep->r,buf,len);
    
85.         i=ep->crc%len;
    
86.         if(i) str_rotor(buf,len,len-i);
    
87.         rev_enigma(ep->t,buf,len);
    
88. }
    

复制代码

有些.h你没有就删掉，看看缺啥，给你补。缺少ShowLog,删掉吧，那只是个日志。你要下载整个SDBC就没问题了。

yulihua49

没想到ENIGMA还这么强大啊，没用过。
ecjtubaowp 发表于 2010-06-28 17:21

   原始 ENIGMA不行，但他的先天体质不错，可改造，这些是我根据现代密码学的理论改造过的。

nhuczp

AES

yulihua49

AES
nhuczp 发表于 2010-06-28 19:17

能提供AES的demo吗？

简单异或的“乱度”：明文改变1比特，密文改变1比特。
ENIGMA1的“乱度”：明文改变1比特，密文改变1字节。
FRENZ的“乱度”：明文改变1比特，密文“半乱”，即变化字节后的都变了。
ENIGMA2的“乱度”：明文改变1比特，密文“全乱”
DES的“乱度”：明文改变1比特，密文改变一个分组。（56bit的是8字节，128bit的是16字节）
3DES的“乱度”：明文改变1比特，密文“半乱”，即变化字节后的分组都变了。
AES应该与DES差不多。

关于流媒体加密，还是建议用ENIGMA1。它虽然“乱度”小，但抗干扰。
如果流在网络传播，或存储与介质，难免有误码。一旦误码，高“乱度”的加密就全乱了。
ENIGMA1的速度是3DES的27倍，适合流加密。
AES据说比DES快，但不知到底如何。

由于AES和DES都是分组密钥，加密信息必须满足一个完整分组，这对流加密有点罗嗦。

tajial

enigma1.c：里边用到的散列函数;
des_fcrypt,ssh_crc32是ssl里的，crcgen（）是crc16,ccitt的，用别的也 ...
yulihua49 发表于 2010-06-28 17:25

为解决des_fcrypt，下了个openssl，发现里面定义一环套一环，移过来工作量太大了（要在arm上运行），只好放弃
Any way, thanks a lot.

yulihua49

为解决des_fcrypt，下了个openssl，发现里面定义一环套一环，移过来工作量太大了（要在arm上运行），只好 ...
tajial 发表于 2010-06-29 10:49

    我有提纯的，可以arm用。

tajial

回复 17# yulihua49
大侠 能发个么