static char sccsid
[] = "@(#)lib.c 4.2 5/11/89";
MINT
*x
, *b
, *one
, *c64
, *t45
, *z
, *q
, *r
, *two
, *t15
;
execl(_PATH_MAKEKEY
, "-", 0);
if(read(pf
[0], buf
, 13) != 13)
{ fprintf(stderr
, "enroll: cannot generate key\n");
*z
->val
= (short)(rand() ^ buf
[i
]);
if(q
->len
== 1 && q
->val
[0] == 1)
for(i
=j
=0; i
<42; i
++, j
++)
{ *z
->val
= (short)rand()&00;
*z
->val
= (short)rand()&0777;
{ mdiv(a
[i
], b
, q
, a
[i
]);
*b
->val
= 04 + (rand()&03);
{ *z
->val
= (buf
[i
+2] + rand()) & 077;
nout(a
, fd
) MINT
*a
; FILE *fd
;
fwrite(&a
->len
, sizeof(int), 1, fd
);
fwrite(a
->val
, sizeof(short), a
->len
, fd
);
nin(a
, fd
) MINT
*a
; FILE *fd
;
fread(&a
->len
, sizeof(int), 1, fd
);
a
->val
= xalloc(a
->len
, "nin");
fread(a
->val
, sizeof(short), a
->len
, fd
);
fprintf(stderr
, "%s\n", s
);