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

--
Roji. P. Thomas
SQL Server Programmer
"Stuart" <st****@nowhere.co.uk> wrote in message
news:e1**************@TK2MSFTNGP10.phx.gbl...

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

[Peter Foti]

"Roji. P. Thomas" <la********@nowhere.com> wrote in message
news:O3**************@TK2MSFTNGP12.phx.gbl...

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

Close, but you need the Randomize statement first. Also, "len" is a
keyword. Try this:

Function GetRandomString( numChars )
Randomize
strLetters =
"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklm nopqrstuvwxyz"
iLettersLen = Len(strLetters)
strResult = ""

For i = 1 To numChars
x = CInt((iLettersLen * Rnd) + 1)
strResult = strResult & Mid(strLetters,x,1)
next

GetRandomString = strResult
End Function

Regards,
Peter Foti

[Stuart]

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

;o))

"Peter Foti" <pe***@Idontwantnostinkingemailfromyou.com> wrote in message
news:10*************@corp.supernews.com...

"Roji. P. Thomas" <la********@nowhere.com> wrote in message
news:O3**************@TK2MSFTNGP12.phx.gbl...

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

Close, but you need the Randomize statement first. Also, "len" is a
keyword. Try this:

Function GetRandomString( numChars )
Randomize
strLetters =
"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklm nopqrstuvwxyz"
iLettersLen = Len(strLetters)
strResult = ""

For i = 1 To numChars
x = CInt((iLettersLen * Rnd) + 1)
strResult = strResult & Mid(strLetters,x,1)
next

GetRandomString = strResult
End Function

Regards,
Peter Foti