Return to xget.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / xsend

Annotation of 40BSD/cmd/xsend/xget.c, revision 1.1

1.1     ! root        1: #include "xmail.h"
        !             2: #include "sys/types.h"
        !             3: #include "sys/dir.h"
        !             4: #include "ctype.h"
        !             5: #include "pwd.h"
        !             6: #include "sys/stat.h"
        !             7: char *myname;
        !             8: int uid;
        !             9: struct direct dbuf;
        !            10: char *maildir = "/usr/spool/secretmail/";
        !            11: FILE *kf, *mf, *df;
        !            12: MINT *x, *b, *one, *t45, *z, *q, *r;
        !            13: MINT *two, *t15, *mbuf;
        !            14: char buf[256], line[128];
        !            15: #define MXF 100
        !            16: int fnum[MXF], fcnt;
        !            17: struct stat stbuf;
        !            18: main()
        !            19: {      int i;
        !            20:        char *p;
        !            21:        uid = getuid();
        !            22:        myname = getlogin();
        !            23:        if(myname == NULL)
        !            24:                myname = getpwuid(uid)->pw_name;
        !            25:        comminit();
        !            26:        mbuf = itom(0);
        !            27:        files();
        !            28:        setup(getpass("Key: "));
        !            29:        mkb();
        !            30:        mkx();
        !            31: #ifndef debug
        !            32:        invert(x, b, x);
        !            33: #else
        !            34:        invert(x, b, z);
        !            35:        mult(x, z, z);
        !            36:        mdiv(z, b, q, z);
        !            37:        omout(z);
        !            38:        invert(x, b, x);
        !            39: #endif
        !            40:        for(i=0; i<fcnt; i++)
        !            41:        {       sprintf(line, "%s%s.%d", maildir, myname, fnum[i]);
        !            42:                if(stat(line, &stbuf)<0)
        !            43:                {       perror(line);
        !            44:                        continue;
        !            45:                }
        !            46:                if(stbuf.st_size == 0)
        !            47:                {       printf("zero length mail file\n");
        !            48:                        unlink(line);
        !            49:                        continue;
        !            50:                }
        !            51:                if((mf = fopen(line, "r"))==NULL)
        !            52:                {       perror(line);
        !            53:                        continue;
        !            54:                }
        !            55:                decipher(mf, stdout);
        !            56:        cmnd:
        !            57:                printf("? ");
        !            58:                fgets(buf, sizeof(buf), stdin);
        !            59:                if(feof(stdin)) exit(0);
        !            60:                switch(buf[0])
        !            61:                {
        !            62:                case 'q':
        !            63:                        exit(0);
        !            64:                case 'n':
        !            65:                case 'd':
        !            66:                case '\n':
        !            67:                        unlink(line);
        !            68:                        fclose(mf);
        !            69:                        break;
        !            70:                case '!':
        !            71:                        system(buf+1);
        !            72:                        printf("!\n");
        !            73:                        goto cmnd;
        !            74:                case 's':
        !            75:                case 'w':
        !            76:                        rewind(mf);
        !            77:                        if(buf[1] == '\n' || buf[1] == '\0')
        !            78:                                strcpy(buf, "s mbox\n");
        !            79:                        for(p=buf; !isspace(*p); p++);
        !            80:                        for(; isspace(*p); p++);
        !            81:                        p[strlen(p)-1] = 0;
        !            82:                        kf = fopen(p, "a");
        !            83:                        if(kf == NULL)
        !            84:                        {       perror(p);
        !            85:                                break;
        !            86:                        }
        !            87:                        decipher(mf, kf);
        !            88:                        fclose(mf);
        !            89:                        fclose(kf);
        !            90:                        unlink(line);
        !            91:                        break;
        !            92:                }
        !            93:        }
        !            94:        exit(0);
        !            95: }
        !            96: icmp(a, b) int *a, *b;
        !            97: {
        !            98:        return(*a - *b);
        !            99: }
        !           100: files()
        !           101: {      int i;
        !           102:        if((df = fopen(maildir, "r")) == NULL)
        !           103:        {       perror(maildir);
        !           104:                exit(1);
        !           105:        }
        !           106:        strcpy(line, myname);
        !           107:        strcat(line, ".%d");
        !           108:        for(; !feof(df);)
        !           109:        {       fread(&dbuf, sizeof(dbuf), 1, df);
        !           110:                if(feof(df)) break;
        !           111:                if(dbuf.d_ino == 0) continue;
        !           112:                if(sscanf(dbuf.d_name, line, &i) != 1)
        !           113:                        continue;
        !           114:                if(fcnt >= MXF)
        !           115:                        break;
        !           116:                fnum[fcnt++] = i;
        !           117:        }
        !           118:        if(fcnt == 0)
        !           119:        {       printf("no secret mail\n");
        !           120:                exit(0);
        !           121:        }
        !           122:        qsort(fnum, fcnt, sizeof(int), icmp);
        !           123: }
        !           124: decipher(u, w) FILE *u, *w;
        !           125: {      int i;
        !           126:        short a;
        !           127:        for(;;)
        !           128:        {       nin(mbuf, u);
        !           129:                if(feof(u)) break;
        !           130:                mult(mbuf, x, mbuf);
        !           131:                mdiv(mbuf, b, q, mbuf);
        !           132:                for(i=1; i<=3; i++)
        !           133:                {       a = mbuf->val[i];
        !           134:                        putc(a&0177, w);
        !           135:                        a >>= 8;
        !           136:                        putc(a&0177, w);
        !           137:                }
        !           138:        }
        !           139: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.