Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Контрольная Сумма [D7, WinXP]


-=Demon=- ©   (2004-04-08 14:16:00) 

Необходимо расчитать контрольную сумму для поля Ip пакета. Как это делается?


Verg   (2004-04-08 15:18:00) [1]

Например так:

После заполнения всех полей заголовка IP, полю контрольной суммы присавиватся 0, а затем, по всему заголовку IP пакета (только по заголовку) просчитыавется число, которое и заносится опять же в поле контрольной суммы.

ushort net_checksum( void *data, size_t len )
{
   ulong sum = 0;
   ushort *dp = (ushort*)data;
   ushort sum_s;
   ushort words = len >> 1;

   while( words -- )
sum += *dp ++;

   if( len & 1 )
sum += *(uchar*) dp;

   sum = (ushort) sum + (sum >> 16) & 0xffff;
   sum_s = (ushort) sum + (ushort)(sum >> 16);
   return sum_s != 0xffff ? ~sum_s : sum_s;
}


Где data  - это указатель на начало IP пакета.


Sha   (2004-04-08 15:12:00) [2]

USHORT ip_checksum(USHORT* buffer, int size)
{
   unsigned long cksum = 0;
   
   // Sum all the words together, adding the final byte if size is odd
   while (size > 1) {
       cksum += *buffer++;
       size -= sizeof(USHORT);
   }
   if (size) {
       cksum += *(UCHAR*)buffer;
   }

   // Do a little shuffling
   cksum = (cksum >> 16) + (cksum & 0xffff);
   cksum += (cksum >> 16);
   
   // Return the bitwise complement of the resulting mishmash
   return (USHORT)(~cksum);
}


Наверх

Титульная страница Поиск, карта сайта Написать письмо