@@ -65,6 +65,7 @@ dbm dbmmodule.o		# dbm(3) may require -ldbm or similar
 fcntl fcntlmodule.o	# fcntl(2) and ioctl(2)
 nis nismodule.o		# Sun yellow pages -- not everywhere
 pwd grp pwdmodule.o	# pwd(3) and grp(3)
+crypt cryptmodule.o	# crypt(3)
 select selectmodule.o	# select(2); not on ancient System V
 socket socketmodule.o	# socket(2); not on ancient System V
 
 
@@ -0,0 +1,36 @@
+/* cryptmodule.c - by Steve Majewski
+ */
+
+#include "allobjects.h"
+#include "modsupport.h"
+
+#include <sys/types.h>
+
+
+/* Module crypt */
+
+
+static object *crypt_crypt(self, args)
+	object *self, *args;
+{
+	char *word, *salt; 
+	extern char * crypt();
+
+	struct passwd *p;
+	if (!getargs(args, "(ss)", &word, &salt)) {
+		return NULL;
+	}
+	return newstringobject( crypt( word, salt ) );
+
+}
+
+static struct methodlist crypt_methods[] = {
+	{"crypt",	crypt_crypt},
+	{NULL,		NULL}		/* sentinel */
+};
+
+void
+initcrypt()
+{
+	initmodule("crypt", crypt_methods);
+}