Mine

alias scramble {
  %2 = $iif($2,$2,32)
  %c = 1
  if $3 = %` && %2 $+ . isnum 1-255 {
    while $gettok($1,%c,%2) {
      %g = $v1
      %a = $chr(%2)
      while $len(%a) <= $len(%g) {
        %o = $r(
,ÿ)
        if $countcs(%g,%o) > $countcs(%a,%o) && (%o isincs %g) %a = %a $+ %o
      }
      var %` %` $+ %a
      inc %c
    }
    return $mid(%`,2)
  }