X-Git-Url: https://git.p6c8.net/jirafeau.git/blobdiff_plain/6bf56aac5e2854b55fae391a86182c064209c0b2..d84c94d93c6b5b446c7bc6e359bb8fc276107dff:/lib/functions.php?ds=inline

diff --git a/lib/functions.php b/lib/functions.php
index f1d81f4..e48534e 100644
--- a/lib/functions.php
+++ b/lib/functions.php
@@ -38,19 +38,35 @@ s2p ($s)
 function
 base_16_to_64 ($num)
 {
-    $o = '';
-    $m = implode ('', array_merge (range (0,9),
-                                   range ('a', 'z'),
-                                   range ('A', 'Z'),
-                                   ['-', '_']));
+    $m = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_';
+    $hex2bin = ['0000', # 0
+                '0001', # 1
+                '0010', # 2
+                '0011', # 3
+                '0100', # 4
+                '0101', # 5
+                '0110', # 6
+                '0111', # 7
+                '1000', # 8
+                '1001', # 9
+                '1010', # a
+                '1011', # b
+                '1100', # c
+                '1101', # d
+                '1110', # e
+                '1111']; # f
+    $o = '';    
+    $b = '';
     $i = 0;
+    # Convert long hex string to bin.
     $size = strlen ($num);
-    $b='';
     for ($i = 0; $i < $size; $i++)
-        $b .= base_convert ($num{$i}, 16, 2);
-    $size = strlen ($b);
+        $b .= $hex2bin{hexdec ($num{$i})};
+    # Convert long bin to base 64.
+    $size *= 4;
     for ($i = $size - 6; $i >= 0; $i -= 6)
         $o = $m{bindec (substr ($b, $i, 6))} . $o;
+    # Some few bits remaining ?
     if ($i < 0 && $i > -6)
         $o = $m{bindec (substr ($b, 0, $i + 6))} . $o;
     return $o;