alias texttohex { text2hex $$1- }
alias text2hex {
  var %c = 1, %text = $1, %out
  while (%c <= $len(%text)) {
    %out = %out $+ $iif(%c > 1, $chr(32),) $+ 0x $+ $base($asc($mid(%text, %c, 1)), 10, 16)
    inc %c
  }
  echo -tg %out
}