Anonymous

alias crypt {
  var %len = 1
  var %lens $len($1)
  var %inc = 0
  while (%len <= %lens) {
    var %asc = $asc($right($left($1,%len),1))
    var %chr = $calc(%asc + %inc)
    var %s = %s $+ $chr(%chr)
    inc %inc  
    inc %len
  }
  echo %s
}