From 6bf56aac5e2854b55fae391a86182c064209c0b2 Mon Sep 17 00:00:00 2001
From: Jerome Jutteau <mojo@couak.net>
Date: Wed, 9 Jan 2013 21:36:42 +0100
Subject: [PATCH 1/1] Convert links to base 64 string for shorter links

---
 file.php          |  2 +-
 lib/functions.php | 27 ++++++++++++++++++++++++++-
 2 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/file.php b/file.php
index 18bb459..ebb5cff 100644
--- a/file.php
+++ b/file.php
@@ -32,7 +32,7 @@ if (!isset ($_GET['h']) || empty ($_GET['h']))
 
 $link_name = $_GET['h'];
 
-if (!preg_match ('/[0-9a-f]{32}$/', $link_name))
+if (!preg_match ('/[0-9a-fA-Z-_]*$/', $link_name))
 {
     require (JIRAFEAU_ROOT.'lib/template/header.php');
     echo '<div class="error"><p>' . t('Sorry, the requested file is not found') . '</p></div>';
diff --git a/lib/functions.php b/lib/functions.php
index 97733d5..f1d81f4 100644
--- a/lib/functions.php
+++ b/lib/functions.php
@@ -31,6 +31,31 @@ s2p ($s)
     return $p;
 }
 
+/**
+ * Convert base 16 to base 64
+ * @returns A string based on 64 characters (0-9, a-z, A-Z, "-" and "_")
+ */
+function
+base_16_to_64 ($num)
+{
+    $o = '';
+    $m = implode ('', array_merge (range (0,9),
+                                   range ('a', 'z'),
+                                   range ('A', 'Z'),
+                                   ['-', '_']));
+    $i = 0;
+    $size = strlen ($num);
+    $b='';
+    for ($i = 0; $i < $size; $i++)
+        $b .= base_convert ($num{$i}, 16, 2);
+    $size = strlen ($b);
+    for ($i = $size - 6; $i >= 0; $i -= 6)
+        $o = $m{bindec (substr ($b, $i, 6))} . $o;
+    if ($i < 0 && $i > -6)
+        $o = $m{bindec (substr ($b, 0, $i + 6))} . $o;
+    return $o;
+}
+
 function
 jirafeau_human_size ($octets)
 {
@@ -315,7 +340,7 @@ jirafeau_upload ($file, $one_time_download, $key, $time, $ip)
             NL . $md5. NL . ($one_time_download ? 'O' : 'R') . NL.date ('U') .
             NL. $ip . NL. $delete_link_code . NL);
     fclose ($handle);
-    $md5_link = md5_file ($link_tmp_name);
+    $md5_link = base_16_to_64 (md5_file ($link_tmp_name));
     $l = s2p ("$md5_link");
     if (!@mkdir (VAR_LINKS . $l, 0755, true) ||
         !rename ($link_tmp_name,  VAR_LINKS . $l . $md5_link))
-- 
2.34.1