📄
字号:
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
//data are stored in (unsigned char) dataarray
//it will be tranformed to dataip begin encryption
//IParray store the IP
//reIP stor the IP-1
//procedure ipchange
static unsigned char ip[64]={
57,49,41,33,25,17,9,1,
59,51,43,35,27,19,11,3,
61,53,45,37,29,21,13,5,
63,55,47,39,31,23,15,7,
56,48,40,32,24,16,8, 0,
58,50,42,34,26,18,10,2,
60,52,44,36,28,20,12,4,
62,54,46,38,30,22,14,6
};
static unsigned char reip[64]={
39,7,47,15,55,23,63,31,
38,6,46,14,54,22,62,30,
37,5,45,13,53,21,61,29,
36,4,44,12,52,20,60,28,
35,3,43,11,51,19,59,27,
34,2,42,10,50,18,58,26,
33,1,41,9 ,49,17,57,25,
32,0,40,8, 48,16,56,24
};
static unsigned char pc1[56]={
56,48,40,32,24,16,8,
0, 57,49,41,33,25,17,
9, 1, 58,50,42,34,26,
18,10,2, 59,51,43,35,
62,54,46,38,30,22,14,
6, 61,53,45,37,29,21,
13,5, 60,52,44,36,28,
20,12,4, 27,19,11,3
};
static unsigned char pc2[48]={
13,16,10,23,0, 4, 2, 27,
14,5, 20,9, 22,18,11,3,
25,7, 15,6, 26,19,12,1,
40,51,30,36,46,54,29,39,
50,44,32,47,43,48,38,55,
33,52,45,41,49,35,28,31};
static unsigned short bitloc[8]={
0200,0100,0040,0020,0010,0004,0002,0001
};
static char ls[16]={
1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1
};
static char E[48]={
31,0, 1 ,2 ,3 ,4 ,
3 ,4 ,5 ,6 ,7 ,8 ,
7 ,8 ,9 ,10,11,12,
11,12,13,14,15,16,
15,16,17,18,19,20,
19,20,21,22,23,24,
23,24,25,26,27,28,
27,28,29,30,31,0
};
static unsigned long keybitvalue[24]={
0x800000l,0x400000l,0x200000l,0x100000l,
0x80000l,0x40000l,0x20000l,0x10000l,
0x8000l,0x4000l,0x2000l,0x1000l,
0x800l,0x400l,0x200l,0x100l,
0x80l,0x40l,0x20l,0x10l,
0x8l,0x4l,0x2l,0x1l,
};
static unsigned long databitvalue[32]={
0x80000000l,0x40000000l,0x20000000l,0x10000000l,
0x8000000l,0x4000000l,0x2000000l,0x1000000l,
0x800000l,0x400000l,0x200000l,0x100000l,
0x80000l,0x40000l,0x20000l,0x10000l,
0x8000l,0x4000l,0x2000l,0x1000l,
0x800l,0x400l,0x200l,0x100l,
0x80l,0x40l,0x20l,0x10l,
0x8l,0x4l,0x2l,0x1l,
};
static unsigned char s1[4][16]={
14,4,13,1,2,15,11,8,3,10,6,12,5,9,0,7,
0,15,7,4,14,2,13,1,10,6,12,11,9,5,3,8,
4,1,14,8,13,6,2,11,15,12,9,7,3,10,5,0,
15,12,8,2,4,9,1,7,5,11,3,14,10,0,6,13
};
static unsigned char s2[4][16]={
15,1,8,14,6,11,3,4,9,7,2,13,12,0,5,10,
3,13,4,7,15,2,8,14,12,0,1,10,6,9,11,5,
0,14,7,11,10,4,13,1,5,8,12,6,9,3,2,15,
13,8,10,1,3,15,4,2,11,6,7,12,0,5,14,9
};
static unsigned char s3[4][16]={
10,0,9,14,6,3,15,5,1,13,12,7,11,4,2,8,
13,7,0,9,3,4,6,10,2,8,5,14,12,11,15,1,
13 ,6,4,9,8,15,3,0,11,1,2,12,5,10,14,7,//s3[2][0]?
1 ,10,13,0,6,9,8,7,4,15,14,3,11,5,2,12
};
static unsigned char s4[4][16]={
7,13,14,3,0,6,9,10,1,2,8,5,11,12,4,15,
13,8,11,5,6,15,0,3,4,7,2,12,1,10,4,9,
10,6,9,0,12,11,7,13,15,1,3,14,5,2,8,4,
3,15,0,6,10,1,13,8,9,4,5,11,12,7,2,14
};
static unsigned char s5[4][16]={
2,12,4,1,7,10,11,6,8,5,3,15,13,0,14,9,
14,11,2,12,4,7,13,1,5,0,15,10,3,9,8,6,
4,2,1,11,10,13,7,8,15,9,12,5,6,3,0,14,
11,8,12,7,1,14,2,13,6,15,0,9,10,4,5,3
};
static unsigned char s6[4][16]={
12,1,10,15,9,2,6,8,0,13,3,4,14,7,5,11,
10,15,4,2,7,12,9,5,6,1,13,14,0,11,3,8,
9,14,15,5,2,8,12,3,7,0,4,10,1,13,11,6,
4,3,2,12,9,5,15,10,11,14,1,7,6,0,8,13
};
static unsigned char s7[4][16]={
4,11,2,14,15,0,8,13,3,12,9,7,5,10,6,1,
13,0,11,7,4,9,1,10,14,3,5,12,2,15,8,6,
1,4,11,13,12,5,7,14,10,15,6,8,0,5,9,2,
6,11,13,8,1,4,10,7,9,5,0,15,14,2,3,12
};
static unsigned char s8[4][16]={
13,2,8,4,6,15,11,1,10,9,3,14,5,0,12,7,
1,15,13,8,10,3,7,4,12,5,6,11,0,14,9,2,
7,11,4,1,9,12,14,2,0,6,10,13,15,3,5,8,
2,1,14,7,4,10,8,13,15,12,9,0,3,5,6,11
};
static unsigned char p[]={
15,6 ,19,20,
28,11,27,16,
0 ,14,22,25,
4 ,17,30,9 ,
1 ,7 ,23,13,
31,26,2 ,8 ,
18,12,29,5 ,
21,10,3 ,24
};
unsigned long ltc[]={
0xff000000,0x00ff0000,
0x0000ff00,0x000000ff
};
//change the miwen stored in long to char
void chartolong(unsigned char *ch,unsigned long *lg)
{
int i;
lg[0]=lg[1]=0l;
for(i = 0;i<4;i++)
{
lg[0]=lg[0] | ch[i];
if (i != 3 )
lg[0]=lg[0]<<8;
}
for(i = 4;i<8;i++)
{
lg[1]=lg[1] | ch[i];
if (i != 7 )
lg[1]=lg[1]<<8;
}
}
//change the miwen stored in long to char
void longtochar(unsigned long *lg,unsigned char *ch)
{
int i;
for(i = 0;i<4;i++)
{
ch[i]=(lg[0] & ltc[i])>>(24-8*i);
}
for(i = 4;i<8;i++)
{
ch[i]=(lg[1] & ltc[i-4])>>(24-8*(i-4));
}
}
//Zhi huan
void tranf(unsigned char *dtsr,unsigned char *result,unsigned char *trtable,int
bitnum)
{
register int i,l,m;
for (i = 0; i < bitnum; i++)
{
l = trtable[i];
m = l & 07;//decide which bit should be got;
result[i] = (dtsr[l >> 3]) & bitloc[m] ? 1 : 0; //based on
} //the bit ,we set the value of bcte
mp[i]
}
void pckey(unsigned char *key,unsigned long *enckey,unsigned long *deckey)
{
int i,j,k,m,n;
unsigned char pctemp[56],b0,b28;
unsigned long merge;
for(i = 0; i < 32; i++)
enckey[i]=deckey[i]=0l;//empty the enkey and deckey before store keys to them
tranf(key,pctemp,pc1,56);
//tranf(key,pctemp,pc1,56);
// Produce the enckey and deckey
for (i=0;i<16;i++)
{
m = i << 1;
n = m+1;
enckey[m]=0l;
enckey[n]=0l;
//Based on ls1,move the pctemp firstly
for(k=0;k<ls[i];k++)
{
b0=pctemp[0];
b28=pctemp[28];
for(j=0;j<27;j++)
{
pctemp[j]=pctemp[j+1];
pctemp[j+28]=pctemp[j+29];
}
pctemp[27]=b0;
pctemp[55]=b28;
}
// Produce 48 bits from 56 bits we got with Table PC-2
for(j=0; j < 24; j++)
{
if (pctemp[pc2[j]]) enckey[m] |= keybitvalue[j];
if (pctemp[pc2[j+24]]) enckey[n] |= keybitvalue[j];
}
// to merge the two ;
merge = 0x000000ffl;
merge = enckey[m]&merge;
merge <<= 24;
enckey[n] = enckey[n] | merge;
enckey[m] >>= 8;
}
for(i=0;i<16;i++)
{
deckey[30-2*i]=enckey[2*i];
deckey[31-2*i]=enckey[2*i+1];
}
}
void ipdata(unsigned char *data,unsigned long *ipdata )
{
unsigned char iptemp[64];
int i;
ipdata[0]=ipdata[1]=0;
//transform data with ip rule
tranf(data,iptemp,ip,64);
//put the 64 bits in iptemp to ipdata
for (i=0;i<32;i++)
{
if (iptemp[i])
ipdata[0] = ipdata[0] | databitvalue[i];
if (iptemp[i+32])
ipdata[1] = ipdata[1] | databitvalue[i];
}
};
// the function of f(Ri-1,Ki)
void ffunc(unsigned long *partr,unsigned long *key)
{
unsigned long datatemp[2]={0l,0l},ptemp=0;
unsigned char i,get6bits,get2bits;
unsigned char row=0,col=0,temp;
unsigned char (*sbox)[16];
//expand the 32 bits to 48 bits
for (i=0; i < 16 ; i++ )
{
if ( *partr & databitvalue[E[i]] )
datatemp[0] = datatemp[0] | databitvalue[i+16];
}
for (i=16; i < 48 ; i++ )
{
if ( *partr & databitvalue[E[i]] )
datatemp[1] = datatemp[1] | databitvalue[i-16];
}
//Ri-1 ^ key;
datatemp[0]=datatemp[0] ^ *key;
datatemp[1]=datatemp[1] ^ *(key + 1);
//select 32 bits from 48bits;
*partr=0;
for(i = 0; i < 8; i++ )
{
switch(i)
{
case 0:sbox=s1;break;
case 1:sbox=s2;break;
case 2:sbox=s3;break;
case 3:sbox=s4;break;
case 4:sbox=s5;break;
case 5:sbox=s6;break;
case 6:sbox=s7;break;
case 7:sbox=s8;
}
if (i == 0)
datatemp[0] = datatemp[0] << 16;
if (i == 2)
{
get2bits = (get2bits | datatemp[1]) >> 30;
datatemp[1] = datatemp[1] << 2;
get6bits = get2bits | ((get6bits | datatemp[0]) >> 26);
}
if (i != 2)
{
get6bits = (get6bits | datatemp [i>2]) >> 26;
datatemp [i>2] = datatemp [i>2] << 6;
}
row=0;
col=0;
row=row | (get6bits & 1);
col=(get6bits & 0x1e)>>1;
get6bits=get6bits & 0x20;
row=row | (get6bits >> 4);
temp=sbox[row][col];
*partr=(*partr | temp);
if (i < 7)
*partr=*partr << 4 ;
}
// P tranform
ptemp=0;
for ( i=0 ; i<32; i++)
{
if (databitvalue[p[i]] & *partr)
ptemp=ptemp | databitvalue[i];
}
*partr=ptemp;
};
void encdec(unsigned long *data,unsigned long *key,unsigned int circle)
{
unsigned int i;
unsigned long temp,l,r;
l=data[0];
r=data[1];
for (i=0;i < circle;i++ )
{
temp=l;
l=r;
ffunc(&r,key+2*i);
r=r ^ temp;
if(i==circle-1)
{
temp=l;
l=r;
r=temp;
}
printf("circle %2d : %8x %8x\n",i+1,l,r);
}
data[0]=l;
data[1]=r;
};
void ip_reip(unsigned long *data,unsigned char *ipreip)
{
unsigned int i,m,n,k;
unsigned long temp[2]={0,0};
for (i = 0; i < 64; i++)
{
m = ipreip[i];//reip
n = m & 0x1f;//decide which bit should be got;
k = i & 0x1f;
if ((data[m >> 5]) & databitvalue[n])
{
temp[i >> 5]=temp[i >> 5] | databitvalue[k];
}
}
data[0]=temp[0];
data[1]=temp[1];
};
void main()
{
static unsigned long enckey[32],deckey[32],data2[2];
static unsigned char key[8]={
0x70,0x38,0x9a,0xec,0x76,0x92,0x84,0xda},input;
static unsigned char data[8]={
0x63,0x6f,0x6d,0x70,0x75,0x74,0x65,0x72};
int i;
chartolong(data,data2);
printf("\nmingwen: %x %x ",data2[0],data2[1]);
for(i=0;i<8;i++)
{
printf("'%c'",data[i]);
}
printf("\n");
printf("\n加密过程:\n");
pckey(key,enckey,deckey);
ip_reip(data2,ip);
encdec(data2,enckey,16);
ip_reip(data2,reip);
printf("\nmiwen: %x %x ",data2[0],data2[1]);
longtochar(data2,data);
for(i=0;i<8;i++)
{
printf("'%c'",data[i]);
}
printf("\n");
printf("\n解密过程:\n");
ip_reip(data2,ip);
encdec(data2,deckey,16);
ip_reip(data2,reip);
printf("\nmingwen: %x %x\n\n",data2[0],data2[1]);
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -