RedBruter

term.clear()
term.setCursorPos(1,1)

--- Thank Kaos for the code below ---
local id=1
chars={'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',' ','1','2','3','4','5','6','7','8','9','0'}
--chars={'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',',','.','/',';','\'','[',']','-','=','\\','<','>','?',':','"','{','}','_','+','`','~','1','2','3','4','5','6','7','8','9','0','!','@','#','$','%','^','&','*','(',')',' '}
function cyclechar(current)
    local tChars={}
    for i=1,#current do
        tChars[#tChars+1]=string.sub(current,i,i)
    end
    --for k,v in pairs(tChars) do print(v) end
    local at=#tChars+1
    local returned=nil
    local looping=1
    while looping==1 do
        at=at-1
        if at==0 then
            returned='a'
            break
        end
        for k,v in pairs(chars) do
            if tChars[at]==v and k~=#chars then
                tChars[at]=chars[k+1]
                looping=0
                break
            elseif tChars[at]==v and k==#chars then
                tChars[at]=chars[1]
            end
        end
    end
    local returned=returned or ''
    for k,v in pairs(tChars) do
        returned=returned..v
    end
    return returned
end
--- Thank Kaos for the code above ---

local keycode='a'
print("Rednet Brute forcer v1.0")
for k,v in pairs( rs.getSides() ) do rednet.open(v) end
write("Enter ID: ")
id = tonumber(read())
print("\nEnter Message")
print("#pass will be replaced with the bruted text.")
print("--------------------------------------------\n")
print("repeat")
write("  rednet.send(" ..id.. ", \"")
local _,y = term.getCursorPos()
message = read()
term.setCursorPos(1,y)
term.clearLine()
print("  rednet.send(" ..id.. ", \"" ..message.. "\")")

write("  sleep(tonumber(")
sleeper = read()
term.setCursorPos(1,y+1)
term.clearLine()
print("  sleep(tonumber(" ..sleeper.. "))")

write("until message == ")
endMessage = read()
print("\n--------------------------------------------\nSending...")
local messages = 1

local x,y = term.getCursorPos()
write("Sent: " ..messages)

if string.lower(sleeper) == "insane" then
    vxTimer = os.startTimer(tonumber(0))
    while true do
        for i=1, 300 do
            local moderatedMessage = string.gsub(message, "#pass", keycode)
            rednet.send(id, moderatedMessage)
            local event, tID, tMessage = os.pullEvent()
            if event == "timer" and tID == vxTimer then
                keycode=cyclechar(keycode)
                vxTimer = os.startTimer(tonumber(0))
            elseif tMessage == endMessage then
                print("Complete! ")
                print("Password: " ..keycode)
                break
            end
            term.setCursorPos(x,y)
            term.clearLine()
            messages = messages+1
            print("Sent: " ..messages.. " - Insane mode ON")
            write("Currently: " ..keycode)
        end

        sleep(0)
    end
else
    vxTimer = os.startTimer(tonumber(sleeper))
    while true do
        local moderatedMessage = string.gsub(message, "#pass", keycode)
        rednet.send(id, moderatedMessage)
        local event, tID, tMessage = os.pullEvent()
        if event == "timer" and tID == vxTimer then
            keycode=cyclechar(keycode)
            vxTimer = os.startTimer(tonumber(sleeper))
        elseif tMessage == endMessage then
            print("Complete! ")
            print("Password: " ..keycode)
            break
        end
        term.setCursorPos(x,y)
        term.clearLine()
        messages = messages+1
        print("Sent: " ..messages)
        write("Currently: " ..keycode)
    end
end