1 /*- 2 * %sccs.include.proprietary.c% 3 */ 4 5 #ifndef lint 6 static char sccsid[] = "@(#)enroll.c 8.1 (Berkeley) 06/06/93"; 7 #endif /* not lint */ 8 9 #include <sys/types.h> 10 #include <pwd.h> 11 #include "xmail.h" 12 #include "pathnames.h" 13 14 MINT *a[42], *x, *b, *one, *c64, *t45, *z, *q, *r, *two, *t15; 15 char buf[256]; 16 char maildir[] = _PATH_SECRETMAIL; 17 main() 18 { 19 int uid, i; 20 FILE *fd; 21 char *myname, fname[128]; 22 uid = getuid(); 23 myname = (char *) getlogin(); 24 if(myname == NULL) 25 myname = getpwuid(uid)->pw_name; 26 sprintf(fname, "%s/%s.key", maildir, myname); 27 comminit(); 28 setup(getpass("Gimme key: ")); 29 mkb(); 30 mkx(); 31 #ifdef debug 32 omout(b); 33 omout(x); 34 #endif 35 mka(); 36 i = creat(fname, 0644); 37 if(i<0) 38 { perror(fname); 39 exit(1); 40 } 41 close(i); 42 fd = fopen(fname, "w"); 43 for(i=0; i<42; i++) 44 nout(a[i], fd); 45 exit(0); 46 } 47