Return to no.crypt.c CVS log

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

Power 6/32 Unix version 1.2b

/* @(#)crypt.c	4.1 (Berkeley) 12/21/80 */
/*
 * This program implements a compatable interface for the
 * Proposed Federal Information Processing
 *  Data Encryption Standard.
 * See Federal Register, March 17, 1975 (40FR12134)
 */

/*
 * Set up the key schedule from the key.
 */
static char save_key[60];
setkey(key)
char *key;
{
	strncpy(save_key,key,60);
}

/*
 * The payoff: encrypt a block.
 */

encrypt(block, edflag)
char *block;
{
}

char *
crypt(pw,salt)
char *pw;
char *salt;
{
static char iobuf[16];

	strncpy(iobuf,salt,2);
	strncpy(iobuf+2,pw,10);
	if(iobuf[1]==0)
	  iobuf[1] = iobuf[0];
	return(iobuf);
}

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