This didn\'t work for me until I replaced $regml(n) with \"backslash t\"

alias senc { 
  var %% = $1
  msg $active $regsubex($2-,/(.)/g,$chr($xor($asc(\\t),%%)))
}

Still a simple and neat encryption snippet.

Edit: Apparently it doesn\'t allow the backslashes. :S