commit 641405320f4601f50e0d728805e14fb6f8196710 from: rsc date: Tue Feb 08 21:02:40 2005 UTC add crypt commit - 648bb6f75a801e6d605fcd061f0b14fecc07a8be commit + 641405320f4601f50e0d728805e14fb6f8196710 blob - /dev/null blob + 0524c94227f75cd65aea786ab7074d52f7eedcb0 (mode 755) --- /dev/null +++ src/lib9/crypt.c @@ -0,0 +1,68 @@ +/* + * Data Encryption Standard + * D.P.Mitchell 83/06/08. + * + * block_cipher(key, block, decrypting) + * + * these routines use the non-standard 7 byte format + * for DES keys. + */ +#include +#include +#include +#include + +/* + * destructively encrypt the buffer, which + * must be at least 8 characters long. + */ +int +encrypt(void *key, void *vbuf, int n) +{ + ulong ekey[32]; + uchar *buf; + int i, r; + + if(n < 8) + return 0; + key_setup(key, ekey); + buf = vbuf; + n--; + r = n % 7; + n /= 7; + for(i = 0; i < n; i++){ + block_cipher(ekey, buf, 0); + buf += 7; + } + if(r) + block_cipher(ekey, buf - 7 + r, 0); + return 1; +} + +/* + * destructively decrypt the buffer, which + * must be at least 8 characters long. + */ +int +decrypt(void *key, void *vbuf, int n) +{ + ulong ekey[128]; + uchar *buf; + int i, r; + + if(n < 8) + return 0; + key_setup(key, ekey); + buf = vbuf; + n--; + r = n % 7; + n /= 7; + buf += n * 7; + if(r) + block_cipher(ekey, buf - 7 + r, 1); + for(i = 0; i < n; i++){ + buf -= 7; + block_cipher(ekey, buf, 1); + } + return 1; +} blob - 361ab5b78241bacc7a0fc90030963d8c4b694dba blob + 3ed220ab4d53b063b1defe27b6ea4f8a1a2ac883 --- src/lib9/mkfile +++ src/lib9/mkfile @@ -84,6 +84,7 @@ LIB9OFILES=\ convM2S.$O\ convS2M.$O\ create.$O\ + crypt.$O\ ctime.$O\ date.$O\ dial.$O\