Dim strChars As String
strChars = "-abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@#$%&*()"
Do While strWrite.Length < 1024
intRandom = RandomNumber(0, strChars.Length - 1, False)
strWrite = strWrite & strChars.SubString2(intRandom, 1)
Loop
Sub RandomNumber(Lowest As Int, Highest As Int, PreventZero As Boolean) As Int
Lowest = Round(Lowest)
Highest = Round(Highest)
If Lowest = Highest Then
Return Lowest
Else
If Lowest > Highest Then
Dim TempValue = Lowest As Int
Lowest = Highest
Highest = TempValue
End If
Dim ReturnValue = Lowest + Rnd(0, Highest - Lowest) As Int
If ReturnValue = 0 And PreventZero Then
Return RandomNumber(Lowest, Highest, PreventZero)
Else
Return ReturnValue
End If
End If
End Sub