Генерация чисел по маске

[samlab]

Очень грептит реализовать нетривиальную задачу, а именно - генерация заданного рамками айпишника . Как генерировать рандомно число, я знаю, а как быть в этом случае, допустим, задал промежуток 1.1.1.1 - 5.5.5.5 , каким образом реализовать генерацию ипа? Полностью генерировать видимо не получится, для каждого числа брать отдельно переменную, а потом объединять в одной переменной все или есть какой-то другой способ... Очень прошу помочь, а то от такой жары плавится мой компьютер и мои мозги, ну никак не соображу, как тут быть, а очень хочется, заранее спасибо большое!

[Алексей++]

число от 1 до 5 умеешь генерировать -> генерируешь 4 таких числа. Потом, в зависимости от задачи, соединяешь их в строку или в двойное слово - побитовым или

[RXL]

Леш, немного не так.

samlab, вспомни, что в IP каждая компонента - один байт и что IPv4 адрес можно представить как 32-битное число:

1.2.3.4 -> 1 * 2^24 + 2 * 2^16 + 3 * 2^8 + 4

1.1.1.1 = 0x01010101
5.5.5.5 = 0x05050505
192.168.0.1 = 0xc0a80001

[Алексей++]

я вроде так и сказал Про то, как устроен IP, я предполагаю, что автор знает

[samlab]

Т.е., задача сводится к генерированию 32 битного числа? А потом его нужно преобразовать в IP ?

[RXL]

samlab, что тебе нужно, ты сам должен знать...

[samlab]

samlab, что тебе нужно, ты сам должен знать...

Понятно.

Добавлено через 19 часов, 57 минут и 47 секунд:
Вот, как сделал, кто, что скажет, бросайте камни в мой огород, а то, я так и не вкурил о представлении IP в 32-ом виде...

Код:

$r = '95';
$t ='.';

$r1 = int( rand(7)) + 24;
$t1 ='.';

$r2 = int( rand(256));
$t2 ='.';

$r3 = int( rand(256));

$new = $r.$t.$r1.$t1.$r2.$t2.$r3;

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

[RXL]

Или так:

Код:

#!/usr/bin/perl -W

use strict;

sub ip_to_n($)
{
  my ($ip_s) = @_;
  my $ip_n = 0;

  for my $part (split(/\./, $ip_s))
  {
    $ip_n <<= 8;
    $ip_n += $part;
  }

  return $ip_n;
}

sub n_to_ip($)
{
  my ($ip_n) = @_;

  return (($ip_n >> 24) & 0xff) . '.' . (($ip_n >> 16) & 0xff) . '.' . (($ip_n >> 8) & 0xff) . '.' . ($ip_n & 0xff);
}

sub get_rand_ip($$)
{
  my ($ip_from, $ip_to) = @_;
  my $ip_n;

  $ip_from = ip_to_n($ip_from);
  $ip_to = ip_to_n($ip_to);
  $ip_n = rand($ip_to - $ip_from + 1) + $ip_from;

  return n_to_ip($ip_n);
}

my $ip = get_rand_ip('95.24.0.0', '95.31.255.255');

print "Random IP: $ip\n";

[samlab]

Код:

Missing right curly or square bracket at C:\m.pl line 23, at end of line
syntax error at C:\m.pl line 23, at EOF
Execution of C:\m.pl aborted due to compilation errors.

А так, ваш код, уважаемый RXL, ваш код выглядит очень даже кошерно!

[RXL]

Я его не тестировал - забыл предупредить. Писал прямо в браузере.

Сейчас поправил и протестировал.

[samlab]

Спасибо

[Dimka]

Я не очень понимаю диапазон "1.1.1.1-5.5.5.5". Это 1.1.1.1, 1.1.1.2, ..., 1.1.1.255, ..., 4.255.255.255, ..., 5.5.5.4, 5.5.5.5? Или это 1.1.1.1, ..., 1.1.1.4, 1.1.1.5, 1.1.2.1, ..., 5.5.5.4, 5.5.5.5?

в IP каждая компонента - один байт и что IPv4 адрес можно представить как 32-битное число:

1.2.3.4 -> 1 * 2^24 + 2 * 2^16 + 3 * 2^8 + 4

Я так понимаю, Рома за первый вариант трактовки,

число от 1 до 5 умеешь генерировать -> генерируешь 4 таких числа. Потом, в зависимости от задачи, соединяешь их в строку или в двойное слово - побитовым или

а Лёша за второй.

А что имел в виду автор темы?

[RXL]

Dimka, диапазон - с/по. Последовательно, без учета сетей. Понятное дело, что если from и to задают начало и конец сети, то IP будет в этих рамках.

Второй вариант тоже имеет право на существование, но мне он не нравится.

Что имел в виду ТС - бог его знает... Трудности перевода

[Dimka]

RXL, мне лично больше нравится второй вариант, поскольку в нём не вылезут в качестве IP (надо полагать, хостов) адреса сетей и бродкастов. Хотя согласен, что выглядит это кривовато. Самое разумное на такой структуре - это задавать подсети с масками.

[RXL]

Дим, а ведь совершенно невозможно гарантировать, что все сети в указываемом диапазоне строятся на классовой основе. Т.ч. второй вариант ничем не лучше.