Decode web socket for mIRC

;decode web socket syntax $decodews($bvar(&binvar,1-)) or $decodews(binarydatahere)
alias decodews {
  tokenize 32 $1
  var %hashstart $iif($xor($1,$2) < 127,3,5)
  var %hash $($+($,%hashstart,-,$calc(%hashstart + 3)),2), %hashcounter 1
  var %message $($+($,$calc(%hashstart + 4),-),2), %messagecounter 1
  while (%messagecounter <= $gettok(%message,0,32)) {
    %message = $puttok(%message,$xor($gettok(%hash,%hashcounter,32),$gettok(%message,%messagecounter,32)),%messagecounter,32)
    inc %messagecounter
    %hashcounter = $iif(%hashcounter < 4,$calc(%hashcounter + 1), 1)
  }
  bset &return 1 %message
  return $bvar(&return,1-).text
}