nat-code

php Telnet IRC Server

From NAT, 7 Years ago, written in PHP, viewed 786 times.
URL https://code.nat.moe/view/9db883d4 Embed
Download Paste or View Raw
  1. <?php
  2. if(!extension_loaded('sockets')){
  3.   die('[ERROR}The sockets extension is not loaded!');
  4. }
  5. const PORT=23;
  6. $socket=socket_create(AF_INET,SOCK_STREAM,SOL_TCP) or die('[ERROR]Socket create error!');
  7. socket_set_option($socket,SOL_SOCKET,SO_REUSEADDR,1);
  8. socket_bind($socket,0,PORT);
  9. socket_listen($socket);
  11. echo 'listen on port '.PORT.'...'.PHP_EOL;
  12. $clients=array($socket);
  13. while(TRUE){
  14.     $read=$clients;
  15.     $write=$except=array();
  16.     if(socket_select($read,$write,$except,0)<1){
  17.         continue;
  18.     }
  19.     if(in_array($socket,$read)){
  20.         $clients[]=$newsocket=socket_accept($socket);
  21.         socket_write($newsocket,"Welcome to NAT-IRC!\nThere are ".(count($clients)-1)." client here\n");
  22.         socket_getpeername($newsocket,$ip);
  23.         echo "[INFORM]New client connected:$ip\n";
  24.         $key=array_search($newsocket,$read);
  25.         unset($read[$key]);
  26.     }
  27.     foreach($read as $read_socket){
  28.         $data=@socket_read($read_socket,1024,PHP_NORMAL_READ);
  29.         if($data===false){
  30.             $key=array_search($read_socket,$clients);
  31.             unset($clients[$key]);
  32.             echo "[INFORM]Client disconnectd.\n";
  33.             continue;
  34.         }
  35.         $data=trim($data);
  36.         if(!empty($data)){
  37.             foreach($clients as $write_socket){
  38.                 if($write_socket==$socket||$write_socket==$read_socket){
  39.                     continue;
  40.                 }
  41.                 socket_write($write_socket,"$data\n");
  42.             }
  43.         }
  44.     }
  45. }
  46. socket_close($socket);
  47. ?>

Reply to "php Telnet IRC Server"

Here you can reply to the paste above

captcha
Powered by Stikked