https://ru.wikipedia.org/wiki/Ident
tcpserver.pl:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
#!/usr/bin/perl #tcpserver.pl use IO::Socket::INET; # ОТПРАВКА IDENT с данными $data # (для идентфикации) # flush after every write $| = 1; my ($socket,$client_socket); my ($peeraddress,$peerport); # creating object interface of IO::Socket::INET modules which internally does # socket creation, binding and listening at the specified port address. $socket = new IO::Socket::INET ( LocalHost => '10.25.116.194', LocalPort => '113', Proto => 'tcp', Listen => 5, Reuse => 1 ) or die "ERROR in Socket Creation : $!\n"; print "SERVER Waiting for client connection on port 113\n"; while(1) { # waiting for new client connection. $client_socket = $socket->accept(); # get the host and port number of newly connected client. $peer_address = $client_socket->peerhost(); $peer_port = $client_socket->peerport(); print "Accepted New Client Connection From : $peeraddress, $peerport\n "; # read operation on the newly accepted client $data = <$client_socket>; # we can also read from socket through recv() in IO::Socket::INET # $client_socket->recv($data,1024); print "Received from Client : $data\n"; # write operation on the newly accepted client. $data = "USERID: WINDOWS : ruslan1001"; print $client_socket "$data\n"; $client_socket->close(); # we can also send the data through IO::Socket::INET module, # $client_socket->send($data); } $socket->close(); |
