Return to no.crypt.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / gen

Annotation of cci/usr/src/lib/libc/gen/no.crypt.c, revision 1.1.1.1

1.1       root        1: /* @(#)crypt.c 4.1 (Berkeley) 12/21/80 */
                      2: /*
                      3:  * This program implements a compatable interface for the
                      4:  * Proposed Federal Information Processing
                      5:  *  Data Encryption Standard.
                      6:  * See Federal Register, March 17, 1975 (40FR12134)
                      7:  */
                      8: 
                      9: /*
                     10:  * Set up the key schedule from the key.
                     11:  */
                     12: static char save_key[60];
                     13: setkey(key)
                     14: char *key;
                     15: {
                     16:        strncpy(save_key,key,60);
                     17: }
                     18: 
                     19: /*
                     20:  * The payoff: encrypt a block.
                     21:  */
                     22: 
                     23: encrypt(block, edflag)
                     24: char *block;
                     25: {
                     26: }
                     27: 
                     28: char *
                     29: crypt(pw,salt)
                     30: char *pw;
                     31: char *salt;
                     32: {
                     33: static char iobuf[16];
                     34: 
                     35:        strncpy(iobuf,salt,2);
                     36:        strncpy(iobuf+2,pw,10);
                     37:        if(iobuf[1]==0)
                     38:          iobuf[1] = iobuf[0];
                     39:        return(iobuf);
                     40: }

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