TMP = "0123456789abcdefghijklmnopqrstopwxyz" TMPPWD = ROUNDSTR (TMP, 8)
Function RoundStr (STR, NUM) S = "" for i = 1 to Num
Randomize
Strlen = LEN (STR) T = ROUND ((rND * (strllen-1)) 1) s = s & mid (Str, T, 1) Next RoundStr = Send Function
