64 lines
No EOL
1 KiB
PHP
64 lines
No EOL
1 KiB
PHP
<?php
|
|
|
|
function bencode($var)
|
|
{
|
|
if (is_string($var)) {
|
|
return strlen($var) .':'. $var;
|
|
} else if (is_int($var)) {
|
|
return 'i'. $var .'e';
|
|
} else if (is_float($var)) {
|
|
return 'i'. sprintf('%.0f', $var) .'e';
|
|
} else if (is_array($var)) {
|
|
if (count($var) == 0) {
|
|
return 'de';
|
|
} else {
|
|
$assoc = false;
|
|
|
|
foreach ($var as $key => $val) {
|
|
if (!is_int($key)) {
|
|
$assoc = true;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if ($assoc) {
|
|
ksort($var, SORT_REGULAR);
|
|
$ret = 'd';
|
|
|
|
foreach ($var as $key => $val) {
|
|
$ret .= bencode($key) . bencode($val);
|
|
}
|
|
return $ret .'e';
|
|
} else {
|
|
$ret = 'l';
|
|
|
|
foreach ($var as $val) {
|
|
$ret .= bencode($val);
|
|
}
|
|
return $ret .'e';
|
|
}
|
|
}
|
|
} else {
|
|
do_error('bencode wrong data type');
|
|
}
|
|
}
|
|
/*
|
|
function bdecode($enc)
|
|
{
|
|
if ($endPos = strpos($enc, 'e') == false) {
|
|
// string
|
|
}
|
|
if (!$endPos) {
|
|
return null;
|
|
}
|
|
|
|
$type = substr($enc, 1, 1);
|
|
$data = substr($enc, 1, $endPos - 1);
|
|
switch ($type)
|
|
{
|
|
case 'i': return intval($data);
|
|
|
|
}
|
|
}
|
|
*/
|
|
?>
|