微博URL短地址lua生成算法

短地址（Short URL），或叫短网址、短链接等等，就是比较短的URL地址。借助短地址，可以将原来冗长的网址替换成简短的网址，让使用者可以更容易分享链接。在Web 2.0的今天，不得不说，这是一个潮流（我喜欢这句话，就原封不动从别人文章复制过来了）。

例如：http://t.cn/pQ8LLW 

短地址，主要应用场景是微博。微博消息限制字数为140字，如果要发一些链接，这个网址可能占用一半字数了，所以短地址就应运而生。

短地址的生成算法有很多种，这里取其中一种做实现。无论哪种算法都不能避免重复，所以要结合数据库对网址和短地址做映射。

结合MD5的实现算法：

1. 将网址md5后生成32位串，分4段， 每段8字节

2. 对这四段循环处理，和0x3FFFFFFF与运算，即保留30位数据

3. 根据字母表长度取索引值，如a-zA-Z0-9，就有62位，取0x3D （下标从0开始）

4. 将前面的30位数据分成6段，每5位再和0x3D与运算，算得字母表下标，取到6位字符串

这种算法，会生成4个6位字符串。

lua版的算法如下：

local md5 = require "md5.core"function md5.sumhexa(k)k = md5.sum(k)return (string.gsub(k, ".", function (c)return string.format("%02x", string.byte(c))end))endlocal SHORT_BASE = {"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" ,"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"}local SHORT_PRE = "short_pre"function short_url(str)local m = md5.sumhexa(SHORT_PRE..str)local ret = {}for k=0,3 dolocal sub = string.sub(m, k*8+1, k*8+8)local int =  0x3fffffff & tonumber(sub, 16)local out = ''for j=1,6 dolocal v = ( 0x3d & int) + 1out = out .. SHORT_BASE[v]int = int >> 5endtable.insert(ret, out)endreturn retendlocal ret = short_url("hello world")for k,v in pairs(ret) doprint("short_url", v)end

注意了，lua比较特殊，数组下标从1开始。结果如下：

另外，再提供可让用户输入的短地址版本。就是只保留大写字母和数字，同时去掉了容易混淆的O0I1 。算法类似，可做激活码。

local md5 = require "md5.core"function md5.sumhexa(k)k = md5.sum(k)return (string.gsub(k, ".", function (c)return string.format("%02x", string.byte(c))end))endlocal SHORT_BASE = {'A','B','C','D','E','F','G','H','J','K','L','M','N','P','Q','R','S','T','U','V','W','X','Y','Z','2','3','4','5','6','7','8','9',}local SHORT_PRE = "short_pre"function short_url(str)local m = md5.sumhexa(SHORT_PRE..str)local ret = {}for k=0,3 dolocal sub = string.sub(m, k*8+1, k*8+8)local int =  0x3fffffff & tonumber(sub, 16)local out = ''for j=1,6 dolocal v = ( 0x1f & int) + 1out = out .. SHORT_BASE[v]int = int >> 5endtable.insert(ret, out)endreturn retendlocal ret = short_url("hello world")for k,v in pairs(ret) doprint("short_url", v)end

结果如下：

参考：

http://blog.csdn.net/mycwq/article/details/52326266