Функции Для Разработчиков, склад полезных функций

tSequence = {
    {"q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "a", "s", "d", "f", "g", "h", "j", "k", "l", "z", "x", "c", "v", "b", "n", "m",},
    {"m", "n", "b", "v", "c", "x", "z", "l", "k", "j", "h", "g", "f", "d", "s", "a", "p", "o", "i", "u", "y", "t", "r", "e", "w", "q",},
    {"й", "ц", "у", "к", "е", "н", "г", "ш", "щ", "з", "х", "ъ", "ф", "ы", "в", "а", "п", "р", "о", "л", "д", "ж", "э", "я", "ч", "с", "м", "и", "т", "ь", "б", "ю",},
    {"ю", "б", "ь", "т", "и", "м", "с", "ч", "я", "э", "ж", "д", "л", "о", "р", "п", "а", "в", "ы", "ф", "ъ", "х", "з", "щ", "ш", "г", "н", "е", "к", "у", "ц", "й",},
    {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0",},
    {"0", "9", "8", "7", "6", "5", "4", "3", "2", "1",},
}

function CheckPassword(pass)
    local passlen = #pass
    if passlen < 2 then return true end

    local tpass = {}
    for i = 1,passlen do
        table.insert(tpass,pass:sub(i,i))
    end

    local success = false
    for i = 2,passlen do
        if tpass[i] ~= tpass[1] then
            success = true
            break
        end
    end
    if not success then
        return false, "Пароль не может состоять из одинаковых символов"
    end
    for i,v in ipairs(tSequence) do
        success = false
        local first
        for n,c in ipairs(v) do
            if c == tpass[1] then
                first = n
                break
            end
        end
        if first then
            for i = 2,passlen do
                first = first+1
                if not v[first] or v[first] ~= tpass[i] then
                    success = true
                    break
                end
            end
            if not success then
                return false, "Пароль не может состоять из клавиатурных последовательностей (qwerty, 123456, и.т.д.)"
            end
        end
    end
    return true
end

serialize(table, write_fnc)

local file = io.open("file_name.lua","w")
file:write("x = ")
serialize(_G, function(part) file:write(part) end)

var builder = new_string_builder()
builder.add("return ")
serialize(_G, builder.add)
print(builder.get())

local tFastDebug = {}
local iMaxFastDebug = 30

function LogFastDebug(sMsg) if #tFastDebug >= iMaxFastDebug then table.remove(tFastDebug, 1) end table.insert(tFastDebug, sMsg) end
function GetFastDebug() local sRet = "" for i, sMsg in ipairs(tFastDebug) do sRet = sRet..i..". "..sMsg.."\n" end return sRet end

table.maxn = function(t)
    local maxn = 0
    for i in pairs(t) do
        if type(i) == "number" and i > maxn then
            maxn = i
        end
    end
    return maxn
end

table.maxn = function(t)
    local maxn, i = 0
    repeat
        i = next(t,i)
        if type(i) == "number" and i > maxn then
            maxn = i
        end
    until not i
    return maxn
end

table.maxn = function(t)
    local maxn, i = 0, next(t)
    while i do
        if type(i) == "number" and i > maxn then
            maxn = i
        end
        i = next(t,i)
    end
    return maxn
end

local t = {"aaa", "bbb", ["a1"] = "xxx", [5] = "zzz"}
print(table.maxn1(t), table.maxn2(t), table.maxn3(t), table.maxn(t), #t)

5       5       5       5       2

local tRus = {
"А","Б","В","Г","Д","Е",--[["Ё",]]"Ж","З","И","Й","К","Л","М","Н","О","П",--[["Р","С",]]"Т","У","Ф","Х","Ц","Ч","Ш","Щ","Ы","Ъ","Ь","Э","Ю","Я",
"а","б","в","г","д","е",--[["ё",]]"ж","з","и","й","к","л","м","н","о","п",--[["р","с",]]"т","у","ф","х","ц","ч","ш","щ","ь","ы","ъ","э","ю","я"
}

function DecodeMsg(s)
    for _,v in pairs (tRus) do
        if string.find(s,v) then return s end
    end
    s = (s:convert("utf-8","cp1251"))
    return s
end

function Utf8ToAnsi(s)
    ...
    if b < 128 then
        if nmdc[b] then
            r = r..nmdc[b]
        else
            r = r..string.char(b)
        end
    ...
end

function Utf8ToAnsi(s)
    ...
    if b < 128 then
        r = r..string.char(b)
    ...
end