программка, клиент - сервер #! /usr/bin/perl use Socket; chdir ("c:client"); $headip="";#ip адрес сервера $mynik="mranarki"; #получение ip-адреса сервера open (fin, "config.txt"); chomp($headip=); close (fin); print "Running Client"; print "$headip"; #задание команды головному серверу print "Command to head server (ENTER to skip):"; chomp ($cmd=); if ($cmd ne "exit"){ #запрос [...]

Мне постоянно на порты для администрирования стучаться всякие подозрительные программы-клиенты и пытаются перебрать пароль или атаковать.  Чтобы защититься от этого я посидев сутки написал программу для защиты.