编辑代码

-- JSRUN引擎2.0，支持多达30种语言在线运行，全仿真在线交互输入输出。
-- 源编码gb2312
local b = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'

function base64_dec(data)
    data = string.gsub(data, '[^'..b..'=]', '')
    return (data:gsub('.', function(x)
        if (x == '=') then return '' end
        local r, f = '', (b:find(x) - 1)
        for i = 6, 1, -1 do r = r .. (f % 2 ^ i - f % 2 ^ (i - 1) > 0 and '1' or '0') end
        return r;
    end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
        if (#x ~= 8) then return '' end
        local c = 0
        for i = 1, 8 do c = c + (x:sub(i, i) == '1' and 2 ^ (8 - i) or 0) end
        return string.char(c)
    end))
end

function base64_enc(data)
    return ((data:gsub('.', function(x)
        local r, b ='', x:byte()
        for i = 8, 1, -1 do r = r .. (b % 2 ^ i - b % 2 ^ (i - 1) > 0 and '1' or '0') end
        return r;
    end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
        if (#x < 6) then return '' end
        local c = 0
        for i = 1, 6 do c = c + (x:sub(i, i) == '1' and 2 ^ (6 - i) or 0) end
        return b:sub(c + 1, c + 1)
    end)..({ '', '==', '=' })[#data % 3 + 1])
end

local s = "W+WPquWltuW9k+WJjeebruagh1185rCU6KGAPDAuOTcmYnVmZuaXtumXtDoyNjY4MDwtMQ=="
print(base64_dec(s))

local x = "[只奶当前目标]|气血<0.97&buff时间:26680<-1"
print(base64_enc(x))

--gb2312格式的Base64编码
local names = { "张三", "李四" }

--对每个元素进行遍历
for i, name in ipairs(names) do
    local encoded = base64_enc(name)
    print("加密:", encoded)
    print("解码:", base64_dec(encoded))
end