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 <u.h>
+#include <libc.h>
+#include <auth.h>
+#include <libsec.h>
+
+/*
+ * 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\