I had the same question. Sigh_ on another forum gave me this code.

Code:
alias scramble {
  var %c
  while ($calc(1+$numtok(%c,32)) <= $len($1)) %c = $instok(%c,$mid($1,$v1,1),$r(0,$v1),32)
  %questask = UnScramble This Word: %c 
}