1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
<?php
// Copyright (c) 2005-2006 Joachim Henke
// http://base91.sourceforge.net/
$b91_enctab = array(
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',
'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '!', '#', '$',
'%', '&', '(', ')', '*', '+', ',', '.', '/', ':', ';', '<', '=',
'>', '?', '@', '[', ']', '^', '_', '`', '{', '|', '}', '~', '"'
);
$b91_dectab = array_flip($b91_enctab);
function base91_decode($d)
{
global $b91_dectab;
$l = strlen($d);
$v = -1;
for ($i = 0; $i < $l; ++$i) {
$c = $b91_dectab[$d{$i}];
if (!isset($c))
continue;
if ($v < 0)
$v = $c;
else {
$v += $c * 91;
$b |= $v << $n;
$n += ($v & 8191) > 88 ? 13 : 14;
do {
$o .= chr($b & 255);
$b >>= 8;
$n -= 8;
} while ($n > 7);
$v = -1;
}
}
if ($v + 1)
$o .= chr(($b | $v << $n) & 255);
return $o;
}
function base91_encode($d)
{
global $b91_enctab;
$l = strlen($d);
for ($i = 0; $i < $l; ++$i) {
$b |= ord($d{$i}) << $n;
$n += 8;
if ($n > 13) {
$v = $b & 8191;
if ($v > 88) {
$b >>= 13;
$n -= 13;
} else {
$v = $b & 16383;
$b >>= 14;
$n -= 14;
}
$o .= $b91_enctab[$v % 91] . $b91_enctab[$v / 91];
}
}
if ($n) {
$o .= $b91_enctab[$b % 91];
if ($n > 7 || $b > 90)
$o .= $b91_enctab[$b / 91];
}
return $o;
}
?>
|
