Computercraft Internet test (Server side)

modem =  peripheral.find("modem")
network = 160
myport = "1600"
key = "1234"
nokey = false
ownnet = false --Experimental
modem.open(network)
while true do
    event, modemSide, senderDistance, replyChannel, message = os.pullEvent("modem_message")
    if message == myport then
--      event, modemSide, senderDistance, replyChannel, message = os.pullEvent("modem_message")
--      computerID = message
--      print("First connection made with Computer #" .. computerID)
        modem.transmit(replyChannel, 160, "Key")
        event, modemSide, senderDistance, replyChannel, message = os.pullEvent("modem_message")
        if nokey then
            message = key
        end
        if message == key then
--          print("Successful connection from Computer #" .. computerID)
            if ownnet then
                modem.transmit(replyChannel, 160, "T")
                os.sleep(1)
                network = math.random(1600, 65535)
                modem.transmit(replyChannel, 160, tostring(network))
                modem.close()
                modem.open(network)
                os.sleep(1)
            else
                modem.transmit(replyChannel, 160, "F")
            end
            modem.transmit(replyChannel, network, "R")
            os.sleep(1)
            modem.transmit(replyChannel, network, "EDIT THE CODE INSIDE THIS SERVER TO CHANGE THIS MESSAGE")
            os.sleep(1)
            modem.transmit(replyChannel, network, "E")
            os.sleep(1)
            modem.transmit(replyChannel, network, "E")
            os.sleep(1)
            modem.transmit(replyChannel, network, "E")
            os.sleep(1)
            modem.transmit(replyChannel, network, "E")
            os.sleep(6)
        else
--          print("Computer #" .. computerID .. " entered the wrong key to this server and was denied access")
        end
    end
end