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

yuan71058

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

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


补充内容 (2024-10-5 07:48):
https://github.com/qiqizjl/lua-resty-authcode/tree/master

baitso

md5、base64库自己找下

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

 -- LuaRocks安装lua-resty-string 实现 md5 base64
local md5 = require("resty.string").to_hex(require("resty.hash").md5)  
local base64_encode, base64_decode = require("resty.string").to_base64, require("resty.string").from_base64  
  
function encrypt_decrypt(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(string.sub(key, 1, 16))  
    -- 密匙b会用来做数据完整性验证  
    local keyb = md5(string.sub(key, 17, 32))  
    -- 密匙c用于变化生成的密文  
    local keyc  
    if ckey_length then  
        if operation == 'DECODE' then  
            keyc = string.sub(str, 1, ckey_length)  
        else  
            local md5_time = md5(os.time() * 1000)  -- Lua没有microtime，使用os.time()代替  
            local start = #md5_time - ckey_length + 1  
            keyc = string.sub(md5_time, start, start + ckey_length - 1)  
        end  
    else  
        keyc = ''  
    end  
  
    local cryptkey = keya .. md5(keya .. keyc)  
  
    local strbuf  
  
    if operation == 'DECODE' then  
        str = string.sub(str, ckey_length + 1)  
        strbuf = base64_decode(str)  
    else  
        expiry = expiry and os.difftime(os.time(), -expiry) or 0  
        local tmpstr = tostring(expiry)  
        if #tmpstr >= 10 then  
            str = string.sub(tmpstr, 1, 10) .. string.sub(md5(str .. keyb), 1, 16) .. str  
        else  
            local count = 10 - #tmpstr  
            for i = 1, count do  
                tmpstr = '0' .. tmpstr  
            end  
            str = tmpstr .. string.sub(md5(str .. keyb), 1, 16) .. str  
        end  
        strbuf = str  
    end  
  
    local box = {}  
    for i = 0, 255 do  
        box[i + 1] = i + 1  
    end  
  
    local rndkey = {}  
  
    for i = 0, 255 do  
        rndkey[i + 1] = string.byte(cryptkey, (i + 1) % #cryptkey + 1)  
    end  
  
   
    for j, i = 0, 256 do  
        j = (j + box[i + 1]) % 256 + 1  
        box[i + 1], box[j] = box[j], box[i + 1]  
    end  
  
    -- 核心加解密部分  
    local s = ''  
    for a, i = 0, #strbuf do  
        a = (a + 1) % 256 + 1  
        j = (j + box[a]) % 256 + 1  
        box[a], box[j] = box[j], box[a]  
        s = s .. string.char(string.byte(strbuf, i + 1) ~ (box[(box[a] + box[j] - 2) % 256 + 1]))  
    end  
  
    if operation == 'DECODE' then  
        local time_check = tonumber(string.sub(s, 1, 10))  
        if time_check == 0 or os.difftime(os.time(), -time_check) > 0 and string.sub(s, 11, 26) == string.sub(md5(string.sub(s, 27)), 1, 16) then  
            s = string.sub(s, 27)  
        else  
            s = ''  
        end  
    else  
        s = base64_encode(s):gsub("=", "")  
        s = keyc .. s  
    end  
  
    return s  
end  
  
-- print(encrypt_decrypt("your_string", "ENCODE", "your_key", 3600))  
-- print(encrypt_decrypt(result_from_above_call, "DECODE", "your_key", 0))

lao3

这不是dz的authcode么~

github找一下就有了