Mikrotik DHCP Routes options 121 and 249

Mikrotik, DHCP Classless Route

TL;DR

Микротик умеет выдавать маршруты по dhcp хотя конфигуриться это через жопу

Зачем это может быть нужно

Ебучий корпоративный впн разворачивает в себя дефолт, и все хосты в домашней сети кроме L2-connected становятся недоступны. Настройки ВПНа на серверной стороне мне не доступны (и не факт что это убожество умеет нужные фичи)
Соответвенно есть 2 решения и оба они гребаные костыли:

• прописывать маршруты локально каждый раз при поднятии ВПНа (скриптом например)
• выдавать маршруты с dhcp (они будут работать так как за счет более узкой маски будут предпочтительнее чем default)

Как это настроить на микротике

Эта задача разделяется на 2 части

• Сформировать правильно значение опций
• Прописать на микротике

Option 121 и 249

Для устройств с разной реализацией DHCP клиента нужны 2 разные опции (винда/все остальные) но так как формат одинаковый то сложности тут немного

Формат опций 121 и 249

Опция 121, как и все остальные DHCP опции, описана в rfc3442. Этот документ диктует следующие правила и требования к 121 параметру:

• минимальная длина 5 байт.
• можно вписать один или более маршрутов
• каждый из маршрутов должен содержать Адрес сети назначения и IP адрес шлюза.

Согласно этого же документа схема маршрута будет выглядеть так:

Code   Len Destination 1 Router 1
+-----+---+----+-----+----+----+----+----+----+
| 121 | n | d1 | ... | dN | r1 | r2 | r3 | r4 |
+-----+---+----+-----+----+----+----+----+----+

Destination 2 Router 2
+----+-----+----+----+----+----+----+
| d1 | ... | dN | r1 | r2 | r3 | r4 |
+----+-----+----+----+----+----+----+

Цитата:

DHCP server administrators [...] should specify the default router(s) both in the Router option and in the Classless Static Routes option.

На человеческом это значит что нужно кроме всех маршрутов в опциях выдавать еще и дефолт
Тут конечно мало что понятно - попробую привести пример

• маршрут 10.20.0.0/16 через шлюз 1.0.0.1
• Маски и адреса подобраны такими намеренно - что бы показать когда нули отбрасываются а когда нет

• Маска dec(16) => 0x10 - маска будет 10, причем в маске все знаки - значащие, для маски /8 значение будет 0x08 а не 0x8
• Адрес сети 10.20.0.0
  • последние 2 октета тут не значащие (они относятся к адресу хоста а не адресу сети, и это опредеяется по маске, и они отбрасываются
  • dec(10) => 0x0A - так же как для маски, на каждый октет отводится строго два разряда
  • dec(20) => 0x14 - тут вопрос разрядности не возникает
  • итоговое значение которое нужно записать в опцию 0a 14
• Шлюз 1.0.0.1 преобразовывается по аналогии с адресом сети, итоговое значение 1 => 0x01 0 => 0x00 0 => 0x00 1 => 0x01 Итого - 01000001

Соответвенно конечный результат получается соединением всех частей: Маска 10 Адрес Сети 0a 14 Адрес Шлюза01000001 => 0x100a1401000001

Как это настроить на Mikrotik

/ip dhcp-server option
add code=121 name=static_routes_121 value=0x180a4800c0a816fe130a5000c0a816fe16ac1f00c0a816fe18ac1f64c0a816fe0a6440c0a816fe00c0a816fe
add code=249 name=static_routes_249 value=0x180a4800c0a816fe130a5000c0a816fe16ac1f00c0a816fe18ac1f64c0a816fe0a6440c0a816fe00c0a816fe

/ip dhcp-server option sets
add name=static_routes options=static_routes_249,static_routes_121

/ip dhcp-server
add add-arp=yes address-pool=bridge-home-network-192.168.22.0 comment=bridge-home-network dhcp-option-set=static_routes interface=bridge-home-network-vlan3104 lease-time=1h name=dhcp-server-bridge-home-network server-address=192.168.22.254

Скрипт для генерации Options

#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use diagnostics;
use v5.10.0;

my ($net, $gw, $aggregate) = ("", "", "");
my $re_ip = "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)";

foreach (@ARGV) {
    unless ($net) { $net = $_; next; }
    unless ($gw) {
        $gw = $_;

        my ($network, $subnetmask) = split("/", $net);

        if (($subnetmask>=0 && $subnetmask<=32) && $network =~ /^$re_ip$/ && $gw =~/^$re_ip$/ ) {

            my (@destination) = split( /\./, $network );
            my $destination = "";

            my (@router) = split( /\./, $gw );
            my $router = "";

            my $networklen = to_hex($subnetmask);

            my $significantoctets = 0;
            $significantoctets = 1 if $subnetmask>=1 && $subnetmask<=8;
            $significantoctets = 2 if $subnetmask>=9 && $subnetmask<=16;
            $significantoctets = 3 if $subnetmask>=17 && $subnetmask<=24;
            $significantoctets = 4 if $subnetmask>=25 && $subnetmask<=32;

            if ($significantoctets>0) {
                foreach my $index (1..$significantoctets) {
                    $destination .= to_hex($destination[$index-1]);
                }
            } else {
                $destination .= "";
            }

            foreach my $r (@router) {
                $router .= to_hex($r);
            }

            $aggregate .= sprintf("%s%s%s", $networklen, $destination, $router);

            printf(
                "option_121_route %s : netmask: 0x%s\n",
                $net, $networklen
            );

            printf(
                "option_121_route %s : destination: 0x%s\n",
                $net, $destination
            );

            printf(
                "option_121_route %s : gateway: 0x%s\n",
                $net, $router
            );


            printf(
                "option_121_route_%s_via_%s : 0x%s%s%s\n",
                $net, $gw, $networklen, $destination, $router
            );
            printf(
                "option_249_route_%s_via_%s : 0x%s%s%s\n",
                $net, $gw, $networklen, $destination, $router
            );

        } else {
            print STDERR sprintf("Mask %d, network %s or gateway %s error\n");
        }

    }
    $net = "";
    $gw = "";
}

if ($aggregate) {
    printf("aggregate_opt_121 : 0x%s\n", $aggregate);
    printf("aggregate_opt_249 : 0x%s\n", $aggregate);
}


sub to_hex {
    my $n = shift;
    return "00" unless $n;
    $n = sprintf("%x", $n);
    ($n) = "0$n" =~ m/.*(..)$/;
    return $n;
}