"#@*SBVkc^@9c20" или случайные символы.

[Хой]

Здрасьте....
Что-то у меня неполучается создать строку (~50 символов) забитую случайными символами (см. сабж).
VB'шный Rnd (в совокупности с Randomize) независимо от диапазона выдаёт два числа 1 и 0.
Прошу помощи.

[mad_Max]

Эта функция генерит строку длиной N со случайными символами, коды которых от minChar до maxChar, т.е. GenString(50,33,65) например.

Код: Выделить всё

Public Function GenString(N As Integer, minChar As Integer, maxChar As Integer) As String
Dim tmpStr As String
Dim i As Integer
Dim range As Integer
range = maxChar - minChar
Randomize Timer
For i = 1 To N
tmpStr = tmpStr & Chr(Rnd * range + minChar)
Next i
GenString = tmpStr
End Function

[hCORe]

А вот тебе прикольный пример генерации супер-пупер строк с шестнадцатиричными значениями (очень на хэш-коды похожи )

[Хой]

Благодарю обоих. :-)