PHP CUtil::BinSubstr方法代码示例

 public function GetValue()
 {
     $result = $this->value;
     if (ord($result[0]) == 0x0) {
         $result = CUtil::BinSubstr($result, 1);
     }
     return $result;
 }

function CRCCryptData($data, $pwdString, $type)
{
    $type = strtoupper($type);
    if ($type != "D") {
        $type = "E";
    }
    $res_data = "";
    if ($type == 'D') {
        $data = urldecode($data);
    }
    $key[] = "";
    $box[] = "";
    $temp_swap = "";
    $pwdLength = CUtil::BinStrlen($pwdString);
    for ($i = 0; $i <= 255; $i++) {
        $key[$i] = ord(CUtil::BinSubstr($pwdString, $i % $pwdLength, 1));
        $box[$i] = $i;
    }
    $x = 0;
    for ($i = 0; $i <= 255; $i++) {
        $x = ($x + $box[$i] + $key[$i]) % 256;
        $temp_swap = $box[$i];
        $box[$i] = $box[$x];
        $box[$x] = $temp_swap;
    }
    $temp = "";
    $k = "";
    $cipherby = "";
    $cipher = "";
    $a = 0;
    $j = 0;
    for ($i = 0, $n = CUtil::BinStrlen($data); $i < $n; $i++) {
        $a = ($a + 1) % 256;
        $j = ($j + $box[$a]) % 256;
        $temp = $box[$a];
        $box[$a] = $box[$j];
        $box[$j] = $temp;
        $k = $box[($box[$a] + $box[$j]) % 256];
        $cipherby = ord(CUtil::BinSubstr($data, $i, 1)) ^ $k;
        $cipher .= chr($cipherby);
    }
    if ($type == 'D') {
        $res_data = urldecode(urlencode($cipher));
    } else {
        $res_data = urlencode($cipher);
    }
    return $res_data;
}

 public function getPayload()
 {
     $sJSONPayload = str_replace('"' . self::APPLE_RESERVED_NAMESPACE . '":[]', '"' . self::APPLE_RESERVED_NAMESPACE . '":{}', CPushManager::_MakeJson($this->_getPayload(), "", false));
     $nJSONPayloadLen = CUtil::BinStrlen($sJSONPayload);
     if ($nJSONPayloadLen > $this->payloadMaxSize) {
         if ($this->_bAutoAdjustLongPayload) {
             $nMaxTextLen = $nTextLen = CUtil::BinStrlen($this->text) - ($nJSONPayloadLen - $this->payloadMaxSize);
             if ($nMaxTextLen > 0) {
                 while (CUtil::BinStrlen($this->text = CUtil::BinSubstr($this->text, 0, --$nTextLen)) > $nMaxTextLen) {
                 }
                 return $this->getPayload();
             } else {
                 return false;
             }
         } else {
             return false;
         }
     }
     return $sJSONPayload;
 }

 public function getPayload()
 {
     $sJSONPayload = str_replace('"' . self::APPLE_RESERVED_NAMESPACE . '":[]', '"' . self::APPLE_RESERVED_NAMESPACE . '":{}', CPushManager::_MakeJson($this->_getPayload(), "", false));
     $nJSONPayloadLen = CUtil::BinStrlen($sJSONPayload);
     if ($nJSONPayloadLen > self::PAYLOAD_MAXIMUM_SIZE) {
         if ($this->_bAutoAdjustLongPayload) {
             $nMaxTextLen = $nTextLen = CUtil::BinStrlen($this->text) - ($nJSONPayloadLen - self::PAYLOAD_MAXIMUM_SIZE);
             if ($nMaxTextLen > 0) {
                 while (CUtil::BinStrlen($this->text = CUtil::BinSubstr($this->text, 0, --$nTextLen)) > $nMaxTextLen) {
                 }
                 return $this->getPayload();
             } else {
                 throw new Exception("JSON Payload is too long: {$nJSONPayloadLen} bytes. Maximum size is " . self::PAYLOAD_MAXIMUM_SIZE . " bytes. The message text can not be auto-adjusted.");
             }
         } else {
             throw new Exception("JSON Payload is too long: {$nJSONPayloadLen} bytes. Maximum size is " . self::PAYLOAD_MAXIMUM_SIZE . " bytes");
         }
     }
     return $sJSONPayload;
 }

function PrintHTTP($strRequest, $strHeaders, $strRes)
{
	echo 
	"== Request ==\n".
	(($l = CUtil::BinStrlen($strRequest)) > 1000 ? CUtil::BinSubstr($strRequest, 0, 1000).' ... ('.$l.' bytes)' : $strRequest)."\n".
	"== Response ==\n".
	$strHeaders."\n".
	"== Body ==\n".
	(($l = CUtil::BinStrlen($strRes)) > 1000 ? CUtil::BinSubstr($strRes, 0, 1000).' ... ('.$l.' bytes)' : $strRes)."\n".
	"==========\n";
}

	public static function Crypt($str, $key=false)
	{
		$res = '';
		if($key===false)
			$key = COption::GetOptionString("main", "pwdhashadd", "");
		$key1 = CMailUtil::BinMD5($key);
		while($str)
		{
			$m = CUtil::BinSubstr($str, 0, 16);
			$str = CUtil::BinSubstr($str, 16);
			$res .= CMailUtil::ByteXOR($m, $key1, 16);
			$key1 = CMailUtil::BinMD5($key.$key1.$m);
		}
		return(base64_encode($res));
	}

//.........这里部分代码省略.........
				if (isset($search))
				{
					$p = $oneCase[0][1];
					if (!isset($arPos[$search]))
						$arPos[$search] = $p;
					//Add to the tail of the running window
					$arPosP[] = $p;
					$arPosW[] = $search;
					$cc = count($arPosW);
					if ($cc >= $wordsCount)
					{
						//This cuts the tail of the running window
						while ($cc > $wordsCount)
						{
							array_shift($arPosW);
							array_shift($arPosP);
							$cc--;
						}
						//Check if all the words present in the current window
						if (count(array_unique($arPosW)) == $wordsCount)
						{
							//And check if positions is the best
							if (
								!$arPosLast
								|| (
									(max($arPosP) - min($arPosP)) < (max($arPosLast) - min($arPosLast))
								))
								$arPosLast = $arPosP;
						}
					}
				}
			}
		}

		if ($arPosLast)
			$arPos = $arPosLast;

		//Nothing found just cut some text
		if (empty($arPos))
		{
			$str_len = strlen($str);
			$pos_end = 500;
			while (($pos_end < $str_len) && (strpos(" ,.\n\r", substr($str, $pos_end, 1)) === false))
				$pos_end++;
			return substr($str, 0, $pos_end).($pos_end < $str_len? "...": "");
		}

		sort($arPos);

		$str_len = CUtil::BinStrlen($str);
		$delta = 250/count($arPos);
		$arOtr = array();
		//Have to do it two times because Positions eat each other
		for ($i = 0; $i < 2; $i++)
		{
			$arOtr = array();
			$last_pos = -1;
			foreach ($arPos as $pos_mid)
			{
				//Find where sentence begins
				$pos_beg = $pos_mid - $delta;
				if($pos_beg <= 0)
					$pos_beg = 0;
				while(($pos_beg > 0) && (strpos(" ,.!?\n\r", CUtil::BinSubstr($str, $pos_beg, 1)) === false))
					$pos_beg--;

				//Find where sentence ends
				$pos_end = $pos_mid + $delta;
				if($pos_end > $str_len)
					$pos_end = $str_len;
				while(($pos_end < $str_len) && (strpos(" ,.!?\n\r", CUtil::BinSubstr($str, $pos_end, 1)) === false))
					$pos_end++;

				if($pos_beg <= $last_pos)
					$arOtr[count($arOtr)-1][1] = $pos_end;
				else
					$arOtr[] = array($pos_beg, $pos_end);

				$last_pos = $pos_end;
			}
			//Adjust length of the text
			$delta = 250/count($arOtr);
		}

		$str_result = "";
		foreach ($arOtr as $borders)
		{
			$str_result .= ($borders[0]<=0? "": " ...")
				.CUtil::BinSubstr($str, $borders[0], $borders[1] - $borders[0] + 1)
				.($borders[1] >= $str_len? "": "... ")
			;
		}

		foreach ($words as $search => $type)
			$str_result = $this->repl($search, $type, $str_result);

		$str_result = str_replace("%/^%", "</b>", str_replace("%^%","<b>", $str_result));

		return $str_result;
	}

 function EncodeHeaderFrom($text, $charset)
 {
     $i = CUtil::BinStrlen($text);
     while ($i > 0) {
         if (ord(CUtil::BinSubstr($text, $i - 1, 1)) >> 7) {
             break;
         }
         $i--;
     }
     if ($i == 0) {
         return $text;
     } else {
         return "=?" . $charset . "?B?" . base64_encode(CUtil::BinSubstr($text, 0, $i)) . "?=" . CUtil::BinSubstr($text, $i);
     }
 }

 /**
  * @param string $content
  * @return array|bool
  */
 private static function getFrameIndexes($content)
 {
     $openTag = "<!--'start_frame_cache_";
     $closingTag = "<!--'end_frame_cache_";
     $ending = "'-->";
     $areas = array();
     $offset = 0;
     while (($openTagStart = \CUtil::BinStrpos($content, $openTag, $offset)) !== false) {
         $endingPos = \CUtil::BinStrpos($content, $ending, $openTagStart);
         if ($endingPos === false) {
             break;
         }
         $idStart = $openTagStart + strlen($openTag);
         $idLength = $endingPos - $idStart;
         $areaId = \CUtil::BinSubstr($content, $idStart, $idLength);
         $openTagEnd = $endingPos + strlen($ending);
         $realClosingTag = $closingTag . $areaId . $ending;
         $closingTagStart = \CUtil::BinStrpos($content, $realClosingTag, $openTagEnd);
         if ($closingTagStart === false) {
             $offset = $openTagEnd;
             continue;
         }
         $closingTagEnd = $closingTagStart + strlen($realClosingTag);
         $area = new \stdClass();
         $area->id = $areaId;
         $area->openTagStart = $openTagStart;
         $area->openTagEnd = $openTagEnd;
         $area->closingTagStart = $closingTagStart;
         $area->closingTagEnd = $closingTagEnd;
         $areas[] = $area;
         $offset = $closingTagEnd;
     }
     return count($areas) > 0 ? $areas : false;
 }

 /**
  * Unpack values from string (something like rsplit).
  * Simple example for separator ".":
  * <code>
  *  // Unpack all values:
  *  unpack('test.all.values', 0) -> ['test', 'all', 'values']
  *
  *  // Unpack 2 values (by default). First element containing the rest of string.
  *  unpack('test.all.values') -> ['test.all', 'values']
  *
  *  // Exception if separator is missing
  *  unpack('test.all values', 3) -> throws BadSignatureException
  * </code>
  *
  * @param string $value String for unpacking.
  * @param int $limit If $limit === 0 - unpack all values, default - 2.
  * @return array
  * @throws BadSignatureException
  */
 protected function unpack($value, $limit = 2)
 {
     // Some kind of optimization
     if ($limit === 0) {
         if (strpos($value, $this->separator) === false) {
             throw new BadSignatureException('Separator not found in value');
         }
         return explode($this->separator, $value);
     }
     $result = array();
     while (--$limit > 0) {
         $pos = bxstrrpos($value, $this->separator);
         if ($pos === false) {
             throw new BadSignatureException('Separator not found in value');
         }
         $result[] = \CUtil::BinSubstr($value, $pos + 1);
         $value = \CUtil::BinSubstr($value, 0, $pos);
     }
     $result[] = $value;
     return array_reverse($result);
 }