Непонятный алгоритм смены ID исходящих пакетов

[guplen]

толи таблицы формируются другим алгоритмом, толи выборка из них идет другим способом. Хз как проверить. Но нетПинг и ЧарактерСелект не меняют своего ИД.

Добавлено через 4 минуты

     cur_pos := Pos(#$12, _1_byte_table);
     x := GInt(_1_byte_table, $13, 1);
     PInt(_1_byte_table, $12, $13, 1);
     PInt(_1_byte_table, x, cur_pos, 1);

     cur_pos := Pos(#$B1, _1_byte_table);
     x := GInt(_1_byte_table, $B2, 1);
     PInt(_1_byte_table, $B1, $B2, 1);
     PInt(_1_byte_table, x, cur_pos, 1);

Вот тута ИД нетПинга ($B1) и ЧарактерСелект($12) встают на свои места.

Добавлено через 4 минуты
А может они вообще функцию псевдорандома поменяли?