To many time later, anyway for keep reference
Set string = ""
Set length = 256
For i=1:1:length {
Set Up = $random(2)
Set tNum = $random(28)
If (tNum = 26) {
Set tChar = "-"
}elseif (tNum = 27) {
Set tChar = "_"
} Else {
If Up {
// Upper case range
Set tChar = $CHAR(tNum+65)
} Else {
// Lower case range
Set tChar = $CHAR(tNum+97)
}
}
Set string = string _ tChar
}- Log in to post comments