File: random128alpha.c

package info (click to toggle)
courier 0.60.0-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 52,288 kB
  • ctags: 12,677
  • sloc: ansic: 165,348; cpp: 24,820; sh: 16,410; perl: 6,839; makefile: 3,621; yacc: 289; sed: 16
file content (30 lines) | stat: -rw-r--r-- 585 bytes parent folder | download | duplicates (12)
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
30
/*
** 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"

static const char rcsid[]="$Id: random128alpha.c,v 1.2 2000/05/27 04:59:26 mrsam Exp $";

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);
}