Buddy,
Thank you for the code. It is a nice piece of
work and may come in very handy for me.
On Mon, 23 Apr
2001 10:23:56 -0400 "Walker, Buddy"
<[EMAIL PROTECTED]> wrote:
> Bob
> Here is some code I use to create alpha/numeric password (10 chars). Check
> your table were you are using the 9 digit value, if your value is unique
> then insert it or run the code again.
>
>
> *****Code starts here
> SET VAR VLoop INTEGER = 1,VPart1 TEXT, VPart2 TEXT, VPart3 TEXT, VPart4
> TEXT, +
> VPart5 TEXT, VPart6 TEXT, VPart7 TEXT, VPart8 TEXT, VPart9 TEXT, VPart10
> TEXT
>
> WHILE VLoop <= 10 THEN
> SET VAR VCode = (RANDOM(10))
> SET VAR VMod = (MOD(.VCode,2))
>
> IF VMOD = 0 THEN
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=' &
> (CTXT(.VCode)))
> &VWhatPart
> ELSE
> SET VAR VCode1 = (RANDOM(26))
>
> SWITCH (.VCode1)
> CASE 1
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> a')
> BREAK
> CASE 2
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> b')
> BREAK
> CASE 3
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> c')
> BREAK
> CASE 4
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> d')
> BREAK
> CASE 5
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> e')
> BREAK
> CASE 6
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> f')
> BREAK
> CASE 7
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> g')
> BREAK
> CASE 8
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> h')
> BREAK
> CASE 9
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> i')
> BREAK
> CASE 10
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> j')
> BREAK
> CASE 11
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> k')
> BREAK
> CASE 12
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> l')
> BREAK
> CASE 13
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> m')
> BREAK
> CASE 14
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> n')
> BREAK
> CASE 15
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> o')
> BREAK
> CASE 16
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> p')
> BREAK
> CASE 17
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> q')
> BREAK
> CASE 18
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> r')
> BREAK
> CASE 19
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> s')
> BREAK
> CASE 20
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> t')
> BREAK
> CASE 21
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> u')
> BREAK
> CASE 22
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> v')
> BREAK
> CASE 23
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> w')
> BREAK
> CASE 24
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> x')
> BREAK
> CASE 25
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> y')
> BREAK
> CASE 26
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
> z')
> BREAK
> DEFAULT
> SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '= h')
> ENDSW
> &VWhatPart
> ENDIF
> SET VAR VLoop = (.VLoop + 1)
> ENDWHILE
>
> SET VAR VNewPass = (.VPart1 + .VPart2 + .VPart3 + .VPart4 + .VPart5)
> SET VAR VNewPass = (.VNewPass + .VPart6 + .VPart7 + .VPart8 + .VPart9 +
> .VPart10)
>
> *****Code ends here
>
>
>
>
>
>
>
> -----Original Message-----
> From: Bob Powell [mailto:[EMAIL PROTECTED]]
> Sent: Monday, April 23, 2001 10:05 AM
> To: [EMAIL PROTECTED]
> Subject: Randomly generated unique numbers
>
>
>
> Does anyone know how to randomly generate a nine digit
> number that is always unique?
>
>
> ----------------------
> Bob Powell
> The Hotchkiss School
> Lakeville, Connecticut
> Systems Administrator
> [EMAIL PROTECTED]
----------------------
Bob Powell
The Hotchkiss School
Lakeville, Connecticut
Systems Administrator
[EMAIL PROTECTED]
