local betuk_eredeti = {"BOVNRKBFNAYXIHZGJODDFCHS",
"BLZTKJMLODFVGRTOPMRYXAOP",
"ORULTDILISSZERELEMIRCHMK",
"SQBECUIKLOWNRJTHLVVAGAIN",
"RJCJVQDFBGAIORUCFHEJOTHT",
"TSGIZARKYNXEDFCHJNGTZAVD",
"RKIOWALVBGFTFDAKHZAJOLRP",
"KBFNACBERDAIERTXHBZMKOGZ",
"KGTBJEGENGSZTEROSZTAGMJW",
"YZSCNDUXDTTHDAVCNJUKLAXT",
"YHYFTGTPJUINPRZFDMVGGRIP",
"MFQELIRNVGMNUTAMGRZDRNVE",
"AHILACOKSACKETHJMXHJNYFR",
"PVBNUNUSTZSMLODFVSNSWEZT",
"ASZERELMUNKLAPJAIKVNBKKA",
"ZUILLOTKTANLSXRGCASERAFC",
"ZDXSFJNLKGAABRLFUHYSQBLD",
"HTNOANGKHRJPZZUDZFZPHAGN",
"KHTNASVZRCEFTOLKJOVNGNAT",
}
 
local szavak_eredeti = {
    "gengszterosztag",
    "veresromanc",
    "plasztikszerelem",
    "tores",
    "felnelson",
    "szobatarsak",
    "afiatalkoru",
    "ahihetetlen",
    "alomsuli",
    "bluevalentine"
}

local betuk, szavak = {}, {}

for i=1,#betuk_eredeti do
    local t = {betuk_eredeti[i]:byte(1, -1)}
    table.sort(t)
    betuk[i] = t
end

for i=1,#szavak_eredeti do
    local t = {szavak_eredeti[i]:upper():byte(1, -1)}
    table.sort(t)
    szavak[i] = t
end

for i=1,#szavak do
    local szo = szavak[i]
    local szohossz = #szo
    for j=1,#betuk do
        local ozs = betuk[j]
        local n = 1
        for j=1,#ozs do
            if szo[n] == ozs[j] then
                if n == szohossz then
                    n = -1
                    break
                end
                n = n + 1
            end
        end
        if n == -1 then
            print(i, szavak_eredeti[i], j, betuk_eredeti[j])
            break -- ez kell ide? 
        end
    end
end