_openid_dh_long_to_binary
modules/openid/openid.inc, строка 287
- Версии
- 6
_openid_dh_long_to_binary($long)
Код
<?php
function _openid_dh_long_to_binary($long) {
$cmp = bccomp($long, 0);
if ($cmp < 0) {
return FALSE;
}
if ($cmp == 0) {
return "\x00";
}
$bytes = array();
while (bccomp($long, 0) > 0) {
array_unshift($bytes, bcmod($long, 256));
$long = bcdiv($long, pow(2, 8));
}
if ($bytes && ($bytes[0] > 127)) {
array_unshift($bytes, 0);
}
$string = '';
foreach ($bytes as $byte) {
$string .= pack('C', $byte);
}
return $string;
}
?>
Войдите или зарегистрируйтесь, чтобы получить возможность отправлять комментарии