Return to xs.c CVS log

Up to [Research Unix] / researchv10no / cmd / sign

Annotation of researchv10no/cmd/sign/xs.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include <string.h>
                      3: 
                      4: char *xs();
                      5: unsigned long xsum();
                      6: 
                      7: 
                      8: char *
                      9: xs(key,body,n)
                     10: char *key, *body;
                     11: {
                     12:        unsigned long t;
                     13:        unsigned int x[2];
                     14:        static char s[17];
                     15:        char key2[8];
                     16:        int i;
                     17: 
                     18:        strncpy(key2,key,8);
                     19:        sprintf(s, "%d", n);
                     20:        xinit();
                     21:        xstring(s, strlen(s));
                     22:        xstring("$$$",3);
                     23:        xstring(key2,8);
                     24:        xstring(body,n);
                     25:        xstring("$$$",3);
                     26:        xstring(body,n);
                     27:        xstring(key2,8);
                     28:        xstring("omega",5);
                     29: 
                     30:        t = xsum();
                     31:        x[0] = t & 0xffff;
                     32:        x[1] = (t>>16) & 0xffff;
                     33: 
                     34:        sprintf(s, "%4x%4x", x[0], x[1]);
                     35:        xstring("digamma",7);
                     36:        t = xsum();
                     37:        x[0] ^= t & 0xffff;
                     38:        x[1] ^= (t>>16) & 0xffff;
                     39:        sprintf(s+8, "%4x%4x", x[0], x[1]);
                     40:        for(i=0; i<16; i++) if(s[i]==' ') s[i] = '0';
                     41:        return s;
                     42: }
                     43: 
                     44: #define SRLEN 5
                     45: 
                     46: static unsigned long sr[SRLEN], *sa, *sb;
                     47: 
                     48: xinit()
                     49: {
                     50:        int i;
                     51:        for(i=0; i<SRLEN; i++) sr[i] = 0;
                     52:        sa = &sr[0];
                     53:        sb = &sr[1];
                     54: }
                     55: 
                     56: unsigned long xsum() {
                     57:        return *sa ^ *sb;
                     58: }
                     59: 
                     60: xstring(s,n)
                     61: register char *s;
                     62: {
                     63:        while(n-->0)
                     64:                xcrank(*s++);
                     65: }
                     66: 
                     67: unsigned long
                     68: phi(x)
                     69: register unsigned long x;
                     70: {
                     71:        do {
                     72:                x += 14921776 + x*(17761492 + x);
                     73:                x ^= 0x5827066;
                     74:                x += 0x2c357 + x*(10661688 ^ x);
                     75:                x ^= x>>16;
                     76:        } while((x&0x80000002) == 2);
                     77:        return x;
                     78: }
                     79: 
                     80: xcrank(x)
                     81: register x;
                     82: {
                     83:        *sb++ += phi((x&0xff) + *sa++);
                     84:        if(sa >= &sr[SRLEN]) sa = &sr[0];
                     85:        if(sb >= &sr[SRLEN]) sb = &sr[0];
                     86: }

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