crack

local s={0,0,0,0,0,0,0}
local sc="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local c=1
while true do
    c=c+1
    if c%1000==0 then
        sleep(0)
    end
    local d=""
    for k,v in pairs(s) do
        d=d..string.sub(sc,v+1,v+1)
    end
    print(d)
    if pcall(peripheral.call,"back","connect",d) then
        error()
    end
    s[1]=s[1]+1
    for k,v in pairs(s) do
        if v>(#sc-1) then
            s[k]=0
            s[k+1]=s[k+1]+1
        end
    end
end