Something

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
}

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