纯Lua实现Rc4加密

--本功能依赖于本博客Lua基本库另一篇文章，ZZMathBit

ZZRc4 = {}

function ZZRc4.encrypt(text,key)
    local function KSA(key)
        local keyLen = string.len(key)
        local schedule = {}
        local keyByte = {}
        for i = 0, 255 do
            schedule[i] = i
        end

        for i = 1, keyLen do
            keyByte[i - 1] = string.byte(key, i, i)
        end

        local j = 0
        for i = 0, 255 do
            j = (j + schedule[i] + keyByte[ i % keyLen]) % 256
            schedule[i], schedule[j] = schedule[j], schedule[i]
        end
        return schedule
    end

    local function PRGA(schedule, textLen)
        local i = 0
        local j = 0
        local k = {}
        for n = 1, textLen do
            i = (i + 1) % 256
            j = (j + schedule[i]) % 256
            schedule[i], schedule[j]