magickey identifier for websockets

;magickey identifier for websockets $magickey(key_in)
alias magickey {
  bset -c &magicvar 1 $hex2chr($sha1($+($1,258EAFA5-E914-47DA-95CA-C5AB0DC85B11)))
  noop $encode(&magicvar,mb)
  return $bvar(&magicvar,1-).text
}
alias -l hex2chr return $regsubex($1-,/(.{2})/g, $base(\t,16,10) $chr(32))