function script getrand_code { if(getarg(0) <= 0) return 0; setarray .@chars$[0], "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "!", "ยง", "$", "%", "&", "/", "(", ")", "=", "?", "-", "_", ",", ".", "<", ">", "|", "+", "#", "*", "~"; set .@rand_code$, ""; for(set .@i, 0; .@i < getarg(0); .@i++) set .@rand_code$, .@rand_code$ + .@chars$[rand(0,getarraysize(.@chars$)-1)]; //generating random code here by using rand() return .@rand_code$; }