Des算法源程序

1、Des.h/* * PROGRAM: des.h * * AUTHOR: wenfj * * WRITE DATE: 06/18/2000 * * LAST MODIFY DATE: 06/18/2000 * * COMMENT: des头文件 * * * */#ifndef _DES_H#define _DES_Hvoid DES(unsigned char *source,unsigned char *dest,unsigned char *key,unsigned char flag);#ifndef ENCRYPT#define ENCRYPT 0 /* DES 方向 */#defin

2、e DECRYPT 1#endif#ifndef STAND#define STAND 0 /* MAC 标准 */#define BPI 1#endif#endifDes.c#include des.h#include static unsigned char C1728,D1728,K1748,c,ch1;static void expand0(unsigned char *in,char *out);static void setkeystar(unsigned char bits64);static void encrypt0(unsigned char *text,unsigned

3、char *mtext);static void discrypt0(unsigned char *mtext,unsigned char *text);static void compress0(char *out,unsigned char *in);static void compress016(char *out,unsigned char *in);static void LS(char *bits,char *buffer,int count);static void son(char *cc,char *dd,char *kk);static void ip(unsigned c

4、har *text,char *ll,char *rr);static void _ip(unsigned char *text,char *ll,char *rr);static void F(int n,char *ll,char *rr,char *LL,char *RR);static void s_box(char *aa,char *bb);void DSP_2_HEX(char *dsp,char *hex,int count);void DSP_2_HEX(char *dsp,char *hex,int count);void HEX_2_DSP(char *hex,char

5、*dsp,int count);void DES(unsigned char *source,unsigned char *dest,unsigned char *key,unsigned char flag) unsigned char tmp64; expand0(key, (char *)tmp); setkeystar(tmp);if( flag = ENCRYPT | flag = e | flag = E ) encrypt0(source, dest); else discrypt0(source, dest);void Do_XOR(unsigned char *dest,un

6、signed char *source,int size) int i; for(i=0; i size) if( (packet_size - size) = 8 ) Do_XOR(mac_value, &packetsize, packet_size - size); DES(mac_value, mac_value, key, ENCRYPT); return;Do_XOR(mac_value, &packetsize, 8);if( mode = STAND ) DES(mac_value, mac_value, key, ENCRYPT);size += 8; void HostDe

7、s(unsigned char *card_no,unsigned char *work_key,unsigned char *pin,unsigned char *encrypt_pin,unsigned char flag) unsigned char card_buf16, pin_buf17, enpin_buf8; unsigned char key_buf8; int i, ii; DSP_2_HEX(char *)work_key,(char *)key_buf, 8); memset(card_buf, F, sizeof(card_buf); memcpy(card_buf,

8、 card_no+1, 15); DSP_2_HEX(char *)card_buf,(char *)card_buf, 8); card_buf0 = 0; if(flag = e | flag = E | flag = ENCRYPT) enpin_buf0 = strlen(const char *)pin); memcpy(pin_buf, pin, strlen(const char *)pin); ii = strlen(const char *)pin); for(i = ii; i17; i+) pin_bufi = F; DSP_2_HEX(char *)pin_buf, (

9、char *)pin_buf, 8); Do_XOR(card_buf, pin_buf, 7); memcpy(enpin_buf+1, card_buf, 7); DES(enpin_buf, encrypt_pin, key_buf, ENCRYPT); return; if(flag = d | flag = D | flag = DECRYPT) DES(encrypt_pin, pin_buf, key_buf, DECRYPT); Do_XOR(pin_buf+1, card_buf, 7); HEX_2_DSP(char *)(pin_buf+1), (char *)pin,

10、7); pinpin_buf0&0x0f = 0; return; void DSP_2_HEX(char *dsp,char *hex,int count) int i; for(i = 0; i count; i+) hexi=(dspi*2=0x39)?dspi*2-0x30:dspi*2-0x41+10); hexi=hexi4;hexi+=(dspi*2+1=0x39)?dspi*2+1-0x30:dspi*2+1-0x41+10); void HEX_2_DSP(char *hex,char *dsp,int count) int i; char ch; for(i = 0; i

11、4; dspi*2=(ch9)?ch+0x41-10:ch+0x30; ch=hexi&0xf; dspi*2+1=(ch9)?ch+0x41-10:ch+0x30; static void encrypt0(unsigned char *text,unsigned char *mtext)char ll64,rr64,LL64,RR64;char tmp64;int i,j;ip(text,ll,rr);for (i=1;i17;i+)F(i,ll,rr,LL,RR);for (j=0;j0;i-)F(i,ll,rr,LL,RR);for (j=0;j32;j+)llj=LLj;rrj=RR

12、j;_ip(unsigned char *)tmp,rr,ll);compress0(tmp,text);static void expand0(unsigned char *in,char *out)int divide;int i,j;for (i=0;i8;i+)divide=0x80;for (j=0;j8;j+)*out+=(ini/divide)&1;divide/=2;static void compress0(char *out,unsigned char *in)int times;int i,j;for (i=0;i8;i+)times=0x80;ini=0;for (j=

13、0;j8;j+)ini+=(*out+)*times;times/=2;static void compress016(char *out,unsigned char *in)int times;int i,j;for (i=0;i16;i+)times=0x8;ini=0;for (j=0;j4;j+)ini+=(*out+)*times;times/=2;static int pc_1_c28=57,49,41,33,25,17,9,1,58,50,42,34,26,18,10,2,59,51,43,35,27,19,11,3,60,52,44,36;static int pc_1_d28

14、=63,55,47,39,31,23,15,7,62,54,46,38,30,22,14,6,61,53,45,37,29,21,13,5,28,20,12,4;static int pc_248=14,17,11,24,1,5,3,28,15,6,21,10,23,19,12,4,26,8,16,7,27,20,13,2,41,52,31,37,47,55,30,40,51,45,33,48,44,49,39,56,34,53,46,42,50,36,29,32;static int ls_count16=1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1;static void

15、 setkeystar(unsigned char bits64)int i,j;for (i=0;i28;i+)C0i=bitspc_1_ci-1;for (i=0;i28;i+)D0i=bitspc_1_di-1;for (j=0;j16;j+)LS(char *)(Cj),(char *)(Cj+1),ls_countj);LS(char *)(Dj),(char *)(Dj+1),ls_countj);son(char *)(Cj+1),(char *)(Dj+1),(char *)(Kj+1);static void LS(char *bits,char *buffer,int co

16、unt)int i;for (i=0;i28;i+)bufferi=bits(i+count)%28;static void son(char *cc,char *dd,char *kk)int i;char buffer56;for (i=0;i28;i+)bufferi = *cc+;for (i=28;i56;i+)bufferi = *dd+;for (i=0;i48;i+)*kk+=bufferpc_2i-1;static int ip_tab64=58,50,42,34,26,18,10,2,60,52,44,36,28,20,12,4,62,54,46,38,30,22,14,6

17、,64,56,48,40,32,24,16,8,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;static int _ip_tab64=40,8,48,16,56,24,64,32,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,

18、1,41,9,49,17,57,25;static void ip(unsigned char *text,char *ll,char *rr)int i;char buffer64;expand0(text,buffer);for (i=0;i32;i+)lli=bufferip_tabi-1;for (i=0;i32;i+)rri=bufferip_tabi+32-1;static void _ip(unsigned char *text,char *ll,char *rr)int i;char tmp64;for (i=0;i32;i+)tmpi=lli;for (i=32;i64;i+

19、)tmpi=rri-32;for (i=0;i64;i+)texti=tmp_ip_tabi-1;static int e_r48=32,1,2,3,4,5,4,5,6,7,8,9,8,9,10,11,12,13,12,13,14,15,16,17,16,17,18,19,20,21,20,21,22,23,24,25,24,25,26,27,28,29,28,29,30,31,32,1;static int P32=16,7,20,21,29,12,28,17,1,15,23,26,5,18,31,10,2,8,24,14,32,27,3,9,19,13,30,6,22,11,4,25;st

20、atic int SSS16416=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,/* err on */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,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

21、,10,1,3,15,4,2,11,6,7,12,0,5,14,9,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,1,10,13,0,6,9,8,7,4,15,14,3,11,5,2,12,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,14,9,10,6,9,0,12,11,7,13,15,1,3,14,5,2,8,4,

22、3,15,0,6,10,1,13,8,9,4,5,11,12,7,2,14, /* err on */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, /* err on */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,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,

23、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,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,3,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,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

24、,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 void F(int n,char *ll,char *rr,char *LL,char *RR)int i;char buffer64,tmp64;for (i=0;i48;i+)bufferi=rre_ri-1;for (i=0;i48;i+)bufferi=(bufferi+Kni)&1;s_box(buffer,tmp);for (i=0;i32;i+)bufferi=tmpPi-1;for (i=0;i32;i+)RRi=(bu

25、fferi+lli)&1;for (i=0;i32;i+)LLi=rri;static void s_box(char *aa,char *bb)int i,j,k,m;int y,z;char ss8;m=0;for (i=0;i8;i+)j=6*i;y=aaj*2+aaj+5;z=aaj+1*8+aaj+2*4+aaj+3*2+aaj+4;ssi=SSSiyz;y=0x08;for (k=0;k4;k+)bbm+=(ssi/y)&1;y/=2;Destest.c#include #include #include #include des.hchar KEY19,KEY29,KEY39;s

26、tatic void EncryStr(char *s_data,char *d_data);static void DEncryStr(char *s_data,char *d_data);static void EncryFile(char *s_file,char *d_file);long filelength(FILE *fp);static void DEncryFile(char *s_file,char *d_file);int main()char s_data100,d_data100;char tbuf10,td_data100;memset(KEY1,0,sizeof(

27、KEY1);strcpy(KEY1,);EncryFile(/tmp/mcrd_s13_4.txt,/tmp/mcrd_s13_4.des);DEncryFile(/tmp/mcrd_s13_4.des,/tmp/y3);exit(0);static void EncryStrDes1(char *s_data,char *d_data)DES(unsigned char*)s_data,(unsigned char*)d_data,(unsigned char*)KEY1,ENCRYPT);static void DEncryStrDes1(char *s_data,char *d_data

28、)DES(unsigned char*)s_data,(unsigned char*)d_data,(unsigned char*)KEY1,DECRYPT);static void EncryFile(char *s_file,char *d_file)FILE *sfp,*dfp;char ch,s_data9,d_data9;long len;int idx=0;if(sfp=fopen(s_file,r)=NULL)fprintf(stderr,file=%s fopen errorn,s_file);return ;if(dfp=fopen(d_file,w)=NULL)fprint

29、f(stderr,file=%s fopen errorn,s_file);return ;len=filelength(sfp);fprintf(stderr,len=%ldn,len);memset(s_data,0,sizeof(s_data);sprintf(s_data,%08ld,len);memset(d_data,0,sizeof(d_data);EncryStrDes1(s_data,d_data);fwrite(d_data,sizeof(char),8,dfp);memset(s_data,0,sizeof(s_data);while(fread(&ch,sizeof(char),1,sfp)=1)s_dataidx+=ch;if(idx=8)memset(d_data,0,sizeof(d_data);EncryStrDes1(s_data,d_data);fwrite(d_data,sizeof(char),8,dfp);idx=0;memset(s_data,0,sizeof(s_data