1 files changed, 29 insertions, 0 deletions
diff --git a/random128/random128alpha.c b/random128/random128alpha.c
new file mode 100644
index 0000000..282c822
--- /dev/null
+++ b/random128/random128alpha.c
@@ -0,0 +1,29 @@
+/*
+** Copyright 1998 - 2000 Double Precision, Inc.
+** See COPYING for distribution information.
+*/
+
+#if	HAVE_CONFIG_H
+#include	"config.h"
+#endif
+
+#if	HAVE_UNISTD_H
+#include	<unistd.h>
+#endif
+#include	<ctype.h>
+#include	<string.h>
+#include	"random128.h"
+
+
+const char *random128_alpha()
+{
+static char randombuf[ 128 / 8 * 2 + 1];
+char *p;
+
+	strcpy(randombuf, random128());
+
+	for (p=randombuf; *p; p++)
+		if ( isdigit((int)(unsigned char)*p))
+			*p= "GHIJKLMNOP"[ *p - '0' ];
+	return (randombuf);
+}