crypt module (Steve M's)
diff --git a/Modules/cryptmodule.c b/Modules/cryptmodule.c
new file mode 100644
index 0000000..9cdcac8
--- /dev/null
+++ b/Modules/cryptmodule.c
@@ -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);
+}