php Telnet IRC Server

From NAT, 7 Years ago, written in PHP, viewed 842 times.

URL https://code.nat.moe/view/9db883d4 Embed

Download Paste or View Raw

<?php
if(!extension_loaded('sockets')){
  die('[ERROR}The sockets extension is not loaded!');
}
const PORT=23;
$socket=socket_create(AF_INET,SOCK_STREAM,SOL_TCP) or die('[ERROR]Socket create error!');
socket_set_option($socket,SOL_SOCKET,SO_REUSEADDR,1);
socket_bind($socket,0,PORT);
socket_listen($socket);
socket_set_nonblock($socket);
echo 'listen on port '.PORT.'...'.PHP_EOL;
$clients=array($socket);
while(TRUE){
    $read=$clients;
    $write=$except=array();
    if(socket_select($read,$write,$except,0)<1){
        continue;
    }
    if(in_array($socket,$read)){
        $clients[]=$newsocket=socket_accept($socket);
        socket_write($newsocket,"Welcome to NAT-IRC!\nThere are ".(count($clients)-1)." client here\n");
        socket_getpeername($newsocket,$ip);
        echo "[INFORM]New client connected:$ip\n";
        $key=array_search($newsocket,$read);
        unset($read[$key]);
    }
    foreach($read as $read_socket){
        $data=@socket_read($read_socket,1024,PHP_NORMAL_READ);
        if($data===false){
            $key=array_search($read_socket,$clients);
            unset($clients[$key]);
            echo "[INFORM]Client disconnectd.\n";
            continue;
        }
        $data=trim($data);
        if(!empty($data)){
            foreach($clients as $write_socket){
                if($write_socket==$socket||$write_socket==$read_socket){
                    continue;
                }
                socket_write($write_socket,"$data\n");
            }
        }
    }
}
socket_close($socket);
?>

Reply to "php Telnet IRC Server"

Here you can reply to the paste above

Author What's your name?

Title Give your paste a title.

Language What language is your paste written in?

Your paste Paste your paste here

<?php
if(!extension_loaded('sockets')){
  die('[ERROR}The sockets extension is not loaded!');
}
const PORT=23;
$socket=socket_create(AF_INET,SOCK_STREAM,SOL_TCP) or die('[ERROR]Socket create error!');
socket_set_option($socket,SOL_SOCKET,SO_REUSEADDR,1);
socket_bind($socket,0,PORT);
socket_listen($socket);
socket_set_nonblock($socket);
echo 'listen on port '.PORT.'...'.PHP_EOL;
$clients=array($socket);
while(TRUE){
    $read=$clients;
    $write=$except=array();
    if(socket_select($read,$write,$except,0)<1){
        continue;
    }
    if(in_array($socket,$read)){
        $clients[]=$newsocket=socket_accept($socket);
        socket_write($newsocket,"Welcome to NAT-IRC!\nThere are ".(count($clients)-1)." client here\n");
        socket_getpeername($newsocket,$ip);
        echo "[INFORM]New client connected:$ip\n";
        $key=array_search($newsocket,$read);
        unset($read[$key]);
    }
    foreach($read as $read_socket){
        $data=@socket_read($read_socket,1024,PHP_NORMAL_READ);
        if($data===false){
            $key=array_search($read_socket,$clients);
            unset($clients[$key]);
            echo "[INFORM]Client disconnectd.\n";
            continue;
        }
        $data=trim($data);
        if(!empty($data)){
            foreach($clients as $write_socket){
                if($write_socket==$socket||$write_socket==$read_socket){
                    continue;
                }
                socket_write($write_socket,"$data\n");
            }
        }
    }
}
socket_close($socket);
?>

Create Shorturl Create a shorter url that redirects to your paste?

Private Private paste aren't shown in recent listings.

Delete After When should we delete your paste?

Spam protection Type in the letters

nat-code

php Telnet IRC Server

Reply to "php Telnet IRC Server"