//echo -ae $_enc(test cows)
standard encryption and decryption example

alias _enc { 
  var %i = 1, %s = $replace($1-, $chr(32), $chr(1)), %r
  while (%i <= $len($1-)) {
    %r = $instok(%r, $base($calc($asc($mid(%s, %i, 1)) * %i), 10, 16), $calc($numtok(%r, 46) + 1), 46)    
    inc %i
  }
  return %r
}

alias _dec {
  var %i = 1, %x = $numtok($1-, 46), %r
  while (%i <= %x) {
    %r = $+(%r, $chr($calc($base($gettok($1-, %i, 46), 16, 10) / %i)))
    inc %i
  }
  return $replace(%r, $chr(1), $chr(32))
}