public function packStr($str)
{
$len = \strlen($str);
if ($len < 32) {
return \chr(0xa0 | $len) . $str;
}
if ($len <= 0xff) {
return "Ù" . \chr($len) . $str;
}
if ($len <= 0xffff) {
return "Ú" . \chr($len >> 8) . \chr($len) . $str;
}
return \pack('CN', 0xdb, $len) . $str;
}