Randomly Generated Strings

[Stuart]

Hi All,

I used to have a piece of code that would generate a random string of
8,16,24 or 32 characters in length.

I got it from this group, does any one have this piece of code?

It will be used for a double opt-in email newsletter.


Many thanks,

Stuart

 

[Roji. P. Thomas]

It should be something like (out of my head, not tested)

function GetRandomString(len as integer)
Dim strLetters as string
Dim strResult as String
Dim i as Integer
strLetters = '01234567890ABCDEFHIJKLMNOPQRSTUVWZYZ'

For i = 0 to len
strResult = strResult & SUBSTR(strLetters , FLOOR(RAND() * 36))+1, 1)
Next
GetRandomString = strResult
End function

 

[Stuart]

Many thanks Guys.


I will save the code away somewhere safe - but not so safe that I cannot
find it.

;o))