home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / libdes / patch01 < prev    next >
Encoding:
Internet Message Format  |  1992-04-15  |  53.7 KB
  1. From: eay@psych.psy.uq.oz.au (Eric Young)
  2. Newsgroups: comp.sources.misc
  3. Subject: v29i074: libdes - DES encryption library, Patch01
  4. Message-ID: <1992Apr15.094827.25293@aber.ac.uk>
  5. Date: 15 Apr 92 09:48:27 GMT
  6. Approved: aem@aber.ac.uk
  7. X-Md4-Signature: 0aeffb6027240d3c49748f8196918267
  8.  
  9. Submitted-by: eay@psych.psy.uq.oz.au (Eric Young)
  10. Posting-number: Volume 29, Issue 74
  11. Archive-name: libdes/patch01
  12. Environment: UNIX
  13. Patch-To: libdes: Volume 29, Issue 43-46
  14.  
  15. This is a patch file that incorporates suggestions I have received
  16. since libdes was first posted.
  17.  
  18. to apply the patch, run the following
  19.  
  20. /bin/rm sp.h
  21. patch -p1 <patch1
  22.  
  23. - Makefile support for installation
  24. - Posix/SYSV support, for systems without bcopy, bzero etc.
  25. - des(1) has been given new options allowing the use of keys longer
  26.   than 8 bytes.
  27. - Modifications so libdes should compile under VMS
  28. - Changes to speed.c so that it should compile on systems without
  29.   SIGALRM and can be build on systems without times(3).
  30. - A 5% speedup (on a sparc2) in ecb_encrypt().
  31.  
  32. diff -r -c old/INSTALLATION new/INSTALLATION
  33. *** old/INSTALLATION    Mon Apr 13 10:05:17 1992
  34. --- new/INSTALLATION    Mon Apr 13 12:44:24 1992
  35. ***************
  36. *** 1,22 ****
  37.   Check the CC and CFLAGS lines in the makefile
  38. - Check the HZ value for the times(3) function.  If it is not 60 then
  39. - you will need to change its value in speed.c
  40.   
  41. ! If possible use gcc v 2.0.
  42.   Turn on the maximum optimising
  43.   
  44. ! type './make'
  45.   
  46.   run './destest' to check things are ok.
  47.   run './rpw' to check the tty code for reading passwords works.
  48.   run './speed' to see how fast those optimisations make the library run :-)
  49.   
  50. ! You will need to install by hand
  51. ! libdes.a      to /usr/local/lib/libdes.a
  52. ! des.h         to /usr/include/des.h
  53. ! des          to /usr/local/bin/des
  54. ! des_crypt.man to /usr/local/man/man3/des_crypt.3
  55. ! des.man       to /usr/local/man/man1/des.1
  56.   
  57.   des(1) should be compatable with sunOS's but I have been unable to
  58.   test it.
  59. --- 1,27 ----
  60.   Check the CC and CFLAGS lines in the makefile
  61.   
  62. ! If your C library does not suport the times(3) function, change the
  63. ! #define TIMES to
  64. ! #undef TIMES in speed.c
  65. ! If it does, check the HZ value for the times(3) function.
  66. ! If your system does not define CLK_TCK it will be assumed to
  67. ! be 60.
  68. ! 
  69. ! If possible use gcc v 2.1.
  70.   Turn on the maximum optimising
  71.   
  72. ! type 'make'
  73.   
  74.   run './destest' to check things are ok.
  75.   run './rpw' to check the tty code for reading passwords works.
  76.   run './speed' to see how fast those optimisations make the library run :-)
  77.   
  78. ! A make install will by default install
  79. ! libdes.a      in /usr/local/lib/libdes.a
  80. ! des           in /usr/local/bin/des
  81. ! des_crypt.man in /usr/local/man/man3/des_crypt.3
  82. ! des.man       in /usr/local/man/man1/des.1
  83. ! des.h         in /usr/include/des.h
  84.   
  85.   des(1) should be compatable with sunOS's but I have been unable to
  86.   test it.
  87. Only in old: MANIFEST
  88. diff -r -c old/README new/README
  89. *** old/README    Mon Apr 13 10:05:18 1992
  90. --- new/README    Mon Apr 13 12:17:38 1992
  91. ***************
  92. *** 12,22 ****
  93.   destest should be run after compilation to test the des routines.
  94.   rpw should be run after compilation to test the read password routines.
  95.   The des program is a replacement for the sun des command.  I believe it
  96. ! conforms to the sun binary but I am unable to test it.
  97.   
  98.   The Imakefile is setup for use in the kerberos distribution.
  99.   
  100. ! These routines are best compiled with gcc v 2.0 or any other good
  101.   optimising compiler.
  102.   Just turn you optimiser up to the highest settings and run destest
  103.   after the build to make sure everything works.
  104. --- 12,22 ----
  105.   destest should be run after compilation to test the des routines.
  106.   rpw should be run after compilation to test the read password routines.
  107.   The des program is a replacement for the sun des command.  I believe it
  108. ! conforms to the sun binary.
  109.   
  110.   The Imakefile is setup for use in the kerberos distribution.
  111.   
  112. ! These routines are best compiled with gcc v 2.1 or any other good
  113.   optimising compiler.
  114.   Just turn you optimiser up to the highest settings and run destest
  115.   after the build to make sure everything works.
  116. ***************
  117. *** 24,30 ****
  118.   I believe these routines are about the fastest DES routines that use
  119.   small lookup tables (4.5k) that are publicly available.
  120.   The fcrypt routine is faster than ufc's fcrypt (when compiling with
  121. ! gcc2 -O2) on the sparc 2 (1340 vs 1270) but is not so good on other machines
  122.   (on a sun3/260 168 vs 336).
  123.   
  124.   Eric Young (eay@psych.psy.uq.oz.au)
  125. --- 24,30 ----
  126.   I believe these routines are about the fastest DES routines that use
  127.   small lookup tables (4.5k) that are publicly available.
  128.   The fcrypt routine is faster than ufc's fcrypt (when compiling with
  129. ! gcc2 -O2) on the sparc 2 (1410 vs 1270) but is not so good on other machines
  130.   (on a sun3/260 168 vs 336).
  131.   
  132.   Eric Young (eay@psych.psy.uq.oz.au)
  133. diff -r -c old/VERSION new/VERSION
  134. *** old/VERSION    Mon Apr 13 10:05:19 1992
  135. --- new/VERSION    Mon Apr 13 12:20:26 1992
  136. ***************
  137. *** 1,4 ****
  138. ! Version 1.9 24/03/91 eay
  139.       Now contains a fast small crypt replacement.
  140.       Added des(1) command.
  141.       Added des_rw_mode so people can use cbc encryption with
  142. --- 1,20 ----
  143. ! Version 1.92 13/04/92 eay
  144. !     Changed D_ENCRYPT so that the rotation of R occures outside of
  145. !      the loop.  This required rotating all the longs in sp.h (now
  146. !      called spr.h). Thanks to Richard Outerbridge <71755.204@CompuServe.COM>
  147. !     speed.c has been changed so it will work without SIGALRM.  If
  148. !      times(3) is not present it will try to use ftime() instead.
  149. ! 
  150. ! Version 1.91 08/04/92 eay
  151. !     Added -E/-D options to des(1) so it can use string_to_key.
  152. !     Added SVR4 mods suggested by witr@rwwa.COM
  153. !     Added VMS mods suggested by brennan@coco.cchs.su.oz.AU.  If
  154. !     anyone knows how to turn of tty echo in VMS please tell me or
  155. !     implement it yourself :-).
  156. !     Changed FILE *IN/*OUT to *DES_IN/*DES_OUT since it appears VMS
  157. !     does not like IN/OUT being used.
  158. ! 
  159. ! Version 1.9 24/03/92 eay
  160.       Now contains a fast small crypt replacement.
  161.       Added des(1) command.
  162.       Added des_rw_mode so people can use cbc encryption with
  163. diff -r -c old/des.c new/des.c
  164. *** old/des.c    Mon Apr 13 10:05:27 1992
  165. --- new/des.c    Wed Apr  8 10:49:03 1992
  166. ***************
  167. *** 1,16 ****
  168.   /* des.c */
  169.   /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  170.   #include <stdio.h>
  171.   #include <sys/types.h>
  172.   #include <sys/stat.h>
  173.   #include "des.h"
  174.   
  175.   #define VERIFY  1
  176.   #define KEYSIZ    8
  177. ! char key[KEYSIZ+1];
  178. ! int encrypt;
  179.   char *in=NULL,*out=NULL;
  180. ! FILE *IN,*OUT;
  181.   
  182.   int eflag,dflag,kflag,bflag,fflag,sflag,error;
  183.   
  184. --- 1,31 ----
  185.   /* des.c */
  186.   /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  187.   #include <stdio.h>
  188. + #ifdef VMS
  189. + #include <types.h>
  190. + #include <stat.h>
  191. + #else
  192.   #include <sys/types.h>
  193.   #include <sys/stat.h>
  194. + #endif
  195.   #include "des.h"
  196.   
  197. + #if defined(__STDC__) || defined(VMS)
  198. + #include <string.h>
  199. + #define bcopy(f,t,n)    memcpy(t,f,(size_t)(n))
  200. + #define bzero(s,n)    memset(s,0,(size_t)(n))
  201. + #define bcmp(a,b,n)    memcmp(a, b,(size_t)(n))
  202. + #define index(s,c)    strchr(s,c)
  203. + #endif
  204. + 
  205. + 
  206.   #define VERIFY  1
  207.   #define KEYSIZ    8
  208. ! #define KEYSIZB 1024 /* should hit tty line limit first :-) */
  209. ! char key[KEYSIZB+1];
  210. ! int encrypt,longk=0;
  211.   char *in=NULL,*out=NULL;
  212. ! FILE *DES_IN,*DES_OUT;
  213.   
  214.   int eflag,dflag,kflag,bflag,fflag,sflag,error;
  215.   
  216. ***************
  217. *** 22,28 ****
  218.       struct stat ins,outs;
  219.   
  220.       eflag=dflag=kflag=bflag=fflag=sflag=0,error=0;
  221. !     memset(key,0,sizeof(key));
  222.   
  223.       for (i=1; i<argc; i++)
  224.           {
  225. --- 37,43 ----
  226.       struct stat ins,outs;
  227.   
  228.       eflag=dflag=kflag=bflag=fflag=sflag=0,error=0;
  229. !     bzero(key,sizeof(key));
  230.   
  231.       for (i=1; i<argc; i++)
  232.           {
  233. ***************
  234. *** 34,42 ****
  235. --- 49,65 ----
  236.               case 'e':
  237.                   eflag=1;
  238.                   break;
  239. +             case 'E':
  240. +                 eflag=1;
  241. +                 longk=1;
  242. +                 break;
  243.               case 'd':
  244.                   dflag=1;
  245.                   break;
  246. +             case 'D':
  247. +                 dflag=1;
  248. +                 longk=1;
  249. +                 break;
  250.               case 'b':
  251.                   bflag=1;
  252.                   break;
  253. ***************
  254. *** 58,64 ****
  255.                       int j;
  256.   
  257.                       i++;
  258. !                     strncpy(key,argv[i],KEYSIZ);
  259.                       for (j=strlen(argv[i])-1; j>=0; j--)
  260.                           argv[i][j]='\0';
  261.                       }
  262. --- 81,87 ----
  263.                       int j;
  264.   
  265.                       i++;
  266. !                     strncpy(key,argv[i],KEYSIZB);
  267.                       for (j=strlen(argv[i])-1; j>=0; j--)
  268.                           argv[i][j]='\0';
  269.                       }
  270. ***************
  271. *** 100,106 ****
  272.               }
  273.   
  274.       if (!kflag)
  275. !         if (des_read_pw_string(key,KEYSIZ+1,"Enter key:",eflag?VERIFY:0))
  276.               {
  277.               fputs("password error\n",stderr);
  278.               exit(2);
  279. --- 123,129 ----
  280.               }
  281.   
  282.       if (!kflag)
  283. !         if (des_read_pw_string(key,KEYSIZB+1,"Enter key:",eflag?VERIFY:0))
  284.               {
  285.               fputs("password error\n",stderr);
  286.               exit(2);
  287. ***************
  288. *** 107,114 ****
  289.               }
  290.   
  291.       if (in == NULL)
  292. !         IN=stdin;
  293. !     else if ((IN=fopen(in,"r")) == NULL)
  294.           {
  295.           perror("opening input file");
  296.           exit(4);
  297. --- 130,137 ----
  298.               }
  299.   
  300.       if (in == NULL)
  301. !         DES_IN=stdin;
  302. !     else if ((DES_IN=fopen(in,"r")) == NULL)
  303.           {
  304.           perror("opening input file");
  305.           exit(4);
  306. ***************
  307. *** 115,122 ****
  308.           }
  309.   
  310.       if (out == NULL)
  311. !         OUT=stdout;
  312. !     else if ((OUT=fopen(out,"w")) == NULL)
  313.           {
  314.           perror("opening output file");
  315.           exit(5);
  316. --- 138,145 ----
  317.           }
  318.   
  319.       if (out == NULL)
  320. !         DES_OUT=stdout;
  321. !     else if ((DES_OUT=fopen(out,"w")) == NULL)
  322.           {
  323.           perror("opening output file");
  324.           exit(5);
  325. ***************
  326. *** 123,136 ****
  327.           }
  328.   
  329.       doencryption();
  330. !     fclose(IN);
  331. !     fclose(OUT);
  332.       exit(0);
  333.       }
  334.   
  335.   usage()
  336.       {
  337. !     fputs("des -e | -d [ -bfs ] [ -k key ] [ input-file [ output-file]\n",
  338.           stderr);
  339.       exit(1);
  340.       }
  341. --- 146,159 ----
  342.           }
  343.   
  344.       doencryption();
  345. !     fclose(DES_IN);
  346. !     fclose(DES_OUT);
  347.       exit(0);
  348.       }
  349.   
  350.   usage()
  351.       {
  352. !     fputs("des (-e|-E) | (-d|-D) [ -bfs ] [ -k key ] [ input-file [ output-file]\n",
  353.           stderr);
  354.       exit(1);
  355.       }
  356. ***************
  357. *** 142,165 ****
  358.       des_key_schedule ks;
  359.       char iv[8];
  360.       int i,j,k,l,ll,last,ex=0;
  361.   
  362. !     for (i=0; i<KEYSIZ; i++)
  363.           {
  364. !         l=0;
  365. !         k=key[i];
  366. !         for (j=0; j<8; j++)
  367.               {
  368. !             if (k&1) l++;
  369. !             k>>=1;
  370.               }
  371. -         if (l & 1)
  372. -             key[i]=key[i]&0x7f;
  373. -         else
  374. -             key[i]=key[i]|0x80;
  375. -         }
  376.   
  377. !     des_set_key(key,ks);
  378. !     memset(key,0,sizeof(key));
  379.   
  380.       l=1;
  381.       /* first read */
  382. --- 165,195 ----
  383.       des_key_schedule ks;
  384.       char iv[8];
  385.       int i,j,k,l,ll,last,ex=0;
  386. +     des_cblock kk;
  387.   
  388. !     if (longk)
  389.           {
  390. !         des_string_to_key(key,kk);
  391. !         }
  392. !     else
  393. !         for (i=0; i<KEYSIZ; i++)
  394.               {
  395. !             l=0;
  396. !             k=key[i];
  397. !             for (j=0; j<8; j++)
  398. !                 {
  399. !                 if (k&1) l++;
  400. !                 k>>=1;
  401. !                 }
  402. !             if (l & 1)
  403. !                 kk[i]=key[i]&0x7f;
  404. !             else
  405. !                 kk[i]=key[i]|0x80;
  406.               }
  407.   
  408. !     des_set_key(kk,ks);
  409. !     bzero(key,sizeof(key));
  410. !     bzero(kk,sizeof(kk));
  411.   
  412.       l=1;
  413.       /* first read */
  414. ***************
  415. *** 167,173 ****
  416.           {
  417.           for (;;)
  418.               {
  419. !             l=fread(buf,1,1024*8,IN);
  420.               if (l < 0)
  421.                   {
  422.                   perror("read error");
  423. --- 197,203 ----
  424.           {
  425.           for (;;)
  426.               {
  427. !             l=fread(buf,1,1024*8,DES_IN);
  428.               if (l < 0)
  429.                   {
  430.                   perror("read error");
  431. ***************
  432. *** 174,180 ****
  433.                   exit(6);
  434.                   }
  435.   
  436. !             if (feof(IN))
  437.                   {
  438.                   last=l%8;
  439.                   srand(time(NULL));
  440. --- 204,210 ----
  441.                   exit(6);
  442.                   }
  443.   
  444. !             if (feof(DES_IN))
  445.                   {
  446.                   last=l%8;
  447.                   srand(time(NULL));
  448. ***************
  449. *** 201,207 ****
  450.               i=0;
  451.               while (i != l)
  452.                   {
  453. !                 j=fwrite(obuf,1,l-i,OUT);
  454.                   if (j == -1)
  455.                       {
  456.                       perror("Write error");
  457. --- 231,237 ----
  458.               i=0;
  459.               while (i != l)
  460.                   {
  461. !                 j=fwrite(obuf,1,l-i,DES_OUT);
  462.                   if (j == -1)
  463.                       {
  464.                       perror("Write error");
  465. ***************
  466. *** 209,215 ****
  467.                       }
  468.                   i+=j;
  469.                   }
  470. !             if (feof(IN)) break;
  471.               }
  472.           }
  473.       else /* decrypt */
  474. --- 239,245 ----
  475.                       }
  476.                   i+=j;
  477.                   }
  478. !             if (feof(DES_IN)) break;
  479.               }
  480.           }
  481.       else /* decrypt */
  482. ***************
  483. *** 218,224 ****
  484.           for (;;)
  485.               {
  486.               if (ex) {
  487. !                 l=fread(buf,1,1024*8,IN);
  488.                   ex=0;
  489.                   }
  490.               if (l < 0)
  491. --- 248,254 ----
  492.           for (;;)
  493.               {
  494.               if (ex) {
  495. !                 l=fread(buf,1,1024*8,DES_IN);
  496.                   ex=0;
  497.                   }
  498.               if (l < 0)
  499. ***************
  500. *** 241,248 ****
  501.                   if (l >= 8) bcopy(&(buf[l-8]),iv,8);
  502.                   }
  503.   
  504. !             if (!ex) ll=fread(buf,1,1024*8,IN);
  505. !             if (feof(IN) && (ll == 0))
  506.                   {
  507.                   last=obuf[l-1];
  508.                   if ((last > 7) || (last < 0))
  509. --- 271,278 ----
  510.                   if (l >= 8) bcopy(&(buf[l-8]),iv,8);
  511.                   }
  512.   
  513. !             ll=fread(buf,1,1024*8,DES_IN);
  514. !             if (feof(DES_IN) && (ll == 0))
  515.                   {
  516.                   last=obuf[l-1];
  517.                   if ((last > 7) || (last < 0))
  518. ***************
  519. *** 256,262 ****
  520.               i=0;
  521.               while (i != l)
  522.                   {
  523. !                 j=fwrite(obuf,1,l-i,OUT);
  524.                   if (j == -1)
  525.                       {
  526.                       perror("Write error");
  527. --- 286,292 ----
  528.               i=0;
  529.               while (i != l)
  530.                   {
  531. !                 j=fwrite(obuf,1,l-i,DES_OUT);
  532.                   if (j == -1)
  533.                       {
  534.                       perror("Write error");
  535. ***************
  536. *** 265,271 ****
  537.                   i+=j;
  538.                   }
  539.               l=ll;
  540. !             if ((l == 0) && feof(IN)) break;
  541.               }
  542.           }
  543.       }
  544. --- 295,301 ----
  545.                   i+=j;
  546.                   }
  547.               l=ll;
  548. !             if ((l == 0) && feof(DES_IN)) break;
  549.               }
  550.           }
  551.       }
  552. diff -r -c old/des.man new/des.man
  553. *** old/des.man    Mon Apr 13 10:05:20 1992
  554. --- new/des.man    Mon Apr 13 12:52:50 1992
  555. ***************
  556. *** 3,11 ****
  557. --- 3,17 ----
  558.   des - encrypt or decrypt data using Data Encryption Standard
  559.   .SH SYNOPSIS
  560.   .B des
  561. + (
  562.   .B \-e
  563.   |
  564. + .B \-E
  565. + ) | (
  566.   .B \-d
  567. + |
  568. + .B \-D
  569. + )
  570.   [
  571.   .B \-bfs
  572.   ] [
  573. ***************
  574. *** 21,29 ****
  575.   encrypts and decrypts data using the
  576.   Data Encryption Standard algorithm.
  577.   One of
  578. ! .B \-e
  579.   (for encrypt) or
  580. ! .B \-d
  581.   (for decrypt) must be specified.
  582.   .LP
  583.   Two standard encryption modes are supported by the
  584. --- 27,35 ----
  585.   encrypts and decrypts data using the
  586.   Data Encryption Standard algorithm.
  587.   One of
  588. ! .B \-e, \-E
  589.   (for encrypt) or
  590. ! .B \-d, \-D
  591.   (for decrypt) must be specified.
  592.   .LP
  593.   Two standard encryption modes are supported by the
  594. ***************
  595. *** 37,43 ****
  596.   .B DES
  597.   algorithm is obtained by prompting the user unless the
  598.   .B `\-k
  599. ! .I key '
  600.   option is given.
  601.   If the key is an argument to the
  602.   .B des
  603. --- 43,49 ----
  604.   .B DES
  605.   algorithm is obtained by prompting the user unless the
  606.   .B `\-k
  607. ! .I key'
  608.   option is given.
  609.   If the key is an argument to the
  610.   .B des
  611. ***************
  612. *** 62,72 ****
  613.   Select ECB
  614.   (eight bytes at a time) encryption mode.
  615.   .TP
  616.   .B \-d
  617. ! Decrypt data.
  618.   .TP
  619. ! .B \-e
  620. ! Encrypt data.
  621.   .TP
  622.   .B \-f
  623.   Does nothing - allowed for compatibility with sunOS des(1) command.
  624. --- 68,86 ----
  625.   Select ECB
  626.   (eight bytes at a time) encryption mode.
  627.   .TP
  628. + .B \-e
  629. + Encrypt data using an 8 byte key in a maner compatible with sunOS
  630. + des(1).
  631. + .TP
  632. + .B \-E
  633. + Encrypt data using a key of nearly unlimited length (1024 bytes).
  634. + This will product a more secure encryption.
  635. + .TP
  636.   .B \-d
  637. ! Decrypt data that was encrypted with the \-e option.
  638.   .TP
  639. ! .B \-D
  640. ! Decrypt data that was encrypted with the \-E option.
  641.   .TP
  642.   .B \-f
  643.   Does nothing - allowed for compatibility with sunOS des(1) command.
  644. ***************
  645. *** 74,80 ****
  646.   .B \-s
  647.   Does nothing - allowed for compatibility with sunOS des(1) command.
  648.   .TP
  649. ! .I \-k " key"
  650.   Use the encryption 
  651.   .I key
  652.   specified.
  653. --- 88,94 ----
  654.   .B \-s
  655.   Does nothing - allowed for compatibility with sunOS des(1) command.
  656.   .TP
  657. ! .I "\-k key"
  658.   Use the encryption 
  659.   .I key
  660.   specified.
  661. ***************
  662. *** 83,93 ****
  663.   .B des_crypt(3)
  664.   .SH BUGS
  665.   .LP
  666.   It would be better to use a real 56-bit key rather than an
  667. ! ASCII-based
  668. ! 56-bit pattern.  Knowing that the key was derived from ASCII
  669. ! radically reduces
  670. ! the time necessary for a brute-force cryptographic attack.
  671.   .SH AUTHOR
  672.   .LP
  673.   Eric Young (eay@psych.psy.uq.oz.au), Psychology Department,
  674. --- 97,115 ----
  675.   .B des_crypt(3)
  676.   .SH BUGS
  677.   .LP
  678. + The problem with using the
  679. + .B -e
  680. + option is the short key length.
  681.   It would be better to use a real 56-bit key rather than an
  682. ! ASCII-based 56-bit pattern.  Knowing that the key was derived from ASCII
  683. ! radically reduces the time necessary for a brute-force cryptographic attack.
  684. ! My attempt to remove this problem is to add an alternative text-key to
  685. ! DES-key function.  This alternative function (accessed via
  686. ! .B -E
  687. ! and
  688. ! .B -D
  689. ! )
  690. ! used DES to help generate the key.
  691.   .SH AUTHOR
  692.   .LP
  693.   Eric Young (eay@psych.psy.uq.oz.au), Psychology Department,
  694. diff -r -c old/des_local.h new/des_local.h
  695. *** old/des_local.h    Mon Apr 13 10:05:21 1992
  696. --- new/des_local.h    Wed Apr  8 09:48:23 1992
  697. ***************
  698. *** 3,8 ****
  699. --- 3,16 ----
  700.   #include <stdio.h>
  701.   #include "des.h"
  702.   
  703. + #if defined(__STDC__) || defined(VMS)
  704. + #include <string.h>
  705. + #define bcopy(b1,b2,len) memcpy(b2, b1, (size_t)(len))
  706. + #define bzero(b,len) memset(b, 0, (size_t)(len))
  707. + #define bcmp(b1,b2,len) memcmp(b1, b2, (size_t)(len))
  708. + #define index(s1,char) strchr(s1,char)
  709. + #endif
  710. + 
  711.   typedef unsigned char uchar;
  712.   typedef unsigned short ushort;
  713.   typedef unsigned int uint;
  714. diff -r -c old/ecb_encrypt.c new/ecb_encrypt.c
  715. *** old/ecb_encrypt.c    Mon Apr 13 10:05:22 1992
  716. --- new/ecb_encrypt.c    Mon Apr 13 12:55:09 1992
  717. ***************
  718. *** 1,7 ****
  719.   /* ecb_encrypt.c */
  720.   /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  721.   #include "des_local.h"
  722. ! #include "sp.h"
  723.   
  724.   int des_ecb_encrypt(input,output,ks,encrypt)
  725.   des_cblock *input;
  726. --- 1,7 ----
  727.   /* ecb_encrypt.c */
  728.   /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  729.   #include "des_local.h"
  730. ! #include "spr.h"
  731.   
  732.   int des_ecb_encrypt(input,output,ks,encrypt)
  733.   des_cblock *input;
  734. ***************
  735. *** 28,36 ****
  736.       }
  737.   
  738.   #define D_ENCRYPT(L,R,S)    \
  739. !     t=(R<<1)|(R>>31); \
  740. !     u=(t^s[S  ]); \
  741. !     t=(t^s[S+1]); \
  742.       t=(t>>4)|(t<<28); \
  743.       L^=    des_SPtrans[1][(t    )&0x3f]| \
  744.           des_SPtrans[3][(t>> 8)&0x3f]| \
  745. --- 28,35 ----
  746.       }
  747.   
  748.   #define D_ENCRYPT(L,R,S)    \
  749. !     u=(R^s[S  ]); \
  750. !     t=(R^s[S+1]); \
  751.       t=(t>>4)|(t<<28); \
  752.       L^=    des_SPtrans[1][(t    )&0x3f]| \
  753.           des_SPtrans[3][(t>> 8)&0x3f]| \
  754. ***************
  755. *** 101,113 ****
  756.       PERM_OP(r,l,t, 2,0x33333333);
  757.       PERM_OP(l,r,t, 8,0x00ff00ff);
  758.       PERM_OP(r,l,t, 1,0x55555555);
  759. !     /* r and l are reversed - remember that :-) */
  760. !     t=l;
  761. !     l=r;
  762. !     r=t;
  763.   
  764. !     s=(ulong *)ks;
  765.   
  766.       /* I don't know if it is worth the effort of loop unrolling the
  767.        * inner loop */
  768.       if (encrypt)
  769. --- 100,119 ----
  770.       PERM_OP(r,l,t, 2,0x33333333);
  771.       PERM_OP(l,r,t, 8,0x00ff00ff);
  772.       PERM_OP(r,l,t, 1,0x55555555);
  773. !     /* r and l are reversed - remember that :-) - fix
  774. !      * it in the next step */
  775.   
  776. !     /* Things have been modified so that the initial rotate is
  777. !      * done outside the loop.  This required the 
  778. !      * des_SPtrans values in sp.h to be rotated 1 bit to the right.
  779. !      * One perl script later and things have a 5% speed up on a sparc2.
  780. !      * Thanks to Richard Outerbridge <71755.204@CompuServe.COM>
  781. !      * for pointing this out. */
  782. !     t=(r<<1)|(r>>31);
  783. !     r=(l<<1)|(l>>31); 
  784. !     l=t;
  785.   
  786. +     s=(ulong *)ks;
  787.       /* I don't know if it is worth the effort of loop unrolling the
  788.        * inner loop */
  789.       if (encrypt)
  790. ***************
  791. *** 126,131 ****
  792. --- 132,139 ----
  793.               D_ENCRYPT(r,l,i-2); /* 15 */
  794.               }
  795.           }
  796. +     l=(l>>1)|(l<<31);
  797. +     r=(r>>1)|(r<<31);
  798.   
  799.       /* swap l and r
  800.        * we will not do the swap so just remember they are
  801. diff -r -c old/fcrypt.c new/fcrypt.c
  802. *** old/fcrypt.c    Mon Apr 13 10:05:31 1992
  803. --- new/fcrypt.c    Mon Apr 13 09:59:25 1992
  804. ***************
  805. *** 39,186 ****
  806.   
  807.   static unsigned long SPtrans[8][64]={
  808.   /* nibble 0 */
  809. ! 0x00410100, 0x00010000, 0x40400000, 0x40410100,
  810. ! 0x00400000, 0x40010100, 0x40010000, 0x40400000,
  811. ! 0x40010100, 0x00410100, 0x00410000, 0x40000100,
  812. ! 0x40400100, 0x00400000, 0x00000000, 0x40010000,
  813. ! 0x00010000, 0x40000000, 0x00400100, 0x00010100,
  814. ! 0x40410100, 0x00410000, 0x40000100, 0x00400100,
  815. ! 0x40000000, 0x00000100, 0x00010100, 0x40410000,
  816. ! 0x00000100, 0x40400100, 0x40410000, 0x00000000,
  817. ! 0x00000000, 0x40410100, 0x00400100, 0x40010000,
  818. ! 0x00410100, 0x00010000, 0x40000100, 0x00400100,
  819. ! 0x40410000, 0x00000100, 0x00010100, 0x40400000,
  820. ! 0x40010100, 0x40000000, 0x40400000, 0x00410000,
  821. ! 0x40410100, 0x00010100, 0x00410000, 0x40400100,
  822. ! 0x00400000, 0x40000100, 0x40010000, 0x00000000,
  823. ! 0x00010000, 0x00400000, 0x40400100, 0x00410100,
  824. ! 0x40000000, 0x40410000, 0x00000100, 0x40010100,
  825. ! 
  826.   /* nibble 1 */
  827. ! 0x08021002, 0x00000000, 0x00021000, 0x08020000,
  828. ! 0x08000002, 0x00001002, 0x08001000, 0x00021000,
  829. ! 0x00001000, 0x08020002, 0x00000002, 0x08001000,
  830. ! 0x00020002, 0x08021000, 0x08020000, 0x00000002,
  831. ! 0x00020000, 0x08001002, 0x08020002, 0x00001000,
  832. ! 0x00021002, 0x08000000, 0x00000000, 0x00020002,
  833. ! 0x08001002, 0x00021002, 0x08021000, 0x08000002,
  834. ! 0x08000000, 0x00020000, 0x00001002, 0x08021002,
  835. ! 0x00020002, 0x08021000, 0x08001000, 0x00021002,
  836. ! 0x08021002, 0x00020002, 0x08000002, 0x00000000,
  837. ! 0x08000000, 0x00001002, 0x00020000, 0x08020002,
  838. ! 0x00001000, 0x08000000, 0x00021002, 0x08001002,
  839. ! 0x08021000, 0x00001000, 0x00000000, 0x08000002,
  840. ! 0x00000002, 0x08021002, 0x00021000, 0x08020000,
  841. ! 0x08020002, 0x00020000, 0x00001002, 0x08001000,
  842. ! 0x08001002, 0x00000002, 0x08020000, 0x00021000,
  843. ! 
  844.   /* nibble 2 */
  845. ! 0x20800000, 0x00808020, 0x00000020, 0x20800020,
  846. ! 0x20008000, 0x00800000, 0x20800020, 0x00008020,
  847. ! 0x00800020, 0x00008000, 0x00808000, 0x20000000,
  848. ! 0x20808020, 0x20000020, 0x20000000, 0x20808000,
  849. ! 0x00000000, 0x20008000, 0x00808020, 0x00000020,
  850. ! 0x20000020, 0x20808020, 0x00008000, 0x20800000,
  851. ! 0x20808000, 0x00800020, 0x20008020, 0x00808000,
  852. ! 0x00008020, 0x00000000, 0x00800000, 0x20008020,
  853. ! 0x00808020, 0x00000020, 0x20000000, 0x00008000,
  854. ! 0x20000020, 0x20008000, 0x00808000, 0x20800020,
  855. ! 0x00000000, 0x00808020, 0x00008020, 0x20808000,
  856. ! 0x20008000, 0x00800000, 0x20808020, 0x20000000,
  857. ! 0x20008020, 0x20800000, 0x00800000, 0x20808020,
  858. ! 0x00008000, 0x00800020, 0x20800020, 0x00008020,
  859. ! 0x00800020, 0x00000000, 0x20808000, 0x20000020,
  860. ! 0x20800000, 0x20008020, 0x00000020, 0x00808000,
  861. ! 
  862.   /* nibble 3 */
  863. ! 0x00080201, 0x02000200, 0x00000001, 0x02080201,
  864. ! 0x00000000, 0x02080000, 0x02000201, 0x00080001,
  865. ! 0x02080200, 0x02000001, 0x02000000, 0x00000201,
  866. ! 0x02000001, 0x00080201, 0x00080000, 0x02000000,
  867. ! 0x02080001, 0x00080200, 0x00000200, 0x00000001,
  868. ! 0x00080200, 0x02000201, 0x02080000, 0x00000200,
  869. ! 0x00000201, 0x00000000, 0x00080001, 0x02080200,
  870. ! 0x02000200, 0x02080001, 0x02080201, 0x00080000,
  871. ! 0x02080001, 0x00000201, 0x00080000, 0x02000001,
  872. ! 0x00080200, 0x02000200, 0x00000001, 0x02080000,
  873. ! 0x02000201, 0x00000000, 0x00000200, 0x00080001,
  874. ! 0x00000000, 0x02080001, 0x02080200, 0x00000200,
  875. ! 0x02000000, 0x02080201, 0x00080201, 0x00080000,
  876. ! 0x02080201, 0x00000001, 0x02000200, 0x00080201,
  877. ! 0x00080001, 0x00080200, 0x02080000, 0x02000201,
  878. ! 0x00000201, 0x02000000, 0x02000001, 0x02080200,
  879. ! 
  880.   /* nibble 4 */
  881. ! 0x01000000, 0x00002000, 0x00000080, 0x01002084,
  882. ! 0x01002004, 0x01000080, 0x00002084, 0x01002000,
  883. ! 0x00002000, 0x00000004, 0x01000004, 0x00002080,
  884. ! 0x01000084, 0x01002004, 0x01002080, 0x00000000,
  885. ! 0x00002080, 0x01000000, 0x00002004, 0x00000084,
  886. ! 0x01000080, 0x00002084, 0x00000000, 0x01000004,
  887. ! 0x00000004, 0x01000084, 0x01002084, 0x00002004,
  888. ! 0x01002000, 0x00000080, 0x00000084, 0x01002080,
  889. ! 0x01002080, 0x01000084, 0x00002004, 0x01002000,
  890. ! 0x00002000, 0x00000004, 0x01000004, 0x01000080,
  891. ! 0x01000000, 0x00002080, 0x01002084, 0x00000000,
  892. ! 0x00002084, 0x01000000, 0x00000080, 0x00002004,
  893. ! 0x01000084, 0x00000080, 0x00000000, 0x01002084,
  894. ! 0x01002004, 0x01002080, 0x00000084, 0x00002000,
  895. ! 0x00002080, 0x01002004, 0x01000080, 0x00000084,
  896. ! 0x00000004, 0x00002084, 0x01002000, 0x01000004,
  897. ! 
  898.   /* nibble 5 */
  899. ! 0x10000008, 0x00040008, 0x00000000, 0x10040400,
  900. ! 0x00040008, 0x00000400, 0x10000408, 0x00040000,
  901. ! 0x00000408, 0x10040408, 0x00040400, 0x10000000,
  902. ! 0x10000400, 0x10000008, 0x10040000, 0x00040408,
  903. ! 0x00040000, 0x10000408, 0x10040008, 0x00000000,
  904. ! 0x00000400, 0x00000008, 0x10040400, 0x10040008,
  905. ! 0x10040408, 0x10040000, 0x10000000, 0x00000408,
  906. ! 0x00000008, 0x00040400, 0x00040408, 0x10000400,
  907. ! 0x00000408, 0x10000000, 0x10000400, 0x00040408,
  908. ! 0x10040400, 0x00040008, 0x00000000, 0x10000400,
  909. ! 0x10000000, 0x00000400, 0x10040008, 0x00040000,
  910. ! 0x00040008, 0x10040408, 0x00040400, 0x00000008,
  911. ! 0x10040408, 0x00040400, 0x00040000, 0x10000408,
  912. ! 0x10000008, 0x10040000, 0x00040408, 0x00000000,
  913. ! 0x00000400, 0x10000008, 0x10000408, 0x10040400,
  914. ! 0x10040000, 0x00000408, 0x00000008, 0x10040008,
  915. ! 
  916.   /* nibble 6 */
  917. ! 0x00000800, 0x00000040, 0x00200040, 0x80200000,
  918. ! 0x80200840, 0x80000800, 0x00000840, 0x00000000,
  919. ! 0x00200000, 0x80200040, 0x80000040, 0x00200800,
  920. ! 0x80000000, 0x00200840, 0x00200800, 0x80000040,
  921. ! 0x80200040, 0x00000800, 0x80000800, 0x80200840,
  922. ! 0x00000000, 0x00200040, 0x80200000, 0x00000840,
  923. ! 0x80200800, 0x80000840, 0x00200840, 0x80000000,
  924. ! 0x80000840, 0x80200800, 0x00000040, 0x00200000,
  925. ! 0x80000840, 0x00200800, 0x80200800, 0x80000040,
  926. ! 0x00000800, 0x00000040, 0x00200000, 0x80200800,
  927. ! 0x80200040, 0x80000840, 0x00000840, 0x00000000,
  928. ! 0x00000040, 0x80200000, 0x80000000, 0x00200040,
  929. ! 0x00000000, 0x80200040, 0x00200040, 0x00000840,
  930. ! 0x80000040, 0x00000800, 0x80200840, 0x00200000,
  931. ! 0x00200840, 0x80000000, 0x80000800, 0x80200840,
  932. ! 0x80200000, 0x00200840, 0x00200800, 0x80000800,
  933. ! 
  934.   /* nibble 7 */
  935. ! 0x04100010, 0x04104000, 0x00004010, 0x00000000,
  936. ! 0x04004000, 0x00100010, 0x04100000, 0x04104010,
  937. ! 0x00000010, 0x04000000, 0x00104000, 0x00004010,
  938. ! 0x00104010, 0x04004010, 0x04000010, 0x04100000,
  939. ! 0x00004000, 0x00104010, 0x00100010, 0x04004000,
  940. ! 0x04104010, 0x04000010, 0x00000000, 0x00104000,
  941. ! 0x04000000, 0x00100000, 0x04004010, 0x04100010,
  942. ! 0x00100000, 0x00004000, 0x04104000, 0x00000010,
  943. ! 0x00100000, 0x00004000, 0x04000010, 0x04104010,
  944. ! 0x00004010, 0x04000000, 0x00000000, 0x00104000,
  945. ! 0x04100010, 0x04004010, 0x04004000, 0x00100010,
  946. ! 0x04104000, 0x00000010, 0x00100010, 0x04004000,
  947. ! 0x04104010, 0x00100000, 0x04100000, 0x04000010,
  948. ! 0x00104000, 0x00004010, 0x04004010, 0x04100000,
  949. ! 0x00000010, 0x04104000, 0x00104010, 0x00000000,
  950. ! 0x04000000, 0x04100010, 0x00004000, 0x00104010};
  951.   static ulong skb[8][64]={
  952.   /* for C bits (numbered as per FIPS 46) 1 2 3 4 5 6 */
  953.   0x00000000,0x00000010,0x20000000,0x20000010,
  954. --- 39,179 ----
  955.   
  956.   static unsigned long SPtrans[8][64]={
  957.   /* nibble 0 */
  958. ! 0x00820200, 0x00020000, 0x80800000, 0x80820200,
  959. ! 0x00800000, 0x80020200, 0x80020000, 0x80800000,
  960. ! 0x80020200, 0x00820200, 0x00820000, 0x80000200,
  961. ! 0x80800200, 0x00800000, 0x00000000, 0x80020000,
  962. ! 0x00020000, 0x80000000, 0x00800200, 0x00020200,
  963. ! 0x80820200, 0x00820000, 0x80000200, 0x00800200,
  964. ! 0x80000000, 0x00000200, 0x00020200, 0x80820000,
  965. ! 0x00000200, 0x80800200, 0x80820000, 0x00000000,
  966. ! 0x00000000, 0x80820200, 0x00800200, 0x80020000,
  967. ! 0x00820200, 0x00020000, 0x80000200, 0x00800200,
  968. ! 0x80820000, 0x00000200, 0x00020200, 0x80800000,
  969. ! 0x80020200, 0x80000000, 0x80800000, 0x00820000,
  970. ! 0x80820200, 0x00020200, 0x00820000, 0x80800200,
  971. ! 0x00800000, 0x80000200, 0x80020000, 0x00000000,
  972. ! 0x00020000, 0x00800000, 0x80800200, 0x00820200,
  973. ! 0x80000000, 0x80820000, 0x00000200, 0x80020200,
  974.   /* nibble 1 */
  975. ! 0x10042004, 0x00000000, 0x00042000, 0x10040000,
  976. ! 0x10000004, 0x00002004, 0x10002000, 0x00042000,
  977. ! 0x00002000, 0x10040004, 0x00000004, 0x10002000,
  978. ! 0x00040004, 0x10042000, 0x10040000, 0x00000004,
  979. ! 0x00040000, 0x10002004, 0x10040004, 0x00002000,
  980. ! 0x00042004, 0x10000000, 0x00000000, 0x00040004,
  981. ! 0x10002004, 0x00042004, 0x10042000, 0x10000004,
  982. ! 0x10000000, 0x00040000, 0x00002004, 0x10042004,
  983. ! 0x00040004, 0x10042000, 0x10002000, 0x00042004,
  984. ! 0x10042004, 0x00040004, 0x10000004, 0x00000000,
  985. ! 0x10000000, 0x00002004, 0x00040000, 0x10040004,
  986. ! 0x00002000, 0x10000000, 0x00042004, 0x10002004,
  987. ! 0x10042000, 0x00002000, 0x00000000, 0x10000004,
  988. ! 0x00000004, 0x10042004, 0x00042000, 0x10040000,
  989. ! 0x10040004, 0x00040000, 0x00002004, 0x10002000,
  990. ! 0x10002004, 0x00000004, 0x10040000, 0x00042000,
  991.   /* nibble 2 */
  992. ! 0x41000000, 0x01010040, 0x00000040, 0x41000040,
  993. ! 0x40010000, 0x01000000, 0x41000040, 0x00010040,
  994. ! 0x01000040, 0x00010000, 0x01010000, 0x40000000,
  995. ! 0x41010040, 0x40000040, 0x40000000, 0x41010000,
  996. ! 0x00000000, 0x40010000, 0x01010040, 0x00000040,
  997. ! 0x40000040, 0x41010040, 0x00010000, 0x41000000,
  998. ! 0x41010000, 0x01000040, 0x40010040, 0x01010000,
  999. ! 0x00010040, 0x00000000, 0x01000000, 0x40010040,
  1000. ! 0x01010040, 0x00000040, 0x40000000, 0x00010000,
  1001. ! 0x40000040, 0x40010000, 0x01010000, 0x41000040,
  1002. ! 0x00000000, 0x01010040, 0x00010040, 0x41010000,
  1003. ! 0x40010000, 0x01000000, 0x41010040, 0x40000000,
  1004. ! 0x40010040, 0x41000000, 0x01000000, 0x41010040,
  1005. ! 0x00010000, 0x01000040, 0x41000040, 0x00010040,
  1006. ! 0x01000040, 0x00000000, 0x41010000, 0x40000040,
  1007. ! 0x41000000, 0x40010040, 0x00000040, 0x01010000,
  1008.   /* nibble 3 */
  1009. ! 0x00100402, 0x04000400, 0x00000002, 0x04100402,
  1010. ! 0x00000000, 0x04100000, 0x04000402, 0x00100002,
  1011. ! 0x04100400, 0x04000002, 0x04000000, 0x00000402,
  1012. ! 0x04000002, 0x00100402, 0x00100000, 0x04000000,
  1013. ! 0x04100002, 0x00100400, 0x00000400, 0x00000002,
  1014. ! 0x00100400, 0x04000402, 0x04100000, 0x00000400,
  1015. ! 0x00000402, 0x00000000, 0x00100002, 0x04100400,
  1016. ! 0x04000400, 0x04100002, 0x04100402, 0x00100000,
  1017. ! 0x04100002, 0x00000402, 0x00100000, 0x04000002,
  1018. ! 0x00100400, 0x04000400, 0x00000002, 0x04100000,
  1019. ! 0x04000402, 0x00000000, 0x00000400, 0x00100002,
  1020. ! 0x00000000, 0x04100002, 0x04100400, 0x00000400,
  1021. ! 0x04000000, 0x04100402, 0x00100402, 0x00100000,
  1022. ! 0x04100402, 0x00000002, 0x04000400, 0x00100402,
  1023. ! 0x00100002, 0x00100400, 0x04100000, 0x04000402,
  1024. ! 0x00000402, 0x04000000, 0x04000002, 0x04100400,
  1025.   /* nibble 4 */
  1026. ! 0x02000000, 0x00004000, 0x00000100, 0x02004108,
  1027. ! 0x02004008, 0x02000100, 0x00004108, 0x02004000,
  1028. ! 0x00004000, 0x00000008, 0x02000008, 0x00004100,
  1029. ! 0x02000108, 0x02004008, 0x02004100, 0x00000000,
  1030. ! 0x00004100, 0x02000000, 0x00004008, 0x00000108,
  1031. ! 0x02000100, 0x00004108, 0x00000000, 0x02000008,
  1032. ! 0x00000008, 0x02000108, 0x02004108, 0x00004008,
  1033. ! 0x02004000, 0x00000100, 0x00000108, 0x02004100,
  1034. ! 0x02004100, 0x02000108, 0x00004008, 0x02004000,
  1035. ! 0x00004000, 0x00000008, 0x02000008, 0x02000100,
  1036. ! 0x02000000, 0x00004100, 0x02004108, 0x00000000,
  1037. ! 0x00004108, 0x02000000, 0x00000100, 0x00004008,
  1038. ! 0x02000108, 0x00000100, 0x00000000, 0x02004108,
  1039. ! 0x02004008, 0x02004100, 0x00000108, 0x00004000,
  1040. ! 0x00004100, 0x02004008, 0x02000100, 0x00000108,
  1041. ! 0x00000008, 0x00004108, 0x02004000, 0x02000008,
  1042.   /* nibble 5 */
  1043. ! 0x20000010, 0x00080010, 0x00000000, 0x20080800,
  1044. ! 0x00080010, 0x00000800, 0x20000810, 0x00080000,
  1045. ! 0x00000810, 0x20080810, 0x00080800, 0x20000000,
  1046. ! 0x20000800, 0x20000010, 0x20080000, 0x00080810,
  1047. ! 0x00080000, 0x20000810, 0x20080010, 0x00000000,
  1048. ! 0x00000800, 0x00000010, 0x20080800, 0x20080010,
  1049. ! 0x20080810, 0x20080000, 0x20000000, 0x00000810,
  1050. ! 0x00000010, 0x00080800, 0x00080810, 0x20000800,
  1051. ! 0x00000810, 0x20000000, 0x20000800, 0x00080810,
  1052. ! 0x20080800, 0x00080010, 0x00000000, 0x20000800,
  1053. ! 0x20000000, 0x00000800, 0x20080010, 0x00080000,
  1054. ! 0x00080010, 0x20080810, 0x00080800, 0x00000010,
  1055. ! 0x20080810, 0x00080800, 0x00080000, 0x20000810,
  1056. ! 0x20000010, 0x20080000, 0x00080810, 0x00000000,
  1057. ! 0x00000800, 0x20000010, 0x20000810, 0x20080800,
  1058. ! 0x20080000, 0x00000810, 0x00000010, 0x20080010,
  1059.   /* nibble 6 */
  1060. ! 0x00001000, 0x00000080, 0x00400080, 0x00400001,
  1061. ! 0x00401081, 0x00001001, 0x00001080, 0x00000000,
  1062. ! 0x00400000, 0x00400081, 0x00000081, 0x00401000,
  1063. ! 0x00000001, 0x00401080, 0x00401000, 0x00000081,
  1064. ! 0x00400081, 0x00001000, 0x00001001, 0x00401081,
  1065. ! 0x00000000, 0x00400080, 0x00400001, 0x00001080,
  1066. ! 0x00401001, 0x00001081, 0x00401080, 0x00000001,
  1067. ! 0x00001081, 0x00401001, 0x00000080, 0x00400000,
  1068. ! 0x00001081, 0x00401000, 0x00401001, 0x00000081,
  1069. ! 0x00001000, 0x00000080, 0x00400000, 0x00401001,
  1070. ! 0x00400081, 0x00001081, 0x00001080, 0x00000000,
  1071. ! 0x00000080, 0x00400001, 0x00000001, 0x00400080,
  1072. ! 0x00000000, 0x00400081, 0x00400080, 0x00001080,
  1073. ! 0x00000081, 0x00001000, 0x00401081, 0x00400000,
  1074. ! 0x00401080, 0x00000001, 0x00001001, 0x00401081,
  1075. ! 0x00400001, 0x00401080, 0x00401000, 0x00001001,
  1076.   /* nibble 7 */
  1077. ! 0x08200020, 0x08208000, 0x00008020, 0x00000000,
  1078. ! 0x08008000, 0x00200020, 0x08200000, 0x08208020,
  1079. ! 0x00000020, 0x08000000, 0x00208000, 0x00008020,
  1080. ! 0x00208020, 0x08008020, 0x08000020, 0x08200000,
  1081. ! 0x00008000, 0x00208020, 0x00200020, 0x08008000,
  1082. ! 0x08208020, 0x08000020, 0x00000000, 0x00208000,
  1083. ! 0x08000000, 0x00200000, 0x08008020, 0x08200020,
  1084. ! 0x00200000, 0x00008000, 0x08208000, 0x00000020,
  1085. ! 0x00200000, 0x00008000, 0x08000020, 0x08208020,
  1086. ! 0x00008020, 0x08000000, 0x00000000, 0x00208000,
  1087. ! 0x08200020, 0x08008020, 0x08008000, 0x00200020,
  1088. ! 0x08208000, 0x00000020, 0x00200020, 0x08008000,
  1089. ! 0x08208020, 0x00200000, 0x08200000, 0x08000020,
  1090. ! 0x00208000, 0x00008020, 0x08008020, 0x08200000,
  1091. ! 0x00000020, 0x08208000, 0x00208020, 0x00000000,
  1092. ! 0x08000000, 0x08200020, 0x00008000, 0x00208020};
  1093.   static ulong skb[8][64]={
  1094.   /* for C bits (numbered as per FIPS 46) 1 2 3 4 5 6 */
  1095.   0x00000000,0x00000010,0x20000000,0x20000010,
  1096. ***************
  1097. *** 395,406 ****
  1098.    ******************************************************************/
  1099.   
  1100.   #define D_ENCRYPT(L,R,S)    \
  1101. !     t=(R<<1)|(R>>31); \
  1102. !     v=(t^(t>>16)); \
  1103.       u=(v&E0); \
  1104.       v=(v&E1); \
  1105. !     u=(u^(u<<16))^t^s[S  ]; \
  1106. !     t=(v^(v<<16))^t^s[S+1]; \
  1107.       t=(t>>4)|(t<<28); \
  1108.       L^=    SPtrans[1][(t    )&0x3f]| \
  1109.           SPtrans[3][(t>> 8)&0x3f]| \
  1110. --- 388,398 ----
  1111.    ******************************************************************/
  1112.   
  1113.   #define D_ENCRYPT(L,R,S)    \
  1114. !     v=(R^(R>>16)); \
  1115.       u=(v&E0); \
  1116.       v=(v&E1); \
  1117. !     u=(u^(u<<16))^R^s[S  ]; \
  1118. !     t=(v^(v<<16))^R^s[S+1]; \
  1119.       t=(t>>4)|(t<<28); \
  1120.       L^=    SPtrans[1][(t    )&0x3f]| \
  1121.           SPtrans[3][(t>> 8)&0x3f]| \
  1122. ***************
  1123. *** 528,536 ****
  1124.           l=r;
  1125.           r=t;
  1126.           }
  1127. !     t=l;
  1128. !     l=r;
  1129. !     r=t;
  1130.       PERM_OP(r,l,t, 1,0x55555555);
  1131.       PERM_OP(l,r,t, 8,0x00ff00ff);
  1132.       PERM_OP(r,l,t, 2,0x33333333);
  1133. --- 520,529 ----
  1134.           l=r;
  1135.           r=t;
  1136.           }
  1137. !     t=r;
  1138. !     r=(l>>1)|(l<<31);
  1139. !     l=(t>>1)|(t<<31);
  1140. ! 
  1141.       PERM_OP(r,l,t, 1,0x55555555);
  1142.       PERM_OP(l,r,t, 8,0x00ff00ff);
  1143.       PERM_OP(r,l,t, 2,0x33333333);
  1144. diff -r -c old/makefile new/makefile
  1145. *** old/makefile    Mon Apr 13 10:05:23 1992
  1146. --- new/makefile    Mon Apr 13 13:04:38 1992
  1147. ***************
  1148. *** 5,19 ****
  1149.   
  1150.   OBJS=    cbc_cksum.o cbc_encrypt.o ecb_encrypt.o pcbc_encrypt.o \
  1151.       quad_cksum.o random_key.o read_password.o set_key.o string_to_key.o \
  1152.       enc_read.o enc_write.o fcrypt.o
  1153.   
  1154. ! GENERAL=COPYING FILES INSTALLATION Imakefile README VERSION makefile times
  1155.   DES=    des.c des.man
  1156.   TESTING=destest.c speed.c rpw.c
  1157.   LIBDES=    des_crypt.man des.h cbc_cksum.c cbc_encrypt.c ecb_encrypt.c \
  1158.       enc_read.c enc_write.c pcbc_encrypt.c quad_cksum.c random_key.c \
  1159.       read_password.c set_key.c string_to_key.c fcrypt.c des_local.h \
  1160. !     podd.h sk.h sp.h
  1161.   PERL=    des.pl testdes.pl doIP doPC1 doPC2 PC1 PC2 shifts.pl
  1162.   
  1163.   ALL=    $(GENERAL) $(DES) $(TESTING) $(LIBDES) $(PERL)
  1164. --- 5,27 ----
  1165.   
  1166. + LIBDIR=/usr/local/lib
  1167. + BINDIR=/usr/local/bin
  1168. + INCDIR=/usr/include
  1169. + MANDIR=/usr/local/man
  1170. + MAN1=1
  1171. + MAN3=3
  1172. + 
  1173.   OBJS=    cbc_cksum.o cbc_encrypt.o ecb_encrypt.o pcbc_encrypt.o \
  1174.       quad_cksum.o random_key.o read_password.o set_key.o string_to_key.o \
  1175.       enc_read.o enc_write.o fcrypt.o
  1176.   
  1177. ! GENERAL=COPYING FILES INSTALLATION Imakefile README VERSION makefile times \
  1178. !     vms.com
  1179.   DES=    des.c des.man
  1180.   TESTING=destest.c speed.c rpw.c
  1181.   LIBDES=    des_crypt.man des.h cbc_cksum.c cbc_encrypt.c ecb_encrypt.c \
  1182.       enc_read.c enc_write.c pcbc_encrypt.c quad_cksum.c random_key.c \
  1183.       read_password.c set_key.c string_to_key.c fcrypt.c des_local.h \
  1184. !     podd.h sk.h spr.h
  1185.   PERL=    des.pl testdes.pl doIP doPC1 doPC2 PC1 PC2 shifts.pl
  1186.   
  1187.   ALL=    $(GENERAL) $(DES) $(TESTING) $(LIBDES) $(PERL)
  1188. ***************
  1189. *** 25,31 ****
  1190.   $(LIB):    $(OBJS)
  1191.       /bin/rm -f $(LIB)
  1192.       ar cr $(LIB) $(OBJS)
  1193. !     ranlib libdes.a
  1194.   
  1195.   destest: destest.o libdes.a
  1196.       $(CC) $(CFLAGS) -o destest destest.o libdes.a
  1197. --- 33,41 ----
  1198.   $(LIB):    $(OBJS)
  1199.       /bin/rm -f $(LIB)
  1200.       ar cr $(LIB) $(OBJS)
  1201. !     -if test -s /bin/ranlib; then /bin/ranlib $(LIB); \
  1202. !     else if test -s /usr/bin/ranlib; then /usr/bin/ranlib $(LIB); \
  1203. !     else exit 0; fi; fi
  1204.   
  1205.   destest: destest.o libdes.a
  1206.       $(CC) $(CFLAGS) -o destest destest.o libdes.a
  1207. ***************
  1208. *** 47,49 ****
  1209. --- 57,71 ----
  1210.   
  1211.   clean:
  1212.       /bin/rm -f *.o rpw destest des speed $(LIB)
  1213. + 
  1214. + install: $(LIB) des
  1215. +     cp $(LIB) $(LIBDIR)/$(LIB)
  1216. +     chmod 644 $(LIBDIR)/$(LIB)
  1217. +     cp des $(BINDIR)/des
  1218. +     chmod 711 $(BINDIR)/des
  1219. +     cp des_crypt.man $(MANDIR)/man$(MAN3)/des_crypt.$(MAN3)
  1220. +     chmod 644 $(MANDIR)/man$(MAN3)/des_crypt.$(MAN3)
  1221. +     cp des.man $(MANDIR)/man$(MAN1)/des.$(MAN1)
  1222. +     chmod 644 $(MANDIR)/man$(MAN1)/des.$(MAN1)
  1223. +     cp des.h $(INCDIR)/des.h
  1224. +     chmod 644 $(INCDIR)/des.h
  1225. diff -r -c old/read_password.c new/read_password.c
  1226. *** old/read_password.c    Mon Apr 13 10:05:24 1992
  1227. --- new/read_password.c    Wed Apr  8 10:01:34 1992
  1228. ***************
  1229. *** 1,11 ****
  1230.   /* read_password.c */
  1231.   /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  1232.   #include "des_local.h"
  1233.   #include <string.h>
  1234.   #include <signal.h>
  1235.   #include <sgtty.h>
  1236.   #include <sys/ioctl.h>
  1237. ! #include <setjmp.h>
  1238.   
  1239.   static int read_pw();
  1240.   static void recsig();
  1241. --- 1,22 ----
  1242.   /* read_password.c */
  1243.   /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  1244. + /* 06-Apr-92 Luke Brennan    Support for VMS */
  1245.   #include "des_local.h"
  1246.   #include <string.h>
  1247.   #include <signal.h>
  1248. + #include <setjmp.h>
  1249. + #ifndef VMS
  1250.   #include <sgtty.h>
  1251.   #include <sys/ioctl.h>
  1252. ! #else /* VMS */
  1253. ! truct sgttyb {
  1254. !     unsigned char class, ttype;
  1255. !     unsigned short pgwid;
  1256. !     unsigned ttchr : 24;
  1257. !     unsigned char pglen;
  1258. !     unsigned int xchar;
  1259. !     };
  1260. ! #endif
  1261.   
  1262.   static int read_pw();
  1263.   static void recsig();
  1264. ***************
  1265. *** 70,77 ****
  1266. --- 81,90 ----
  1267.   
  1268.       if ((tty=fopen("/dev/tty","r")) == NULL)
  1269.           tty=stdin;
  1270. + #ifdef TIOCGETP
  1271.       if (ioctl(fileno(tty),TIOCGETP,(char *)&tty_orig) == -1)
  1272.           return(-1);
  1273. + #endif
  1274.       bcopy(&(tty_orig),&(tty_new),sizeof(tty_orig));
  1275.       if (setjmp(save))
  1276.           {
  1277. ***************
  1278. *** 81,88 ****
  1279. --- 94,103 ----
  1280.       pushsig();
  1281.       ps=1;
  1282.       tty_new.sg_flags &= ~ECHO;
  1283. + #ifdef TIOCSETP
  1284.       if (ioctl(fileno(tty),TIOCSETP,(char *)&tty_new) == -1)
  1285.           return(-1);
  1286. + #endif
  1287.       ps=2;
  1288.   
  1289.       while (!ok)
  1290. ***************
  1291. *** 120,126 ****
  1292. --- 135,143 ----
  1293.   error:
  1294.       fprintf(stderr,"\n");
  1295.       /* What can we do if there is an error? */
  1296. + #ifdef TIOCSETP
  1297.       if (ps >= 2) ioctl(fileno(tty),TIOCSETP,(char *)&tty_orig);
  1298. + #endif
  1299.       if (ps >= 1) popsig();
  1300.       if (stdin != tty) fclose(tty);
  1301.       return(!ok);
  1302. Only in old: sp.h
  1303. diff -r -c old/speed.c new/speed.c
  1304. *** old/speed.c    Mon Apr 13 10:05:25 1992
  1305. --- new/speed.c    Mon Apr 13 12:29:31 1992
  1306. ***************
  1307. *** 1,25 ****
  1308.   /* speed.c */
  1309.   /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  1310.   #include <stdio.h>
  1311.   #include <signal.h>
  1312.   #include <sys/types.h>
  1313.   #include <sys/times.h>
  1314.   #include "des.h"
  1315.   
  1316.   /* The following if from times(3) man page.  It may need to be changed */
  1317.   #define HZ    60.0
  1318.   
  1319.   #define BUFSIZE    (1024*8)
  1320. - 
  1321.   long run=0;
  1322. - int sig_done() { run=0; }
  1323.   
  1324.   main(argc,argv)
  1325.   int argc;
  1326.   char *argv[];
  1327.       {
  1328. !     struct tms tstart,tend;
  1329. !     int count;
  1330.       FILE *in,*out,*std;
  1331.       static unsigned char buf[BUFSIZE];
  1332.       static des_cblock key={0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0};
  1333. --- 1,101 ----
  1334.   /* speed.c */
  1335.   /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  1336. + /* 06-Apr-92 Luke Brennan    Support for VMS and add extra signal calls */
  1337. + 
  1338. + #define TIMES
  1339. + 
  1340.   #include <stdio.h>
  1341.   #include <signal.h>
  1342. + #undef SIGALRM
  1343. + #ifndef VMS
  1344. + #include <time.h>
  1345.   #include <sys/types.h>
  1346.   #include <sys/times.h>
  1347. + #else /* VMS */
  1348. + #include <types.h>
  1349. + struct tms {
  1350. +     time_t tms_utime;
  1351. +     time_t tms_stime;
  1352. +     time_t tms_uchild;          /* I dunno...  */
  1353. +     time_t tms_uchildsys;       /* so these names are a guess :-) */
  1354. +     }
  1355. + #endif
  1356. + #ifndef TIMES
  1357. + #include <sys/timeb.h>
  1358. + #endif
  1359.   #include "des.h"
  1360.   
  1361.   /* The following if from times(3) man page.  It may need to be changed */
  1362. + #ifndef CLK_TCK
  1363. + #ifndef VMS
  1364.   #define HZ    60.0
  1365. + #else /* VMS */
  1366. + #define HZ    100.0
  1367. + #endif
  1368. + #else /* CLK_TCK */
  1369. + #define HZ ((double)CLK_TCK)
  1370. + #endif
  1371.   
  1372.   #define BUFSIZE    (1024*8)
  1373.   long run=0;
  1374.   
  1375. + #ifdef SIGALRM
  1376. + #ifdef __STDC__
  1377. + #define SIGRETTYPE void
  1378. + #else
  1379. + #define SIGRETTYPE int
  1380. + #endif 
  1381. + 
  1382. + SIGRETTYPE sig_done(sig)
  1383. + int sig;
  1384. +     {
  1385. +     signal(SIGALRM,sig_done);
  1386. +     run=0;
  1387. +     }
  1388. + #endif
  1389. + 
  1390. + #define START    0
  1391. + #define STOP    1
  1392. + 
  1393. + double Time(s)
  1394. + int s;
  1395. +     {
  1396. + #ifdef TIMES
  1397. +     static struct tms tstart,tend;
  1398. + 
  1399. +     if (s == START)
  1400. +         {
  1401. +         times(&tstart);
  1402. +         return(0);
  1403. +         }
  1404. +     else
  1405. +         {
  1406. +         times(&tend);
  1407. +         return(((double)(tend.tms_utime-tstart.tms_utime))/HZ);
  1408. +         }
  1409. + #else /* !times() */
  1410. +     static struct timeb tstart,tend;
  1411. +     long i;
  1412. + 
  1413. +     if (s == START)
  1414. +         {
  1415. +         ftime(&tstart);
  1416. +         return(0);
  1417. +         }
  1418. +     else
  1419. +         {
  1420. +         ftime(&tend);
  1421. +         i=(long)tend.time-(long)tstart.time;
  1422. +         return(((double)(tend.time-tstart.time))+i/1000.0);
  1423. +         }
  1424. + #endif
  1425. +     }
  1426. + 
  1427.   main(argc,argv)
  1428.   int argc;
  1429.   char *argv[];
  1430.       {
  1431. !     long count;
  1432.       FILE *in,*out,*std;
  1433.       static unsigned char buf[BUFSIZE];
  1434.       static des_cblock key={0x12,0x34,0x56,0x78,0x9a,0xbc,0xde,0xf0};
  1435. ***************
  1436. *** 26,78 ****
  1437.       des_key_schedule sch;
  1438.       int i,j,k,enc,cat=0,catfd;
  1439.       double d,a,b,c;
  1440.   
  1441. !     signal(SIGALRM,sig_done);
  1442.   
  1443.       printf("Doing set_key for 60 seconds\n");
  1444.       alarm(60);
  1445. !     times(&tstart);
  1446. !     for (count=0,run=1; run; count++)
  1447.           des_set_key(key,sch);
  1448. !     times(&tend);
  1449. !     d=((double)(tend.tms_utime-tstart.tms_utime))/HZ;
  1450. !     printf("%d set_key's in %.2f second\n",
  1451. !         count,d);
  1452. !     a=((double)count)/d;
  1453.   
  1454.       printf("Doing des_ecb_encrypt's for 60 seconds\n");
  1455.       alarm(60);
  1456. !     times(&tstart);
  1457. !     for (count=0,run=1; run; count++)
  1458.           des_ecb_encrypt(buf,buf,&(sch[0]),DES_ENCRYPT);
  1459. !     times(&tend);
  1460. !     d=((double)(tend.tms_utime-tstart.tms_utime))/HZ;
  1461. !     printf("%d des_ecb_encrypt's in %.2f second\n",
  1462. !         count,d);
  1463. !     b=((double)count*8)/d;
  1464.   
  1465.       printf("Doing des_cbc_encrypt on %d byte blocks for 60 seconds\n",
  1466.           BUFSIZE);
  1467.       alarm(60);
  1468. !     times(&tstart);
  1469. !     for (count=0,run=1; run; count++)
  1470.           des_cbc_encrypt(buf,buf,BUFSIZE,&(sch[0]),
  1471.           &(key[0]),DES_ENCRYPT);
  1472. !     times(&tend);
  1473. !     d=((double)(tend.tms_utime-tstart.tms_utime))/HZ;
  1474.       printf("%d des_cbc_encrypt's of %d byte blocks in %.2f second\n",
  1475.           count,BUFSIZE,d);
  1476. !     c=((double)count*BUFSIZE)/d;
  1477.   
  1478.       printf("Doing crypt for 60 seconds\n");
  1479.       alarm(60);
  1480. !     times(&tstart);
  1481. !     for (count=0,run=1; run; count++)
  1482.           crypt("testing1","ef");
  1483. !     times(&tend);
  1484. !     d=((double)(tend.tms_utime-tstart.tms_utime))/HZ;
  1485.       printf("%d crypts in %.2f second\n",count,d);
  1486. !     d=((double)count)/d;
  1487.   
  1488.       printf("set_key       per sec = %12.2f\n",a);
  1489.       printf("DES ecb bytes per sec = %12.2f\n",b);
  1490. --- 102,188 ----
  1491.       des_key_schedule sch;
  1492.       int i,j,k,enc,cat=0,catfd;
  1493.       double d,a,b,c;
  1494. +     long ca,cb,cc,cd;
  1495.   
  1496. ! #ifndef TIMES
  1497. !     printf("To get the most acurate results, try to run this\n");
  1498. !     printf("program when this computer is idle.\n");
  1499. ! #endif
  1500.   
  1501. + #ifndef SIGALRM
  1502. +     printf("First calculate aprox speed...\n");
  1503. +     des_set_key(key,sch);
  1504. +     count=10;
  1505. +     do    {
  1506. +         count*=2;
  1507. +         Time(START);
  1508. +         for (i=count; i; i--)
  1509. +             des_ecb_encrypt(buf,buf,&(sch[0]),DES_ENCRYPT);
  1510. +         d=Time(STOP);
  1511. +         } while (d <3);
  1512. +     ca=count;
  1513. +     cb=count*10;
  1514. +     cc=count*10*8/BUFSIZE+1;
  1515. +     cd=count/20+1;
  1516. +     printf("Doing set_key's %d times\n",ca);
  1517. + #define COND(d)    (count != (d))
  1518. + #define COUNT(d) (d)
  1519. + #else
  1520. + #define COND(c)    (run)
  1521. + #define COUNT(d) (count)
  1522. +     signal(SIGALRM,sig_done);
  1523.       printf("Doing set_key for 60 seconds\n");
  1524.       alarm(60);
  1525. ! #endif
  1526. ! 
  1527. !     Time(START);
  1528. !     for (count=0,run=1; COND(ca); count++)
  1529.           des_set_key(key,sch);
  1530. !     d=Time(STOP);
  1531. !     printf("%d set_key's in %.2f seconds\n",count,d);
  1532. !     a=((double)COUNT(ca))/d;
  1533.   
  1534. + #ifdef SIGALRM
  1535.       printf("Doing des_ecb_encrypt's for 60 seconds\n");
  1536.       alarm(60);
  1537. ! #else
  1538. !     printf("Doing %d des_ecb_encrypt's\n",cb);
  1539. ! #endif
  1540. !     Time(START);
  1541. !     for (count=0,run=1; COND(cb); count++)
  1542.           des_ecb_encrypt(buf,buf,&(sch[0]),DES_ENCRYPT);
  1543. !     d=Time(STOP);
  1544. !     printf("%d des_ecb_encrypt's in %.2f second\n",count,d);
  1545. !     b=((double)COUNT(cb)*8)/d;
  1546.   
  1547. + #ifdef SIGALRM
  1548.       printf("Doing des_cbc_encrypt on %d byte blocks for 60 seconds\n",
  1549.           BUFSIZE);
  1550.       alarm(60);
  1551. ! #else
  1552. !     printf("Doing %d des_cbc_encrypt's on %d byte blocks\n",cc,BUFSIZE);
  1553. ! #endif
  1554. !     Time(START);
  1555. !     for (count=0,run=1; COND(cc); count++)
  1556.           des_cbc_encrypt(buf,buf,BUFSIZE,&(sch[0]),
  1557.           &(key[0]),DES_ENCRYPT);
  1558. !     d=Time(STOP);
  1559.       printf("%d des_cbc_encrypt's of %d byte blocks in %.2f second\n",
  1560.           count,BUFSIZE,d);
  1561. !     c=((double)COUNT(cc)*BUFSIZE)/d;
  1562.   
  1563. + #ifdef SIGALRM
  1564.       printf("Doing crypt for 60 seconds\n");
  1565.       alarm(60);
  1566. ! #else
  1567. !     printf("Doing %d crypt's\n",cd);
  1568. ! #endif
  1569. !     Time(START);
  1570. !     for (count=0,run=1; COND(cd); count++)
  1571.           crypt("testing1","ef");
  1572. !     d=Time(STOP);
  1573.       printf("%d crypts in %.2f second\n",count,d);
  1574. !     d=((double)COUNT(cd))/d;
  1575.   
  1576.       printf("set_key       per sec = %12.2f\n",a);
  1577.       printf("DES ecb bytes per sec = %12.2f\n",b);
  1578. diff -r -c old/spr.h new/spr.h
  1579. *** old/spr.h    Mon Apr 13 12:57:36 1992
  1580. --- new/spr.h    Mon Apr 13 09:47:55 1992
  1581. ***************
  1582. *** 0 ****
  1583. --- 1,146 ----
  1584. + /* sp.h */
  1585. + /* Copyright (C) 1992 Eric Young - see COPYING for more details */
  1586. + static unsigned long des_SPtrans[8][64]={
  1587. + /* nibble 0 */
  1588. + 0x00820200, 0x00020000, 0x80800000, 0x80820200,
  1589. + 0x00800000, 0x80020200, 0x80020000, 0x80800000,
  1590. + 0x80020200, 0x00820200, 0x00820000, 0x80000200,
  1591. + 0x80800200, 0x00800000, 0x00000000, 0x80020000,
  1592. + 0x00020000, 0x80000000, 0x00800200, 0x00020200,
  1593. + 0x80820200, 0x00820000, 0x80000200, 0x00800200,
  1594. + 0x80000000, 0x00000200, 0x00020200, 0x80820000,
  1595. + 0x00000200, 0x80800200, 0x80820000, 0x00000000,
  1596. + 0x00000000, 0x80820200, 0x00800200, 0x80020000,
  1597. + 0x00820200, 0x00020000, 0x80000200, 0x00800200,
  1598. + 0x80820000, 0x00000200, 0x00020200, 0x80800000,
  1599. + 0x80020200, 0x80000000, 0x80800000, 0x00820000,
  1600. + 0x80820200, 0x00020200, 0x00820000, 0x80800200,
  1601. + 0x00800000, 0x80000200, 0x80020000, 0x00000000,
  1602. + 0x00020000, 0x00800000, 0x80800200, 0x00820200,
  1603. + 0x80000000, 0x80820000, 0x00000200, 0x80020200,
  1604. + 
  1605. + /* nibble 1 */
  1606. + 0x10042004, 0x00000000, 0x00042000, 0x10040000,
  1607. + 0x10000004, 0x00002004, 0x10002000, 0x00042000,
  1608. + 0x00002000, 0x10040004, 0x00000004, 0x10002000,
  1609. + 0x00040004, 0x10042000, 0x10040000, 0x00000004,
  1610. + 0x00040000, 0x10002004, 0x10040004, 0x00002000,
  1611. + 0x00042004, 0x10000000, 0x00000000, 0x00040004,
  1612. + 0x10002004, 0x00042004, 0x10042000, 0x10000004,
  1613. + 0x10000000, 0x00040000, 0x00002004, 0x10042004,
  1614. + 0x00040004, 0x10042000, 0x10002000, 0x00042004,
  1615. + 0x10042004, 0x00040004, 0x10000004, 0x00000000,
  1616. + 0x10000000, 0x00002004, 0x00040000, 0x10040004,
  1617. + 0x00002000, 0x10000000, 0x00042004, 0x10002004,
  1618. + 0x10042000, 0x00002000, 0x00000000, 0x10000004,
  1619. + 0x00000004, 0x10042004, 0x00042000, 0x10040000,
  1620. + 0x10040004, 0x00040000, 0x00002004, 0x10002000,
  1621. + 0x10002004, 0x00000004, 0x10040000, 0x00042000,
  1622. + 
  1623. + /* nibble 2 */
  1624. + 0x41000000, 0x01010040, 0x00000040, 0x41000040,
  1625. + 0x40010000, 0x01000000, 0x41000040, 0x00010040,
  1626. + 0x01000040, 0x00010000, 0x01010000, 0x40000000,
  1627. + 0x41010040, 0x40000040, 0x40000000, 0x41010000,
  1628. + 0x00000000, 0x40010000, 0x01010040, 0x00000040,
  1629. + 0x40000040, 0x41010040, 0x00010000, 0x41000000,
  1630. + 0x41010000, 0x01000040, 0x40010040, 0x01010000,
  1631. + 0x00010040, 0x00000000, 0x01000000, 0x40010040,
  1632. + 0x01010040, 0x00000040, 0x40000000, 0x00010000,
  1633. + 0x40000040, 0x40010000, 0x01010000, 0x41000040,
  1634. + 0x00000000, 0x01010040, 0x00010040, 0x41010000,
  1635. + 0x40010000, 0x01000000, 0x41010040, 0x40000000,
  1636. + 0x40010040, 0x41000000, 0x01000000, 0x41010040,
  1637. + 0x00010000, 0x01000040, 0x41000040, 0x00010040,
  1638. + 0x01000040, 0x00000000, 0x41010000, 0x40000040,
  1639. + 0x41000000, 0x40010040, 0x00000040, 0x01010000,
  1640. + 
  1641. + /* nibble 3 */
  1642. + 0x00100402, 0x04000400, 0x00000002, 0x04100402,
  1643. + 0x00000000, 0x04100000, 0x04000402, 0x00100002,
  1644. + 0x04100400, 0x04000002, 0x04000000, 0x00000402,
  1645. + 0x04000002, 0x00100402, 0x00100000, 0x04000000,
  1646. + 0x04100002, 0x00100400, 0x00000400, 0x00000002,
  1647. + 0x00100400, 0x04000402, 0x04100000, 0x00000400,
  1648. + 0x00000402, 0x00000000, 0x00100002, 0x04100400,
  1649. + 0x04000400, 0x04100002, 0x04100402, 0x00100000,
  1650. + 0x04100002, 0x00000402, 0x00100000, 0x04000002,
  1651. + 0x00100400, 0x04000400, 0x00000002, 0x04100000,
  1652. + 0x04000402, 0x00000000, 0x00000400, 0x00100002,
  1653. + 0x00000000, 0x04100002, 0x04100400, 0x00000400,
  1654. + 0x04000000, 0x04100402, 0x00100402, 0x00100000,
  1655. + 0x04100402, 0x00000002, 0x04000400, 0x00100402,
  1656. + 0x00100002, 0x00100400, 0x04100000, 0x04000402,
  1657. + 0x00000402, 0x04000000, 0x04000002, 0x04100400,
  1658. + 
  1659. + /* nibble 4 */
  1660. + 0x02000000, 0x00004000, 0x00000100, 0x02004108,
  1661. + 0x02004008, 0x02000100, 0x00004108, 0x02004000,
  1662. + 0x00004000, 0x00000008, 0x02000008, 0x00004100,
  1663. + 0x02000108, 0x02004008, 0x02004100, 0x00000000,
  1664. + 0x00004100, 0x02000000, 0x00004008, 0x00000108,
  1665. + 0x02000100, 0x00004108, 0x00000000, 0x02000008,
  1666. + 0x00000008, 0x02000108, 0x02004108, 0x00004008,
  1667. + 0x02004000, 0x00000100, 0x00000108, 0x02004100,
  1668. + 0x02004100, 0x02000108, 0x00004008, 0x02004000,
  1669. + 0x00004000, 0x00000008, 0x02000008, 0x02000100,
  1670. + 0x02000000, 0x00004100, 0x02004108, 0x00000000,
  1671. + 0x00004108, 0x02000000, 0x00000100, 0x00004008,
  1672. + 0x02000108, 0x00000100, 0x00000000, 0x02004108,
  1673. + 0x02004008, 0x02004100, 0x00000108, 0x00004000,
  1674. + 0x00004100, 0x02004008, 0x02000100, 0x00000108,
  1675. + 0x00000008, 0x00004108, 0x02004000, 0x02000008,
  1676. + 
  1677. + /* nibble 5 */
  1678. + 0x20000010, 0x00080010, 0x00000000, 0x20080800,
  1679. + 0x00080010, 0x00000800, 0x20000810, 0x00080000,
  1680. + 0x00000810, 0x20080810, 0x00080800, 0x20000000,
  1681. + 0x20000800, 0x20000010, 0x20080000, 0x00080810,
  1682. + 0x00080000, 0x20000810, 0x20080010, 0x00000000,
  1683. + 0x00000800, 0x00000010, 0x20080800, 0x20080010,
  1684. + 0x20080810, 0x20080000, 0x20000000, 0x00000810,
  1685. + 0x00000010, 0x00080800, 0x00080810, 0x20000800,
  1686. + 0x00000810, 0x20000000, 0x20000800, 0x00080810,
  1687. + 0x20080800, 0x00080010, 0x00000000, 0x20000800,
  1688. + 0x20000000, 0x00000800, 0x20080010, 0x00080000,
  1689. + 0x00080010, 0x20080810, 0x00080800, 0x00000010,
  1690. + 0x20080810, 0x00080800, 0x00080000, 0x20000810,
  1691. + 0x20000010, 0x20080000, 0x00080810, 0x00000000,
  1692. + 0x00000800, 0x20000010, 0x20000810, 0x20080800,
  1693. + 0x20080000, 0x00000810, 0x00000010, 0x20080010,
  1694. + 
  1695. + /* nibble 6 */
  1696. + 0x00001000, 0x00000080, 0x00400080, 0x00400001,
  1697. + 0x00401081, 0x00001001, 0x00001080, 0x00000000,
  1698. + 0x00400000, 0x00400081, 0x00000081, 0x00401000,
  1699. + 0x00000001, 0x00401080, 0x00401000, 0x00000081,
  1700. + 0x00400081, 0x00001000, 0x00001001, 0x00401081,
  1701. + 0x00000000, 0x00400080, 0x00400001, 0x00001080,
  1702. + 0x00401001, 0x00001081, 0x00401080, 0x00000001,
  1703. + 0x00001081, 0x00401001, 0x00000080, 0x00400000,
  1704. + 0x00001081, 0x00401000, 0x00401001, 0x00000081,
  1705. + 0x00001000, 0x00000080, 0x00400000, 0x00401001,
  1706. + 0x00400081, 0x00001081, 0x00001080, 0x00000000,
  1707. + 0x00000080, 0x00400001, 0x00000001, 0x00400080,
  1708. + 0x00000000, 0x00400081, 0x00400080, 0x00001080,
  1709. + 0x00000081, 0x00001000, 0x00401081, 0x00400000,
  1710. + 0x00401080, 0x00000001, 0x00001001, 0x00401081,
  1711. + 0x00400001, 0x00401080, 0x00401000, 0x00001001,
  1712. + 
  1713. + /* nibble 7 */
  1714. + 0x08200020, 0x08208000, 0x00008020, 0x00000000,
  1715. + 0x08008000, 0x00200020, 0x08200000, 0x08208020,
  1716. + 0x00000020, 0x08000000, 0x00208000, 0x00008020,
  1717. + 0x00208020, 0x08008020, 0x08000020, 0x08200000,
  1718. + 0x00008000, 0x00208020, 0x00200020, 0x08008000,
  1719. + 0x08208020, 0x08000020, 0x00000000, 0x00208000,
  1720. + 0x08000000, 0x00200000, 0x08008020, 0x08200020,
  1721. + 0x00200000, 0x00008000, 0x08208000, 0x00000020,
  1722. + 0x00200000, 0x00008000, 0x08000020, 0x08208020,
  1723. + 0x00008020, 0x08000000, 0x00000000, 0x00208000,
  1724. + 0x08200020, 0x08008020, 0x08008000, 0x00200020,
  1725. + 0x08208000, 0x00000020, 0x00200020, 0x08008000,
  1726. + 0x08208020, 0x00200000, 0x08200000, 0x08000020,
  1727. + 0x00208000, 0x00008020, 0x08008020, 0x08200000,
  1728. + 0x00000020, 0x08208000, 0x00208020, 0x00000000,
  1729. + 0x08000000, 0x08200020, 0x00008000, 0x00208020};
  1730. diff -r -c old/times new/times
  1731. *** old/times    Mon Apr 13 10:05:26 1992
  1732. --- new/times    Mon Apr 13 12:56:37 1992
  1733. ***************
  1734. *** 1,4 ****
  1735. --- 1,15 ----
  1736. + New version 1.92 - slight speedup.
  1737. + 
  1738.   sun sparc 2 - gcc2 -O2
  1739. + set_key       per sec =     21559.10
  1740. + DES ecb bytes per sec =    305566.92
  1741. + DES cbc bytes per sec =    303497.50
  1742. + crypt         per sec =      1410.48
  1743. + 
  1744. + 
  1745. + Old version 1.90
  1746. + 
  1747. + sun sparc 2 - gcc2 -O2
  1748.   -rw-r-----  1 eay      wheel       25804 Mar 24 14:16 libdes.a
  1749.   set_key       per sec =     21462.36
  1750.   DES ecb bytes per sec =    289342.72
  1751. ***************
  1752. *** 25,27 ****
  1753. --- 36,47 ----
  1754.   DES ecb bytes per sec =     31061.97
  1755.   DES cbc bytes per sec =     31561.52
  1756.   crypt         per sec =       148.66
  1757. + 
  1758. + From Robert Withrow <witr@rwwa.COM>
  1759. + 386/33 - cc -O
  1760. + -rw-r--r--   1 root     other      32708 Apr  4 14:45 /usr/local/lib/libdes.a
  1761. + set_key       per sec =      5475.44
  1762. + DES ecb bytes per sec =     64527.52
  1763. + DES cbc bytes per sec =     67086.06
  1764. + crypt         per sec =       298.54
  1765. + 
  1766. diff -r -c old/vms.com new/vms.com
  1767. *** old/vms.com    Mon Apr 13 13:05:48 1992
  1768. --- new/vms.com    Wed Apr  8 08:54:51 1992
  1769. ***************
  1770. *** 0 ****
  1771. --- 1,82 ----
  1772. + $! --- VMS.com ---
  1773. + $!
  1774. + $ GoSub defines
  1775. + $ GoSub linker_options
  1776. + $ If (P1 .nes. "")
  1777. + $ Then 
  1778. + $   GoSub 'P1'
  1779. + $ Else
  1780. + $   GoSub lib
  1781. + $   GoSub destest
  1782. + $   GoSub rpw
  1783. + $   GoSub speed
  1784. + $   GoSub des
  1785. + $ EndIF
  1786. + $!
  1787. + $ Exit
  1788. + $!
  1789. + $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1790. + $!
  1791. + $DEFINES:
  1792. + $ LINKOPTS := "VAX_LINKER_OPTIONS.OPT"
  1793. + $!
  1794. + $ OBJS  = "cbc_cksum.obj,cbc_encrypt.obj,ecb_encrypt.obj,pcbc_encrypt.obj," + -
  1795. +           "quad_cksum.obj,random_key.obj,read_password.obj,set_key.obj,"    + -
  1796. +           "string_to_key.obj,enc_read.obj,enc_write.obj,fcrypt.obj"
  1797. + $!
  1798. + $ LIBDES = "cbc_cksum.c,cbc_encrypt.c,ecb_encrypt.c,enc_read.c,"           + -
  1799. +            "enc_write.c,pcbc_encrypt.c,quad_cksum.c,random_key.c,"         + -
  1800. +            "read_password.c,set_key.c,string_to_key.c,fcrypt.c"
  1801. + $ Return
  1802. + $!
  1803. + $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1804. + $!
  1805. + $LINKER_OPTIONS:
  1806. + $ If (f$search(LINKOPTS) .eqs. "")
  1807. + $ Then
  1808. + $   Create 'LINKOPTS'
  1809. + $DECK
  1810. + ! Default system options file to link against the sharable C runtime library
  1811. + !
  1812. + Sys$Share:VAXcRTL.exe/Share
  1813. + $EOD
  1814. + $ EndIF
  1815. + $ Return
  1816. + $!
  1817. + $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1818. + $!
  1819. + $LIB:
  1820. + $ CC 'LIBDES'
  1821. + $ If (f$search("LIBDES.OLB") .nes. "")
  1822. + $ Then Library /Object /Replace libdes 'OBJS'
  1823. + $ Else Library /Create /Object  libdes 'OBJS'
  1824. + $ EndIF
  1825. + $ Return
  1826. + $!
  1827. + $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1828. + $!
  1829. + $DESTEST:
  1830. + $ CC destest
  1831. + $ Link /Exec=destest destest.obj,libdes/LIBRARY,'linkopts'/Option
  1832. + $ Return
  1833. + $!
  1834. + $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1835. + $!
  1836. + $RPW:
  1837. + $ CC rpw
  1838. + $ Link /Exec=rpw  rpw.obj,libdes/LIBRARY,'linkopts'/Option
  1839. + $ Return
  1840. + $!
  1841. + $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1842. + $!
  1843. + $SPEED:
  1844. + $ CC speed
  1845. + $ Link /Exec=speed speed.obj,libdes/LIBRARY,'linkopts'/Option
  1846. + $ Return
  1847. + $!
  1848. + $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  1849. + $!
  1850. + $DES:
  1851. + $ CC des
  1852. + $ Link /Exec=des des.obj,libdes/LIBRARY,'linkopts'/Option
  1853. + $ Return
  1854.  
  1855.  
  1856. exit 0 # Just in case...
  1857.