Исправление контрольной суммы в UDP-пакетах для Delphi: решение проблемы с RAW IP-сокетами

Delphi , ОС и Железо , Windows

Если вы сталкиваетесь с необходимостью отправки и приема сырых UDP-пакетов через Winsock2 в среде Delphi, вы можете столкнуться с проблемами, связанными с неправильным расчетом контрольной суммы. В этом руководстве мы рассмотрим, как исправить эту проблему, используя примеры кода на Object Pascal, который является основным языком программирования в Delphi.

Проблема

Вы создали сырые IP-пакеты, содержащие UDP-пакеты с полезными данными (например, запрос DNS). Вы можете отправлять их и видеть в Wireshark, что они отправляются, и Wireshark корректно их обрабатывает как законные запросы DNS. Однако вы не получаете ответ от DNS-сервера, и в Wireshark отображается только ваш запрос.

Пример кода

Вот пример кода, который вы использовали для отправки и приема данных:

// Ваш код для отправки и приема данных

Решение проблемы

В вашем коде обнаружено, что основная проблема связана с расчетом контрольной суммы UDP-пакета. Вы обнаружили, что контрольная сумма, генерируемая вашим кодом, отличается от контрольной суммы, генерируемой простым инструментом "ping" для тех же входных данных. После замены контрольной суммы на ту, что генерирует "ping", вы получили ответ от DNS-сервера.

Исправление

Вам нужно использовать правильный алгоритм для расчета контрольной суммы. Вот исправленный код функции CheckSum, который корректно рассчитывает контрольную сумму:

function CheckSum(var Buffer; Size: Integer): Word;
var
  ChkSum: LongWord;
  i: Integer;
  Item: Word;
begin
  ChkSum := 0;
  i := 0;
  while Size > 1 do
  begin
    Item := Swap(TWordArray(Buffer)[i]);
    ChkSum := ChkSum + Item;
    Inc(i);
    Size := Size - SizeOf(Word);
  end;
  if Size = 1 then
    ChkSum := ChkSum + Byte(Swap(TWordArray(Buffer)[i]));
  ChkSum := (ChkSum shr 16) + (ChkSum and $FFFF);
  ChkSum := not ChkSum;
  Result := Word(ChkSum);
end;

Комментарии к коду

• Используйте Swap для корректного представления данных в памяти, так как байты в памяти могут идти в разном порядке в зависимости от архитектуры (little-endian или big-endian).
• В случае, если размер буфера нечетный, добавьте последний байт к сумме после цикла.
• Примените логическую операцию not к результату, чтобы получить двухбайтовое дополнение до нуля.

Альтернативные подходы

• Убедитесь, что сокет для приема данных полностью инициализирован перед отправкой запроса.
• Используйте Wireshark для проверки, что запрос отправляется и приходит в ожидаемом режиме, а сокет приема готов обработать ответ.

Следуя этим шагам, вы сможете исправить вашу проблему с отправкой и приемом сырых UDP-пакетов в Delphi.

Создано по материалам из источника по ссылке.

Улучшение функциональности сырого сокета в Delphi путем корректного расчета контрольной суммы UDP-пакетов для обеспечения их правильной обработки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::