alias ENCRYPT_ASCII {
  var %COUNT $LEN($1-)
  var %x 1
  var %BASE 0

  while %x <= %COUNT {
    var %CURRENT $mid($1-,%x,1)
    var %BASE $ENCRYPT(%BASE,$ASC(%CURRENT))
    inc %x
  }

  return %BASE
}
alias DECRYPT_ASCII {
  var %BASE $1
  while %BASE != 0 {
    var %CURRENT_TOKEN $DECRYPT(%BASE)
    var %BASE $TOKEN(%CURRENT_TOKEN,1,32)
    var %CHAR $TOKEN(%CURRENT_TOKEN,2,32)

    if ($BVAR(&STRING,0) > 0) bcopy &STRING 2 &STRING 1 -1
    bset &STRING 1 %CHAR
  }
  return $BVAR(&STRING,1,$BVAR(&STRING,0)).text
}