This seems to be what you are looking for -

Replace this section:
code:
		$chr = random(48,57,$seed) $seed = $seed - $seedjump
		select
			case $i = 1
				while $chr >= 48 and $chr <=57
					$chr = random(65,90,$seed) $seed = $seed + $seedjump
				loop
			case $i = $length
				while $chr >= 48 and $chr <=57
					$chr = random(97,122,$seed) $seed = $seed - $seedjump
				loop
		endselect
It yields the following, for example -
quote:

R44582496u
G28457516u
G28457516u
G28457516u
Z39198601i
Z39737681z
T75737681z
P63765577x
P63765577x
P63765577x
A32616235n
R14044123r
R14044172o
P33878572o
P33878572o
P33878572o
J37771612j
J37771612j
J37771612j
X68075921m
X68075921m
X68075921m
X64728080b
H94728080b
H94720770j
Q94180770j
Q94180770j
Q94132124e
N11232124e
N11232124x
A08829724x
A08829724x
A08829724c
L80578488c
L87451609n
V67451609n
V67451609n
V67456475t
L30576475t
L30576475t
T05651738p
T05651738p
T05651738p
D14433232m
D14433232m
D14433232m
Z69295712w
Z69295712b
T36479085b
T36479085b
I am sure it can be improved upon. [Big Grin]

HTH,

Kent

[ 27. June 2003, 14:52: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's