summaryrefslogtreecommitdiffstats
path: root/random128/random128alpha.c
blob: 282c8220eddfcc25529919161b45f642cb738a8d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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);
}