home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / kit / pch27 < prev    next >
Encoding:
Text File  |  1993-05-04  |  31.5 KB  |  1,172 lines
  1. Newsgroups: comp.sources.unix
  2. From: ram@acri.fr (Raphael Manfredi)
  3. Subject: v26i233: kit - the ultimate mailing kit, Patch27
  4. Sender: unix-sources-moderator@efficacy.home.vix.com
  5. Approved: WhoAmI@efficacy.home.vix.com
  6.  
  7. Submitted-By: ram@acri.fr (Raphael Manfredi)
  8. Posting-Number: Volume 26, Issue 233
  9. Archive-Name: kit/pch27
  10.  
  11. [The latest patch for kit version 2.0 is #28.]
  12.  
  13. System: kit version 2.0
  14. Patch #: 27
  15. Priority: MEDIUM
  16. Subject: updated Copyright dates and my e-mail address
  17. Subject: dependency with cshar not needed any more
  18. Subject: manual page name was mis-spelled BABTAR
  19. Subject: added support for 64 bits architecture (tested on Alpha)
  20. Subject: do not use cshar's makekit any more but use our own archiver
  21. Subject: copyright dates updated
  22. Subject: added support for kit's own archiver variables
  23. Subject: will now skip leading comments in kit parts (when concatenated)
  24. Subject: updated copyright dates
  25. Subject: cshar(1) man page not referenced any more.
  26. Subject: now contains a pointer to some unshar(1) man page
  27. Date: Mon Apr 26 13:22:47 MET DST 1993
  28. From: Raphael Manfredi <ram@eiffel.com>
  29.  
  30. Description:
  31.     Updated Copyright dates and my e-mail address which is now
  32.     <ram@acri.fr>.
  33.  
  34.     Dependency with cshar not needed any more. Kit's own shell archiver
  35.     (written in shell scripts) is now always used. The cshar makekit
  36.     program apparently has a nasty bug which sometimes makes it spit an
  37.     extra empty leading part which then confuses unkit.
  38.  
  39.     Manual page name for badtar was mis-spelled BABTAR.
  40.  
  41.     Added support for 64 bits architecture (tested on Alpha).
  42.  
  43.     Added support for kit's own archiver variables in the 'secure'
  44.     script. Until now, it only understood cshar's variable.
  45.  
  46.     Will now skip leading comments in kit parts (when concatenated), but
  47.     is still looking for "naughty" characters after a leading '>> ' so
  48.     that nobody can defeat this check with a '>> something && command'.
  49.     If that introduces a security hole I am not aware of, please let me
  50.     know.
  51.  
  52.  
  53. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your kit source
  54.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  55.     If you don't have the patch program, apply the following by hand,
  56.     or get patch (version 2.0, latest patchlevel).
  57.  
  58.     After patching:
  59.         Configure -d
  60.         make
  61.         make install
  62.  
  63.     If patch indicates that patchlevel is the wrong version, you may need
  64.     to apply one or more previous patches, or the patch may already
  65.     have been applied.  See the patchlevel.h file to find out what has or
  66.     has not been applied.  In any event, don't continue with the patch.
  67.  
  68.     If you are missing previous patches they can be obtained from me:
  69.  
  70.         Raphael Manfredi <ram@acri.fr>
  71.  
  72.     If you send a mail message of the following form it will greatly speed
  73.     processing:
  74.  
  75.         Subject: Command
  76.         @SH mailpatch PATH kit 2.0 LIST
  77.                ^ note the c
  78.  
  79.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  80.     or in bang notation from some well-known host, and LIST is the number
  81.     of one or more patches you need, separated by spaces, commas, and/or
  82.     hyphens.  Saying 35- says everything from 35 to the end.
  83.  
  84.     To get some more detailed instructions, send me the following mail:
  85.  
  86.         Subject: Command
  87.         @SH mailhelp PATH
  88.  
  89.  
  90. Index: patchlevel.h
  91. Prereq: 26
  92. 2c2
  93. < #define PATCHLEVEL 26
  94. ---
  95. > #define PATCHLEVEL 27
  96.  
  97. Index: des/des.c
  98. Prereq: 2.0.1.2
  99. *** des/des.c.old    1992/01/11 19:15:41
  100. --- des/des.c    1993/04/26 11:18:34
  101. ***************
  102. *** 4,16 ****
  103.    */
  104.   
  105.   /*
  106. !  * $Id: des.c,v 2.0.1.2 92/01/11 19:15:41 ram Exp $
  107.    *
  108.    * $Log: des.c,v $
  109. !  * Revision 2.0.1.2  92/01/11  19:15:41  ram
  110.    * patch11: added declarations for static functions
  111.    * patch11: reported by Monty Solomon <roscom!monty@bu.edu>
  112. !  *
  113.    * Revision 2.0.1.1  91/04/01  15:39:35  ram
  114.    * patch1: created
  115.    * 
  116. --- 4,19 ----
  117.    */
  118.   
  119.   /*
  120. !  * $Id: des.c,v 2.0.1.3 1993/04/26 11:18:34 ram Exp $
  121.    *
  122.    * $Log: des.c,v $
  123. !  * Revision 2.0.1.3  1993/04/26  11:18:34  ram
  124. !  * patch27: added support for 64 bits architecture (tested on Alpha)
  125. !  *
  126. !  * Revision 2.0.1.2  92/01/11  19:15:41  ram
  127.    * patch11: added declarations for static functions
  128.    * patch11: reported by Monty Solomon <roscom!monty@bu.edu>
  129. !  * 
  130.    * Revision 2.0.1.1  91/04/01  15:39:35  ram
  131.    * patch1: created
  132.    * 
  133. ***************
  134. *** 20,31 ****
  135.   
  136.   #include "../config.h"
  137.   
  138.   #if BYTEORDER == 0x1234
  139.   #define LITTLE_ENDIAN
  140.   #endif
  141.   
  142. ! #ifdef    LITTLE_ENDIAN
  143. ! unsigned long byteswap();
  144.   #endif
  145.   
  146.   /* Tables defined in the Data Encryption Standard documents */
  147. --- 23,49 ----
  148.   
  149.   #include "../config.h"
  150.   
  151. + /* Provision for 64 bits machines -> remaps long to int. If the machine is
  152. +  * ILP 64 (Integer, Long and Pointer types on 64 bits), then everything is fine,
  153. +  * since both longs and ints can be used. If the machine is LP 64, then it has
  154. +  * a 32 bits arithmetic and long must be used as an int.
  155. +  */
  156. + #if (BYTEORDER | 0xffff) == 0xffff
  157. + typedef long long_t;            /* 32 bits machines */
  158. + typedef unsigned long ulong_t;
  159.   #if BYTEORDER == 0x1234
  160.   #define LITTLE_ENDIAN
  161.   #endif
  162. + #else
  163. + typedef int long_t;                /* 64 bits, hopefully */
  164. + typedef unsigned int ulong_t;
  165. + #if BYTEORDER & 0x1234ffff
  166. + #define LITTLE_ENDIAN
  167. + #endif
  168. + #endif
  169.   
  170. ! #ifdef LITTLE_ENDIAN
  171. ! ulong_t byteswap();
  172.   #endif
  173.   
  174.   /* Tables defined in the Data Encryption Standard documents */
  175. ***************
  176. *** 166,172 ****
  177.   /* End of DES-defined tables */
  178.   
  179.   /* Lookup tables initialized once only at startup by desinit() */
  180. ! static long (*sp)[64];        /* Combined S and P boxes */
  181.   
  182.   static char (*iperm)[16][8];    /* Initial and final permutations */
  183.   static char (*fperm)[16][8];
  184. --- 184,190 ----
  185.   /* End of DES-defined tables */
  186.   
  187.   /* Lookup tables initialized once only at startup by desinit() */
  188. ! static long_t (*sp)[64];        /* Combined S and P boxes */
  189.   
  190.   static char (*iperm)[16][8];    /* Initial and final permutations */
  191.   static char (*fperm)[16][8];
  192. ***************
  193. *** 187,193 ****
  194.   /* Declare static functions */
  195.   static permute();
  196.   static round();
  197. ! static long f();
  198.   static perminit();
  199.   static int spinit();
  200.   
  201. --- 205,211 ----
  202.   /* Declare static functions */
  203.   static permute();
  204.   static round();
  205. ! static long_t f();
  206.   static perminit();
  207.   static int spinit();
  208.   
  209. ***************
  210. *** 208,214 ****
  211.       }
  212.       desmode = mode;
  213.       
  214. !     if((sp = (long (*)[64])malloc(sizeof(long) * 8 * 64)) == NULL){
  215.           return -1;
  216.       }
  217.       spinit();
  218. --- 226,232 ----
  219.       }
  220.       desmode = mode;
  221.       
  222. !     if((sp = (long_t (*)[64])malloc(sizeof(long_t) * 8 * 64)) == NULL){
  223.           return -1;
  224.       }
  225.       spinit();
  226. ***************
  227. *** 311,318 ****
  228.   char *block;
  229.   {
  230.       register int i;
  231. !     unsigned long work[2];         /* Working data storage */
  232. !     long tmp;
  233.   
  234.       permute(block,iperm,(char *)work);    /* Initial Permutation */
  235.   #ifdef LITTLE_ENDIAN
  236. --- 329,336 ----
  237.   char *block;
  238.   {
  239.       register int i;
  240. !     ulong_t work[2];         /* Working data storage */
  241. !     long_t tmp;
  242.   
  243.       permute(block,iperm,(char *)work);    /* Initial Permutation */
  244.   #ifdef LITTLE_ENDIAN
  245. ***************
  246. *** 340,347 ****
  247.   char *block;
  248.   {
  249.       register int i;
  250. !     unsigned long work[2];    /* Working data storage */
  251. !     long tmp;
  252.   
  253.       permute(block,iperm,(char *)work);    /* Initial permutation */
  254.   
  255. --- 358,365 ----
  256.   char *block;
  257.   {
  258.       register int i;
  259. !     ulong_t work[2];    /* Working data storage */
  260. !     long_t tmp;
  261.   
  262.       permute(block,iperm,(char *)work);    /* Initial permutation */
  263.   
  264. ***************
  265. *** 402,410 ****
  266.   static
  267.   round(num,block)
  268.   int num;                /* i.e. the num-th one     */
  269. ! unsigned long *block;
  270.   {
  271. !     long f();
  272.   
  273.       /* The rounds are numbered from 0 to 15. On even rounds
  274.        * the right half is fed to f() and the result exclusive-ORs
  275. --- 420,428 ----
  276.   static
  277.   round(num,block)
  278.   int num;                /* i.e. the num-th one     */
  279. ! ulong_t *block;
  280.   {
  281. !     long_t f();
  282.   
  283.       /* The rounds are numbered from 0 to 15. On even rounds
  284.        * the right half is fed to f() and the result exclusive-ORs
  285. ***************
  286. *** 418,429 ****
  287.   }
  288.   /* The nonlinear function f(r,k), the heart of DES */
  289.   static
  290. ! long
  291.   f(r,subkey)
  292. ! unsigned long r;        /* 32 bits */
  293.   unsigned char subkey[8];    /* 48-bit key for this round */
  294.   {
  295. !     register unsigned long rval,rt;
  296.   #ifdef    TRACE
  297.       unsigned char *cp;
  298.       int i;
  299. --- 436,447 ----
  300.   }
  301.   /* The nonlinear function f(r,k), the heart of DES */
  302.   static
  303. ! long_t
  304.   f(r,subkey)
  305. ! ulong_t r;        /* 32 bits */
  306.   unsigned char subkey[8];    /* 48-bit key for this round */
  307.   {
  308. !     register ulong_t rval,rt;
  309.   #ifdef    TRACE
  310.       unsigned char *cp;
  311.       int i;
  312. ***************
  313. *** 489,495 ****
  314.   {
  315.       char pbox[32];
  316.       int p,i,s,j,rowcol;
  317. !     long val;
  318.   
  319.       /* Compute pbox, the inverse of p32i.
  320.        * This is easier to work with
  321. --- 507,513 ----
  322.   {
  323.       char pbox[32];
  324.       int p,i,s,j,rowcol;
  325. !     long_t val;
  326.   
  327.       /* Compute pbox, the inverse of p32i.
  328.        * This is easier to work with
  329. ***************
  330. *** 525,533 ****
  331.   #ifdef    LITTLE_ENDIAN
  332.   /* Byte swap a long */
  333.   static
  334. ! unsigned long
  335.   byteswap(x)
  336. ! unsigned long x;
  337.   {
  338.       register char *cp,tmp;
  339.   
  340. --- 543,551 ----
  341.   #ifdef    LITTLE_ENDIAN
  342.   /* Byte swap a long */
  343.   static
  344. ! ulong_t
  345.   byteswap(x)
  346. ! ulong_t x;
  347.   {
  348.       register char *cp,tmp;
  349.   
  350.  
  351. Index: btoa/atob.c
  352. Prereq: 2.0
  353. *** btoa/atob.c.old    1991/02/19 15:49:21
  354. --- btoa/atob.c    1993/04/26 11:18:01
  355. ***************
  356. *** 15,45 ****
  357.   
  358.       Raphael Manfredi (ram) modified this file, in order to produce
  359.       meaningfull error messages (otherwise, fatal() was called, even
  360. !     when a temporary file could not be created...); added error()
  361.   */
  362.   
  363.   /*
  364. !  * $Id: atob.c,v 2.0 1991/02/19 15:49:21 ram Exp $
  365.    *
  366.    * $Log: atob.c,v $
  367. !  * Revision 2.0  1991/02/19  15:49:21  ram
  368. !  * Baseline for first official release.
  369.    *
  370.    */
  371.   
  372.   #include <stdio.h>
  373.   
  374.   #define reg register
  375.   
  376.   #define streq(s0, s1)  strcmp(s0, s1) == 0
  377.   
  378.   #define times85(x)    ((((((x<<2)+x)<<2)+x)<<2)+x)
  379.   
  380. ! long int Ceor = 0;
  381. ! long int Csum = 0;
  382. ! long int Crot = 0;
  383. ! long int word = 0;
  384. ! long int bcount = 0;
  385.   
  386.   fatal() {
  387.     fprintf(stderr, "bad format or Csum to atob\n");
  388. --- 15,62 ----
  389.   
  390.       Raphael Manfredi (ram) modified this file, in order to produce
  391.       meaningfull error messages (otherwise, fatal() was called, even
  392. !     when a temporary file could not be created...); added error().
  393. ! 
  394. !     RAM also added support for 64 bits platforms.
  395.   */
  396.   
  397.   /*
  398. !  * $Id: atob.c,v 2.0.1.1 1993/04/26 11:18:01 ram Exp $
  399.    *
  400.    * $Log: atob.c,v $
  401. !  * Revision 2.0.1.1  1993/04/26  11:18:01  ram
  402. !  * patch27: added support for 64 bits architecture (tested on Alpha)
  403.    *
  404. +  * Revision 2.0  91/02/19  15:49:21  ram
  405. +  * Baseline for first official release.
  406. +  * 
  407.    */
  408.   
  409.   #include <stdio.h>
  410. + #include "../config.h"
  411.   
  412. + /* Provision for 64 bits machines -> remaps long to int. If the machine is
  413. +  * ILP 64 (Integer, Long and Pointer types on 64 bits), then everything is fine,
  414. +  * since both longs and ints can be used. If the machine is LP 64, then it has
  415. +  * a 32 bits arithmetic and long must be used as an int.
  416. +  */
  417. + #if (BYTEORDER | 0xffff) == 0xffff
  418. + typedef long long_t;            /* 32 bits machines */
  419. + #else
  420. + typedef int long_t;                /* 64 bits, hopefully */
  421. + #endif
  422. + 
  423.   #define reg register
  424.   
  425.   #define streq(s0, s1)  strcmp(s0, s1) == 0
  426.   
  427.   #define times85(x)    ((((((x<<2)+x)<<2)+x)<<2)+x)
  428.   
  429. ! long_t Ceor = 0;
  430. ! long_t Csum = 0;
  431. ! long_t Crot = 0;
  432. ! long_t word = 0;
  433. ! long_t bcount = 0;
  434.   
  435.   fatal() {
  436.     fprintf(stderr, "bad format or Csum to atob\n");
  437. ***************
  438. *** 74,89 ****
  439.         ++bcount;
  440.       } 
  441.       else if (bcount < 4) {
  442. !       word = times85(word);
  443.         word += DE(c);
  444.         ++bcount;
  445.       } 
  446.       else {
  447. !       word = times85(word) + DE(c);
  448. !       byteout((int)((word >> 24) & 255));
  449. !       byteout((int)((word >> 16) & 255));
  450. !       byteout((int)((word >> 8) & 255));
  451. !       byteout((int)(word & 255));
  452.         word = 0;
  453.         bcount = 0;
  454.       }
  455. --- 91,106 ----
  456.         ++bcount;
  457.       } 
  458.       else if (bcount < 4) {
  459. !       word = times85((int) word);
  460.         word += DE(c);
  461.         ++bcount;
  462.       } 
  463.       else {
  464. !       word = times85((int) word) + DE(c);
  465. !       byteout((int)(((int) word >> 24) & 255));
  466. !       byteout((int)(((int) word >> 16) & 255));
  467. !       byteout((int)(((int) word >> 8) & 255));
  468. !       byteout((int)((int) word & 255));
  469.         word = 0;
  470.         bcount = 0;
  471.       }
  472. ***************
  473. *** 100,106 ****
  474.     Ceor ^= c;
  475.     Csum += c;
  476.     Csum += 1;
  477. !   if ((Crot & 0x80000000)) {
  478.       Crot <<= 1;
  479.       Crot += 1;
  480.     } 
  481. --- 117,123 ----
  482.     Ceor ^= c;
  483.     Csum += c;
  484.     Csum += 1;
  485. !   if (Crot & 0x80000000) {
  486.       Crot <<= 1;
  487.       Crot += 1;
  488.     } 
  489. ***************
  490. *** 114,123 ****
  491.   main(argc, argv) char **argv;
  492.   {
  493.     reg c;
  494. !   reg long int i;
  495.     char tmp_name[100];
  496.     char buf[100];
  497. !   long int n1, n2, oeor, osum, orot;
  498.   
  499.     if (argc != 1) {
  500.       fprintf(stderr,"bad args to %s\n", argv[0]);
  501. --- 131,140 ----
  502.   main(argc, argv) char **argv;
  503.   {
  504.     reg c;
  505. !   reg long_t i;
  506.     char tmp_name[100];
  507.     char buf[100];
  508. !   long_t n1, n2, oeor, osum, orot;
  509.   
  510.     if (argc != 1) {
  511.       fprintf(stderr,"bad args to %s\n", argv[0]);
  512. ***************
  513. *** 150,160 ****
  514.         decode(c);
  515.       }
  516.     }
  517. !   if (scanf("btoa End N %ld %lx E %lx S %lx R %lx\n", &n1, &n2, &oeor, &osum, &orot) != 5) {
  518.       error("could not read check sum");
  519.     }
  520.     if ((n1 != n2) || (oeor != Ceor) || (osum != Csum) || (orot != Crot)) {
  521. !     fatal();
  522.     } 
  523.     else {
  524.       /*copy OK tmp file to stdout*/;
  525. --- 167,181 ----
  526.         decode(c);
  527.       }
  528.     }
  529. !   if (scanf("btoa End N %d %x E %x S %x R %x\n", &n1, &n2, &oeor, &osum, &orot) != 5) {
  530.       error("could not read check sum");
  531.     }
  532.     if ((n1 != n2) || (oeor != Ceor) || (osum != Csum) || (orot != Crot)) {
  533. !     fprintf(stderr, "n1: %d, n2: %d\n", n1, n2);
  534. !     fprintf(stderr, "oeor: %d, Ceor %d\n", oeor, Ceor);
  535. !     fprintf(stderr, "osum: %d, Csum %d\n", osum, Csum);
  536. !     fprintf(stderr, "orot: %d, Crot %d\n", orot, Crot);
  537. !     error("check sum did not match original");
  538.     } 
  539.     else {
  540.       /*copy OK tmp file to stdout*/;
  541.  
  542. Index: kit/kit.SH
  543. Prereq: 2.0.1.13
  544. *** kit/kit.SH.old    1993/01/11 18:06:46
  545. --- kit/kit.SH    1993/04/26 11:19:14
  546. ***************
  547. *** 17,23 ****
  548.   $startsh
  549.   # @(#) converts to ascii && packages a whole directory
  550.   # @(#) (c) E. Mogenet April, 1990
  551. ! # @(#) (c) R. Manfredi, 1990 1991
  552.   
  553.   # Which patch-level is it ?
  554.   pl='$PATCHLEVEL'
  555. --- 17,23 ----
  556.   $startsh
  557.   # @(#) converts to ascii && packages a whole directory
  558.   # @(#) (c) E. Mogenet April, 1990
  559. ! # @(#) (c) R. Manfredi, 1990-1993
  560.   
  561.   # Which patch-level is it ?
  562.   pl='$PATCHLEVEL'
  563. ***************
  564. *** 26,37 ****
  565.   !GROK!THIS!
  566.   $spitshell >>kit <<'!NO!SUBS!'
  567.   
  568. ! # $Id: kit.SH,v 2.0.1.13 93/01/11 18:06:46 ram Exp $
  569.   #
  570.   # $Log: kit.SH,v $
  571. ! # Revision 2.0.1.13  93/01/11  18:06:46  ram
  572. ! # patch22: now uses external getopt script for option parsing
  573.   #
  574.   # Revision 2.0.1.12  92/11/03  10:12:34  ram
  575.   # patch21: option parsing can now deal with embeded spaces in arguments
  576.   # 
  577. --- 26,40 ----
  578.   !GROK!THIS!
  579.   $spitshell >>kit <<'!NO!SUBS!'
  580.   
  581. ! # $Id: kit.SH,v 2.0.1.14 1993/04/26 11:19:14 ram Exp $
  582.   #
  583.   # $Log: kit.SH,v $
  584. ! # Revision 2.0.1.14  1993/04/26  11:19:14  ram
  585. ! # patch27: do not use cshar's makekit any more but use our own archiver
  586.   #
  587. + # Revision 2.0.1.13  93/01/11  18:06:46  ram
  588. + # patch22: now uses external getopt script for option parsing
  589. + # 
  590.   # Revision 2.0.1.12  92/11/03  10:12:34  ram
  591.   # patch21: option parsing can now deal with embeded spaces in arguments
  592.   # 
  593. ***************
  594. *** 347,358 ****
  595.   "
  596.   fi
  597.   
  598. ! # Check whether we can use cshar or not
  599. ! if (makekit -v) >/dev/null 2>&1; then
  600. !     makekit="makekit -k100 -s $maxsize -n $partname ${split_file}* $others"
  601. ! else
  602. !     makekit="$libdir/makeshar -s $maxsize -n $partname ${split_file}* $others"
  603. ! fi
  604.   
  605.   echo "Coding with $coding"
  606.   # Beware: 'eval $coding < $tmpfile' is not portable
  607. --- 350,359 ----
  608.   "
  609.   fi
  610.   
  611. ! # Kit used to use cshar's makekit program when available but due to a
  612. ! # really strange bug when packing some files (leading to a blank archive #1),
  613. ! # kit's own archiving program is now always used.
  614. ! makekit="$libdir/makeshar -s $maxsize -n $partname ${split_file}* $others"
  615.   
  616.   echo "Coding with $coding"
  617.   # Beware: 'eval $coding < $tmpfile' is not portable
  618.  
  619. Index: man/kit.SH
  620. Prereq: 2.0.1.12
  621. *** man/kit.SH.old    1993/02/08 18:14:56
  622. --- man/kit.SH    1993/04/26 11:22:28
  623. ***************
  624. *** 18,30 ****
  625.   .TH KIT $manext "Version $VERSION PL$PATCHLEVEL"
  626.   ''' @(#) Manual page for mailing kit -- (c) ram July 1990
  627.   '''
  628. ! ''' $Id: kit.SH,v 2.0.1.12 93/02/08 18:14:56 ram Exp $
  629.   '''
  630.   ''' $Log: kit.SH,v $
  631. ! ''' Revision 2.0.1.12  93/02/08  18:14:56  ram
  632.   ''' patch24: documents new options -d, -s and -S for unkit
  633.   ''' patch24: new file 'secure' installed in private library
  634. ! '''
  635.   ''' Revision 2.0.1.11  93/01/11  18:08:33  ram
  636.   ''' patch22: manual page now carries version number and patchlevel
  637.   ''' patch22: added OPTIONS section for quick reference
  638. --- 18,34 ----
  639.   .TH KIT $manext "Version $VERSION PL$PATCHLEVEL"
  640.   ''' @(#) Manual page for mailing kit -- (c) ram July 1990
  641.   '''
  642. ! ''' $Id: kit.SH,v 2.0.1.13 1993/04/26 11:22:28 ram Exp $
  643.   '''
  644.   ''' $Log: kit.SH,v $
  645. ! ''' Revision 2.0.1.13  1993/04/26  11:22:28  ram
  646. ! ''' patch27: cshar(1) man page not referenced any more.
  647. ! ''' patch27: now contains a pointer to some unshar(1) man page
  648. ! '''
  649. ! ''' Revision 2.0.1.12  93/02/08  18:14:56  ram
  650.   ''' patch24: documents new options -d, -s and -S for unkit
  651.   ''' patch24: new file 'secure' installed in private library
  652. ! ''' 
  653.   ''' Revision 2.0.1.11  93/01/11  18:08:33  ram
  654.   ''' patch22: manual page now carries version number and patchlevel
  655.   ''' patch22: added OPTIONS section for quick reference
  656. ***************
  657. *** 579,587 ****
  658.   although the acknowledgment feature itself will only be handled by 2.0 PL15 and
  659.   later versions.
  660.   .SH "SEE ALSO"
  661. ! atob($manext), btoa($manext), cshar(1), makekit(1).
  662.   .SH AUTHOR
  663. ! Raphael Manfredi <ram@eiffel.com>.
  664.   
  665.   \fIKit\fR was first developed at the Ecole des Mines, Saint-Etienne,
  666.   France. Many improvements were added at Interactive Software
  667. --- 583,591 ----
  668.   although the acknowledgment feature itself will only be handled by 2.0 PL15 and
  669.   later versions.
  670.   .SH "SEE ALSO"
  671. ! atob($manext), btoa($manext), unshar(1), makekit(1).
  672.   .SH AUTHOR
  673. ! Raphael Manfredi <ram@acri.fr>.
  674.   
  675.   \fIKit\fR was first developed at the Ecole des Mines, Saint-Etienne,
  676.   France. Many improvements were added at Interactive Software
  677.  
  678. Index: btoa/btoa.c
  679. Prereq: 2.0
  680. *** btoa/btoa.c.old    1991/02/19 15:49:25
  681. --- btoa/btoa.c    1993/04/26 11:18:21
  682. ***************
  683. *** 16,45 ****
  684.       'z' encodes 32-bit zero; 'x' is used to mark the end of encoded data.
  685.   
  686.       Paul Rutter Joe Orost
  687.   */
  688.   
  689.   /*
  690. !  * $Id: btoa.c,v 2.0 1991/02/19 15:49:25 ram Exp $
  691.    *
  692.    * $Log: btoa.c,v $
  693. !  * Revision 2.0  1991/02/19  15:49:25  ram
  694. !  * Baseline for first official release.
  695.    *
  696.    */
  697.   
  698.   #include <stdio.h>
  699.   
  700.   #define reg register
  701.   
  702.   #define MAXPERLINE 78
  703.   
  704. ! long int Ceor = 0;
  705. ! long int Csum = 0;
  706. ! long int Crot = 0;
  707. ! 
  708. ! long int ccount = 0;
  709. ! long int bcount = 0;
  710. ! long int word;
  711.   
  712.   #define EN(c)    (int) ((c) + '!')
  713.   
  714. --- 16,63 ----
  715.       'z' encodes 32-bit zero; 'x' is used to mark the end of encoded data.
  716.   
  717.       Paul Rutter Joe Orost
  718. + 
  719. +     Raphael Manfredi added support for 64 bits platforms.
  720.   */
  721.   
  722.   /*
  723. !  * $Id: btoa.c,v 2.0.1.1 1993/04/26 11:18:21 ram Exp $
  724.    *
  725.    * $Log: btoa.c,v $
  726. !  * Revision 2.0.1.1  1993/04/26  11:18:21  ram
  727. !  * patch27: added support for 64 bits architecture (tested on Alpha)
  728.    *
  729. +  * Revision 2.0  91/02/19  15:49:25  ram
  730. +  * Baseline for first official release.
  731. +  * 
  732.    */
  733.   
  734.   #include <stdio.h>
  735. + #include "../config.h"
  736. + 
  737. + /* Provision for 64 bits machines -> remaps long to int. If the machine is
  738. +  * ILP 64 (Integer, Long and Pointer types on 64 bits), then everything is fine,
  739. +  * since both longs and ints can be used. If the machine is LP 64, then it has
  740. +  * a 32 bits arithmetic and long must be used as an int.
  741. +  */
  742. + #if (BYTEORDER | 0xffff) == 0xffff
  743. + typedef long long_t;            /* 32 bits machines */
  744. + #else
  745. + typedef int long_t;                /* 64 bits, hopefully */
  746. + #endif
  747. + 
  748.   
  749.   #define reg register
  750.   
  751.   #define MAXPERLINE 78
  752.   
  753. ! long_t Ceor = 0;
  754. ! long_t Csum = 0;
  755. ! long_t Crot = 0;
  756. ! 
  757. ! long_t ccount = 0;
  758. ! long_t bcount = 0;
  759. ! long_t word;
  760.   
  761.   #define EN(c)    (int) ((c) + '!')
  762.   
  763. ***************
  764. *** 48,54 ****
  765.     Ceor ^= c;
  766.     Csum += c;
  767.     Csum += 1;
  768. !   if ((Crot & 0x80000000)) {
  769.       Crot <<= 1;
  770.       Crot += 1;
  771.     } 
  772. --- 66,72 ----
  773.     Ceor ^= c;
  774.     Csum += c;
  775.     Csum += 1;
  776. !   if (Crot & 0x80000000) {
  777.       Crot <<= 1;
  778.       Crot += 1;
  779.     } 
  780. ***************
  781. *** 68,92 ****
  782.     }
  783.   }
  784.   
  785. ! wordout(word) reg long int word;
  786.   {
  787.     if (word == 0) {
  788.       charout('z');
  789.     } 
  790.     else {
  791. !     reg int tmp = 0;
  792.   
  793.       if (word < 0)
  794.       { /* Because some don't support unsigned long */
  795.         tmp = 32;
  796. !       word = word - (long)(85 * 85 * 85 * 85 * 32);
  797.       }
  798.       if (word < 0) {
  799.         tmp = 64;
  800. !       word = word - (long)(85 * 85 * 85 * 85 * 32);
  801.       }
  802. !     charout(EN((word / (long)(85 * 85 * 85 * 85)) + tmp));
  803. !     word %= (long)(85 * 85 * 85 * 85);
  804.       charout(EN(word / (85 * 85 * 85)));
  805.       word %= (85 * 85 * 85);
  806.       charout(EN(word / (85 * 85)));
  807. --- 86,110 ----
  808.     }
  809.   }
  810.   
  811. ! wordout(word) reg long_t word;
  812.   {
  813.     if (word == 0) {
  814.       charout('z');
  815.     } 
  816.     else {
  817. !     reg long_t tmp = 0;
  818.   
  819.       if (word < 0)
  820.       { /* Because some don't support unsigned long */
  821.         tmp = 32;
  822. !       word = word - (long_t)(85 * 85 * 85 * 85 * 32);
  823.       }
  824.       if (word < 0) {
  825.         tmp = 64;
  826. !       word = word - (long_t)(85 * 85 * 85 * 85 * 32);
  827.       }
  828. !     charout(EN((word / (long_t)(85 * 85 * 85 * 85)) + tmp));
  829. !     word %= (long_t)(85 * 85 * 85 * 85);
  830.       charout(EN(word / (85 * 85 * 85)));
  831.       word %= (85 * 85 * 85);
  832.       charout(EN(word / (85 * 85)));
  833. ***************
  834. *** 109,116 ****
  835.   main(argc,argv)
  836.   char **argv;
  837.   {
  838. !   reg c;
  839. !   reg long int n;
  840.   
  841.     if (argc != 1) {
  842.       fprintf(stderr,"bad args to %s\n", argv[0]);
  843. --- 127,134 ----
  844.   main(argc,argv)
  845.   char **argv;
  846.   {
  847. !   reg int c;
  848. !   reg long_t n;
  849.   
  850.     if (argc != 1) {
  851.       fprintf(stderr,"bad args to %s\n", argv[0]);
  852. ***************
  853. *** 130,135 ****
  854.       ; /* this avoids bug in BITNET, which changes blank line to spaces */
  855.     else
  856.       putchar('\n');
  857. !   printf("xbtoa End N %ld %lx E %lx S %lx R %lx\n", n, n, Ceor, Csum, Crot);
  858.     exit(0);
  859.   }
  860. --- 148,155 ----
  861.       ; /* this avoids bug in BITNET, which changes blank line to spaces */
  862.     else
  863.       putchar('\n');
  864. !   printf("xbtoa End N %d %x E %x S %x R %x\n",
  865. !     (int) n, (int) n, (int) Ceor, (int) Csum, (int) Crot);
  866.     exit(0);
  867.   }
  868. + 
  869.  
  870. Index: README
  871. *** README.old    1993/02/19 14:49:51
  872. --- README    1993/04/26 11:15:17
  873. ***************
  874. *** 1,6 ****
  875.                                kit 2.0
  876.   
  877. !            Copyright (c) 1990 1991 1992, Raphael Manfredi
  878.   
  879.   You may copy this kit in whole or in part as long as you don't try to
  880.   make money off it, or pretend you wrote it.
  881. --- 1,6 ----
  882.                                kit 2.0
  883.   
  884. !               Copyright (c) 1990-1993, Raphael Manfredi
  885.   
  886.   You may copy this kit in whole or in part as long as you don't try to
  887.   make money off it, or pretend you wrote it.
  888. ***************
  889. *** 14,25 ****
  890.   in MANIFEST.
  891.   
  892.   Kit used to rely on Rich Salz's cshar package but is now self-contained.
  893. - However, if you have the opportunity to get cshar, I would recommend its
  894. - installation. Kit will automatically use the tools from cshar when they
  895. - are available.
  896.   
  897.   In order to use kit, you must have an implementation of compress. If you
  898. ! miss it, send me a mail: ram@eiffel.com (Raphael Manfredi).
  899.   
  900.   Moreover, hexdecode, hexencode, atob and btoa must be installed. The
  901.   public-domain implementation of des, which is provided with kit, must
  902. --- 14,22 ----
  903.   in MANIFEST.
  904.   
  905.   Kit used to rely on Rich Salz's cshar package but is now self-contained.
  906.   
  907.   In order to use kit, you must have an implementation of compress. If you
  908. ! miss it, send me a mail: ram@acri.fr (Raphael Manfredi).
  909.   
  910.   Moreover, hexdecode, hexencode, atob and btoa must be installed. The
  911.   public-domain implementation of des, which is provided with kit, must
  912. ***************
  913. *** 44,50 ****
  914.   4) Read the manual entries before running.
  915.   
  916.   5) IMPORTANT! Communicate any problem and suggested patches to
  917. ! me, ram@eiffel.com (Raphael Manfredi), so we can keep this
  918.   distribution in sync. If you have a problem, there will be someone
  919.   who might have had it or will have it too.
  920.   
  921. --- 41,47 ----
  922.   4) Read the manual entries before running.
  923.   
  924.   5) IMPORTANT! Communicate any problem and suggested patches to
  925. ! me, ram@acri.fr (Raphael Manfredi), so we can keep this
  926.   distribution in sync. If you have a problem, there will be someone
  927.   who might have had it or will have it too.
  928.   
  929. ***************
  930. *** 70,78 ****
  931.   
  932.   CREDITS
  933.   
  934. ! Kit relies on four public-domain softwares:
  935.   
  936. -     - cshar, written by Rich Salz (kit will use it if possible).
  937.       - des, written by Phil Karn, which is provided with kit.
  938.       - btoa (as a stripped down implementation).
  939.       - badtar, written by Mike Williams, with a few enhancements.
  940. --- 67,74 ----
  941.   
  942.   CREDITS
  943.   
  944. ! Kit relies on three public-domain softwares:
  945.   
  946.       - des, written by Phil Karn, which is provided with kit.
  947.       - btoa (as a stripped down implementation).
  948.       - badtar, written by Mike Williams, with a few enhancements.
  949. ***************
  950. *** 107,110 ****
  951.   I strive to keep it accurate, things get so hectic here that sometimes I
  952.   simply forget to update it.
  953.   
  954. !     Raphael Manfredi <ram@eiffel.com>
  955. --- 103,106 ----
  956.   I strive to keep it accurate, things get so hectic here that sometimes I
  957.   simply forget to update it.
  958.   
  959. !     Raphael Manfredi <ram@acri.fr>
  960.  
  961. Index: kit/secure
  962. Prereq: 2.0.1.2
  963. *** kit/secure.old    1993/02/10 15:29:00
  964. --- kit/secure    1993/04/26 11:20:27
  965. ***************
  966. *** 1,12 ****
  967.   #!/usr/bin/perl
  968.   
  969. ! # $Id: secure,v 2.0.1.2 93/02/10 15:29:00 ram Exp $
  970.   #
  971.   # $Log: secure,v $
  972. ! # Revision 2.0.1.2  93/02/10  15:29:00  ram
  973.   # patch25: forgot checks for archives with more than 10 parts
  974.   # patch25: kit's own shar removes ark*isdone for multipart archives
  975. ! #
  976.   # Revision 2.0.1.1  93/02/08  18:12:21  ram
  977.   # patch24: created
  978.   # 
  979. --- 1,16 ----
  980.   #!/usr/bin/perl
  981.   
  982. ! # $Id: secure,v 2.0.1.3 1993/04/26 11:20:27 ram Exp $
  983.   #
  984.   # $Log: secure,v $
  985. ! # Revision 2.0.1.3  1993/04/26  11:20:27  ram
  986. ! # patch27: added support for kit's own archiver variables
  987. ! # patch27: will now skip leading comments in kit parts (when concatenated)
  988. ! #
  989. ! # Revision 2.0.1.2  93/02/10  15:29:00  ram
  990.   # patch25: forgot checks for archives with more than 10 parts
  991.   # patch25: kit's own shar removes ark*isdone for multipart archives
  992. ! # 
  993.   # Revision 2.0.1.1  93/02/08  18:12:21  ram
  994.   # patch24: created
  995.   # 
  996. ***************
  997. *** 48,54 ****
  998.           next if /^test -f '[\w.]+' -a "\$\{1\}\" != "-c"\s*$/;
  999.           next if /^test \d+ -ne `wc -c <\s*'[\w.]+'`\s*$/;
  1000.           next if /^test ! -f ark\$\{i\}isdone\s*$/i;
  1001. !         next if /^test "\$\{missing\}" = ""\s*$/i;
  1002.           &error;
  1003.       } elsif (s/^rm //) {
  1004.           next if /^-f ark\[1-9\]isdone$/;
  1005. --- 52,58 ----
  1006.           next if /^test -f '[\w.]+' -a "\$\{1\}\" != "-c"\s*$/;
  1007.           next if /^test \d+ -ne `wc -c <\s*'[\w.]+'`\s*$/;
  1008.           next if /^test ! -f ark\$\{i\}isdone\s*$/i;
  1009. !         next if /^test "\$\{?missing\}?" = ""\s*$/i;
  1010.           &error;
  1011.       } elsif (s/^rm //) {
  1012.           next if /^-f ark\[1-9\]isdone$/;
  1013. ***************
  1014. *** 63,70 ****
  1015.           &erorr;
  1016.       } elsif (s/^for (.*); do\s*$/$1/) {
  1017.           &loose_check;
  1018.       } else {
  1019. !         next if /^missing="(\$\{missing\}\s+\$\{i\})?"$/i;
  1020.           &error;
  1021.       }
  1022.   }
  1023. --- 67,77 ----
  1024.           &erorr;
  1025.       } elsif (s/^for (.*); do\s*$/$1/) {
  1026.           &loose_check;
  1027. +     } elsif (s/^>>\s?//) {    # Kit leading comments
  1028. +         &comment_check;
  1029.       } else {
  1030. !         next if /^missing="(\$\{?missing\}?\s+\$\{?i\}?)?"$/i;
  1031. !         next if /^missing=''$/i;
  1032.           &error;
  1033.       }
  1034.   }
  1035. ***************
  1036. *** 78,83 ****
  1037. --- 85,91 ----
  1038.   }
  1039.   
  1040.   # Check arguments to echo (no fear for () or {} subshells for instance), etc...
  1041. + sub comment_check    { &error if /[&^`\\|;><?]/; }
  1042.   sub echo_check        { &error if /[&^*[`\\|;><?]/; }
  1043.   sub loose_check        { &error if /[&^*([{}`\\|;><?]/; }
  1044.   sub strong_check    { &error if /[=\$^&*([{}`\\|;><?]/; }
  1045.  
  1046. Index: kit/unkit.SH
  1047. Prereq: 2.0.1.16
  1048. *** kit/unkit.SH.old    1993/02/08 18:13:58
  1049. --- kit/unkit.SH    1993/04/26 11:21:29
  1050. ***************
  1051. *** 17,33 ****
  1052.   $startsh
  1053.   # @(#) unkit, reversal of kit
  1054.   # @(#) (c) E. Mogenet April 1990
  1055. ! # @(#) (c) R. Manfredi, 1990 1991
  1056.   
  1057. ! # $Id: unkit.SH,v 2.0.1.16 93/02/08 18:13:58 ram Exp $
  1058.   #
  1059.   # $Log: unkit.SH,v $
  1060. ! # Revision 2.0.1.16  93/02/08  18:13:58  ram
  1061.   # patch24: new option -d to specify directory where kits are
  1062.   # patch24: added security checks (options -s and -S) on shell archives
  1063.   # patch24: avoid sending an acknowledgment when -l option used
  1064.   # patch24: (reported by Christian Bertin <bertin@acri.fr>)
  1065. ! #
  1066.   # Revision 2.0.1.15  93/01/11  18:07:29  ram
  1067.   # patch22: now uses external getopt script for option parsing
  1068.   # patch22: fixed some typos in the help message
  1069. --- 17,36 ----
  1070.   $startsh
  1071.   # @(#) unkit, reversal of kit
  1072.   # @(#) (c) E. Mogenet April 1990
  1073. ! # @(#) (c) R. Manfredi, 1990-1993
  1074.   
  1075. ! # $Id: unkit.SH,v 2.0.1.17 1993/04/26 11:21:29 ram Exp $
  1076.   #
  1077.   # $Log: unkit.SH,v $
  1078. ! # Revision 2.0.1.17  1993/04/26  11:21:29  ram
  1079. ! # patch27: updated copyright dates
  1080. ! #
  1081. ! # Revision 2.0.1.16  93/02/08  18:13:58  ram
  1082.   # patch24: new option -d to specify directory where kits are
  1083.   # patch24: added security checks (options -s and -S) on shell archives
  1084.   # patch24: avoid sending an acknowledgment when -l option used
  1085.   # patch24: (reported by Christian Bertin <bertin@acri.fr>)
  1086. ! # 
  1087.   # Revision 2.0.1.15  93/01/11  18:07:29  ram
  1088.   # patch22: now uses external getopt script for option parsing
  1089.   # patch22: fixed some typos in the help message
  1090.  
  1091. Index: badtar/badtar.SH
  1092. Prereq: 2.0.1.2
  1093. *** badtar/badtar.SH.old    1992/05/02 14:10:56
  1094. --- badtar/badtar.SH    1993/04/26 11:15:53
  1095. ***************
  1096. *** 15,29 ****
  1097.   echo "Extracting badtar/badtar.$manext (with variable substitutions)"
  1098.   $rm -f badtar.$manext
  1099.   $spitshell >badtar.$manext <<!GROK!THIS!
  1100. ! .TH BABTAR $manext ram
  1101.   ''' @(#) Manual page for badtar -- (c) ram January 1992
  1102.   '''
  1103. ! ''' $Id: badtar.SH,v 2.0.1.2 92/05/02 14:10:56 ram Exp $
  1104.   '''
  1105.   ''' $Log: badtar.SH,v $
  1106. ! ''' Revision 2.0.1.2  92/05/02  14:10:56  ram
  1107. ! ''' patch16: fixed incorrect extraction message
  1108.   '''
  1109.   ''' Revision 2.0.1.1  92/01/11  19:12:35  ram
  1110.   ''' patch11: created
  1111.   ''' 
  1112. --- 15,32 ----
  1113.   echo "Extracting badtar/badtar.$manext (with variable substitutions)"
  1114.   $rm -f badtar.$manext
  1115.   $spitshell >badtar.$manext <<!GROK!THIS!
  1116. ! .TH BADTAR $manext ram
  1117.   ''' @(#) Manual page for badtar -- (c) ram January 1992
  1118.   '''
  1119. ! ''' $Id: badtar.SH,v 2.0.1.3 1993/04/26 11:15:53 ram Exp $
  1120.   '''
  1121.   ''' $Log: badtar.SH,v $
  1122. ! ''' Revision 2.0.1.3  1993/04/26  11:15:53  ram
  1123. ! ''' patch27: manual page name was mis-spelled BABTAR
  1124.   '''
  1125. + ''' Revision 2.0.1.2  92/05/02  14:10:56  ram
  1126. + ''' patch16: fixed incorrect extraction message
  1127. + ''' 
  1128.   ''' Revision 2.0.1.1  92/01/11  19:12:35  ram
  1129.   ''' patch11: created
  1130.   ''' 
  1131.  
  1132. Index: kit/mailkit.SH
  1133. Prereq: 2.0.1.12
  1134. *** kit/mailkit.SH.old    1993/01/11 18:06:55
  1135. --- kit/mailkit.SH    1993/04/26 11:19:31
  1136. ***************
  1137. *** 16,29 ****
  1138.   $spitshell >mailkit <<!GROK!THIS!
  1139.   $startsh
  1140.   # @(#) Mailer for kit files
  1141. ! # @(#) (c) R. Manfredi, 1990 1991
  1142.   
  1143. ! # $Id: mailkit.SH,v 2.0.1.12 93/01/11 18:06:55 ram Exp $
  1144.   #
  1145.   # $Log: mailkit.SH,v $
  1146. ! # Revision 2.0.1.12  93/01/11  18:06:55  ram
  1147. ! # patch22: now uses external getopt script for option parsing
  1148.   #
  1149.   # Revision 2.0.1.11  92/11/03  10:12:40  ram
  1150.   # patch21: option parsing can now deal with embeded spaces in arguments
  1151.   # 
  1152. --- 16,32 ----
  1153.   $spitshell >mailkit <<!GROK!THIS!
  1154.   $startsh
  1155.   # @(#) Mailer for kit files
  1156. ! # @(#) (c) R. Manfredi, 1990-1993
  1157.   
  1158. ! # $Id: mailkit.SH,v 2.0.1.13 1993/04/26 11:19:31 ram Exp $
  1159.   #
  1160.   # $Log: mailkit.SH,v $
  1161. ! # Revision 2.0.1.13  1993/04/26  11:19:31  ram
  1162. ! # patch27: copyright dates updated
  1163.   #
  1164. + # Revision 2.0.1.12  93/01/11  18:06:55  ram
  1165. + # patch22: now uses external getopt script for option parsing
  1166. + # 
  1167.   # Revision 2.0.1.11  92/11/03  10:12:40  ram
  1168.   # patch21: option parsing can now deal with embeded spaces in arguments
  1169.   # 
  1170.  
  1171. *** End of Patch 27 ***
  1172.