求大佬将这个JS加解密函数翻译成LUA

donghaostdio

[JavaScript] 纯文本查看 复制代码

function (str, operation, key, expiry) {
    var operation = operation ? operation : 'DECODE';
    var key = key ? key : '';
    var expiry = expiry ? expiry : 0;

    var ckey_length = 4;
    key = md5(key);

    // 密匙a会参与加解密
    var keya = md5(key.substr(0, 16));
    // 密匙b会用来做数据完整性验证
    var keyb = md5(key.substr(16, 16));
    // 密匙c用于变化生成的密文
    // IE下不支持substr第一个参数为负数的情况
    if (ckey_length) {
        if (operation == 'DECODE') {
            var keyc = str.substr(0, ckey_length);
        } else {
            var md5_time = md5(microtime());
            var start = md5_time.length - ckey_length;
            var keyc = md5_time.substr(start, ckey_length)
        }
    } else {
        var keyc = '';
    }
    // 参与运算的密匙
    var cryptkey = keya + md5(keya + keyc);

    var strbuf;

    if (operation == 'DECODE') {
        str = str.substr(ckey_length);
        strbuf = base64_decode(str);
        //string = b.toString();
    } else {
        expiry = expiry ? expiry + time() : 0;
        tmpstr = expiry.toString();
        if (tmpstr.length >= 10) str = tmpstr.substr(0, 10) + md5(str + keyb).substr(0, 16) + str;
        else {
            var count = 10 - tmpstr.length;
            for (var i = 0; i < count; i++) {
                tmpstr = '0' + tmpstr;
            }
            str = tmpstr + md5(str + keyb).substr(0, 16) + str;
        }
        strbuf = str;
    }

    var box = new Array(256);
    for (var i = 0; i < 256; i++) {
        box[i] = i;
    }
    var rndkey = new Array();
    // 产生密匙簿
    for (var i = 0; i < 256; i++) {
        rndkey[i] = cryptkey.charCodeAt(i % cryptkey.length);
    }
    // 用固定的算法，打乱密匙簿，增加随机性，好像很复杂，实际上对并不会增加密文的强度
    for (var j = i = 0; i < 256; i++) {
        j = (j + box[i] + rndkey[i]) % 256;
        tmp = box[i];
        box[i] = box[j];
        box[j] = tmp;
    }

    // 核心加解密部分
    var s = '';
    //IE下不支持直接通过下标访问字符串的字符，需要先转换为数组
    strbuf = strbuf.split('');
    for (var a = j = i = 0; i < strbuf.length; i++) {
        a = (a + 1) % 256;
        j = (j + box[a]) % 256;
        tmp = box[a];
        box[a] = box[j];
        box[j] = tmp;
        // 从密匙簿得出密匙进行异或，再转成字符
        s += chr(ord(strbuf[i]) ^ (box[(box[a] + box[j]) % 256]));
    }

    if (operation == 'DECODE') {
        if ((s.substr(0, 10) == 0 || s.substr(0, 10) - time() > 0) && s.substr(10, 16) == md5(s.substr(26) + keyb).substr(0, 16)) {
            s = s.substr(26);
        } else {
            s = '';
        }
    } else {
        s = base64_encode(s);
        var regex = new RegExp('=', "g");
        s = s.replace(regex, '');
        s = keyc + s;
    }

    return s;
}

selfobj455

AI翻译的，你看看对不对，不对就算了;www

local function md5(str)
    -- Function to compute MD5 hash
    return require('md5').sumhexa(str)
end

local function microtime()
    return os.time() + os.clock()
end

local function base64_encode(input)
    return (require('base64').encode(input))
end

local function base64_decode(input)
    return (require('base64').decode(input))
end

local function chr(value)
    return string.char(value)
end

local function ord(char)
    return string.byte(char)
end

local function encryption_function(str, operation, key, expiry)
    operation = operation or 'DECODE'
    key = key or ''
    expiry = expiry or 0

    local ckey_length = 4
    key = md5(key)

    -- 密匙a会参与加解密
    local keya = md5(key:sub(1, 16))
    -- 密匙b会用来做数据完整性验证
    local keyb = md5(key:sub(17, 32))
    -- 密匙c用于变化生成的密文
    local keyc
    if ckey_length > 0 then
        if operation == 'DECODE' then
            keyc = str:sub(1, ckey_length)
        else
            local md5_time = md5(tostring(microtime()))
            local start = #md5_time - ckey_length + 1
            keyc = md5_time:sub(start, start + ckey_length - 1)
        end
    else
        keyc = ''
    end

    local cryptkey = keya .. md5(keya .. keyc)

    local strbuf

    if operation == 'DECODE' then
        str = str:sub(ckey_length + 1)
        strbuf = base64_decode(str)
    else
        if expiry > 0 then
            expiry = expiry + os.time()
        end
        local tmpstr = tostring(expiry)
        if #tmpstr >= 10 then
            str = tmpstr:sub(1, 10) .. md5(str .. keyb):sub(1, 16) .. str
        else
            local count = 10 - #tmpstr
            tmpstr = string.rep('0', count) .. tmpstr
            str = tmpstr .. md5(str .. keyb):sub(1, 16) .. str
        end
        strbuf = str
    end

    local box = {}
    for i = 0, 255 do
        box[i] = i
    end
    local rndkey = {}
    for i = 0, 255 do
        rndkey[i] = ord(cryptkey:sub((i % #cryptkey) + 1, (i % #cryptkey) + 1))
    end

    local j = 0
    for i = 0, 255 do
        j = (j + box[i] + rndkey[i]) % 256
        box[i], box[j] = box[j], box[i]
    end

    local s = ''
    strbuf = {strbuf:byte(1, #strbuf)}
    local a, b = 0, 0
    for i = 1, #strbuf do
        a = (a + 1) % 256
        b = (b + box[a]) % 256
        box[a], box[b] = box[b], box[a]
        s = s .. chr(ord(string.char(strbuf[i])) ~ (box[(box[a] + box[b]) % 256]))
    end

    if operation == 'DECODE' then
        if (s:sub(1, 10) == '0' or tonumber(s:sub(1, 10)) > os.time()) and 
            s:sub(11, 26) == md5(s:sub(27) .. keyb):sub(1, 16) then
            s = s:sub(27)
        else
            s = ''
        end
    else
        s = base64_encode(s)
        s = s:gsub('=', '')
        s = keyc .. s
    end

    return s
end

donghaostdio

https://github.com/qiqizjl/lua-resty-authcode/tree/master