111785Ssam #ifndef lint 2*12564Sralph static char sccsid[] = "@(#)enroll.c 4.2 05/19/83"; 311785Ssam #endif 411785Ssam 511785Ssam #include "xmail.h" 611785Ssam #include "pwd.h" 711785Ssam #include "sys/types.h" 811785Ssam MINT *a[42], *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15; 911785Ssam char buf[256]; 1011785Ssam char maildir[] = { "/usr/spool/secretmail"}; 1111785Ssam main() 1211785Ssam { 1311785Ssam int uid, i; 1411785Ssam FILE *fd; 1511785Ssam char *myname, fname[128]; 1611785Ssam uid = getuid(); 17*12564Sralph myname = (char *) getlogin(); 1811785Ssam if(myname == NULL) 1911785Ssam myname = getpwuid(uid)->pw_name; 2011785Ssam sprintf(fname, "%s/%s.key", maildir, myname); 2111785Ssam comminit(); 2211785Ssam setup(getpass("Gimme key: ")); 2311785Ssam mkb(); 2411785Ssam mkx(); 2511785Ssam #ifdef debug 2611785Ssam omout(b); 2711785Ssam omout(x); 2811785Ssam #endif 2911785Ssam mka(); 3011785Ssam i = creat(fname, 0644); 3111785Ssam if(i<0) 32*12564Sralph { perror(fname); 3311785Ssam exit(1); 3411785Ssam } 3511785Ssam close(i); 3611785Ssam fd = fopen(fname, "w"); 3711785Ssam for(i=0; i<42; i++) 3811785Ssam nout(a[i], fd); 3911785Ssam exit(0); 4011785Ssam } 41