home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / xsend / lib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  1.9 KB  |  110 lines
  1. #include "xmail.h"
  2. MINT *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15;
  3. MINT *a[42];
  4. setup(s) char *s;
  5. {    int pf[2];
  6.     strncpy(buf, s, 10);
  7.     while(*s) *s++ = 0;
  8.     pipe(pf);
  9.     if(fork()==0)
  10.     {
  11.         close(0);
  12.         close(1);
  13.         dup(pf[0]);
  14.         dup(pf[1]);
  15.         execl("/usr/lib/makekey", "-", 0);
  16.         execl("/lib/makekey", "-", 0);
  17.         exit(1);
  18.     }
  19.     write(pf[1], buf, 10);
  20.     wait((int *)NULL);
  21.     if(read(pf[0], buf, 13) != 13)
  22.     {    fprintf(stderr, "enroll: cannot generate key\n");
  23.         exit(1);
  24.     }
  25. }
  26. mkx()
  27. {    int i, j;
  28.     for(i=0; i<4; i++)
  29.     {    mult(x, t15, x);
  30.         *z->val = (short)(rand() ^ buf[i]);
  31.         madd(x, z, x);
  32.     }
  33.     mdiv(x, b, q, x);
  34.     for(;;)
  35.     {    gcd(b, x, q);
  36.         if(q->len == 1 && q->val[0] == 1)
  37.             return;
  38.         madd(x, one, x);
  39.     }
  40. }
  41. mka()
  42. {    int i, j;
  43.     for(i=0; i<42; i++)
  44.         a[i] = itom(1);
  45.     for(i=j=0; i<42; i++, j++)
  46.     {    *z->val = (short)rand()&00;
  47.         mult(a[i], z, a[i]);
  48.         mult(a[i], t45, a[i]);
  49.         rpow(two, j, q);
  50.         if( i%14 == 6) j++;
  51.         madd(a[i], q, a[i]);
  52.         mult(a[i], t15, a[i]);
  53.         *z->val = (short)rand()&0777;
  54.         madd(a[i], z, a[i]);
  55.         mdiv(a[i], b, q, a[i]);
  56.     }
  57.     for(i=0; i<42; i++)
  58.         mult(a[i], x, a[i]);
  59.     for(i=0; i<42; i++)
  60.     {    mdiv(a[i], b, q, a[i]);
  61.     }
  62. }
  63. mkb()
  64. {    int i, c;
  65.     unsigned seed;
  66.     seed = 123;
  67.     for(i=0; i<13; i++)
  68.         seed = seed*buf[i] + i;
  69.     srand(seed);
  70.     *b->val = 04 + (rand()&03);
  71.     for(i=0; i<11; i++)
  72.     {    *z->val = (buf[i+2] + rand()) & 077;
  73.         mult(b, c64, b);
  74.         madd(b, z, b);
  75.     }
  76. }
  77. comminit()
  78. {    int i;
  79.     x = itom(0);
  80.     b = itom(1);
  81.     one = itom(1);
  82.     two = itom(2);
  83.     c64 = itom(64);
  84.     t45 = itom(1);
  85.     t15 = itom(1);
  86.     rpow(two, 45, t45);
  87.     rpow(two, 15, t15);
  88.     z = itom(1);
  89.     q = itom(1);
  90. }
  91. #ifndef debug
  92. nout(a, fd) MINT *a; FILE *fd;
  93. {
  94.     fwrite(&a->len, sizeof(int), 1, fd);
  95.     fwrite(a->val, sizeof(short), a->len, fd);
  96. }
  97. nin(a, fd) MINT *a; FILE *fd;
  98. {
  99.     xfree(a);
  100.     fread(&a->len, sizeof(int), 1, fd);
  101.     a->val = xalloc(a->len, "nin");
  102.     fread(a->val, sizeof(short), a->len, fd);
  103. }
  104. #endif
  105. xfatal(s) char *s;
  106. {
  107.     fprintf(stderr, "%s\n", s);
  108.     exit(1);
  109. }
  110.