To many time later, anyway for keep reference
Set string = ""Set length = 256For 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 rangeSet tChar = $CHAR(tNum+65)
} Else {
// Lower case rangeSet tChar = $CHAR(tNum+97)
}
}
Set string = string _ tChar
}- Log in to post comments