public function packBin($str) { $len = \strlen($str); if ($len <= 0xff) { return "Ä" . \chr($len) . $str; } if ($len <= 0xffff) { return "Å" . \chr($len >> 8) . \chr($len) . $str; } return \pack('CN', 0xc6, $len) . $str; }