1 files changed, 26 insertions, 0 deletions
diff --git a/crypt/testpass.c.texi b/crypt/testpass.c.texi
new file mode 100644
index 0000000000..517c8e5a57
--- /dev/null
+++ b/crypt/testpass.c.texi
@@ -0,0 +1,26 @@
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <crypt.h>
+
+int 
+main(void)
+@{
+  /* @r{Hashed form of "GNU libc manual".} */
+  const char *const pass = "$1$/iSaq7rB$EoUw5jJPPvAPECNaaWzMK/";
+
+  char *result;
+  int ok;
+  
+@group
+  /* @r{Read in the user's password and encrypt it,
+     passing the expected password in as the salt.} */
+  result = crypt(getpass("Password:"), pass);
+@end group
+
+  /* @r{Test the result.} */
+  ok = strcmp (result, pass) == 0;
+
+  puts(ok ? "Access granted." : "Access denied.");
+  return ok ? 0 : 1;
+@}