;-**************************************************-;
; *                                                * ;
;*   Hex encode/decode example                      *;
;*   =>                                             *;
;*      //echo -a $hex(test).encode                 *;
;*      //echo -a $hex(74657374).decode             *;
; *                                                * ;
;-**************************************************-;
alias hexor {
  if ($1) || ($prop) {
    var %o
    %o = $1-
    if ($prop == encode) {
      var %l 1, %r
      while (%l <= $len(%o)) {
        %r = $+(%r,$base($asc($mid(%o,%l,1)),10,16,2))
        inc %l
      }
    }
    if ($prop == decode) {
      var %l 1, %r
      var %o $1-
      while (%l <= $len(%o)) {
        if (!$2) {
          if ($mid(%o,%l,2) != 20) %r = $+(%r,$chr($base($mid(%o,%l,2),16,10)))
          else %r = $+(%r,$chr($base($mid(%o,%l,2),16,10)))
        }
        else %r = $+(%r,$chr($base($mid(%o,%l,2),16,10)))
        inc %l 2
      }
    }
    return %r
    unset %r, %o, %l
  }
}
alias hex {
  if ($1 == decrypt) {
    msg # $hexor( $+ $2- $+ ).decode
  }
  else {
    msg # $hexor( $+ $1- $+ ).encode
  }
}