Библиотека реализующая команду PING

#pragma pack(4)
 
#define WIN32_LEAN_AND_MEAN
#include <winsock2.h>
#include <stdio.h>
#include <stdlib.h>
#include <pro_ext.h>
#include <ws2tcpip.h>
 
#define ICMP_ECHO 8
#define ICMP_ECHOREPLY 0
#define ICMP_MIN 8  // Пакет icmp не менее 8 байт (Заголовок)
#define IP_RECORD_ROUTE  0x7
 
/* The IP header */
typedef struct iphdr {
 unsigned int h_len:4;          // Длина заголовка
 unsigned int version:4;        // Версия IP
 unsigned char tos;             // Тип службы
 unsigned short total_len;      // Полный размер пакета
 unsigned short ident;          // Уникальный идентификатор
 unsigned short frag_and_flags; // Флаги
 unsigned char  ttl;      //  :(char*)ICMP_ECHO;
 unsigned char proto;           // Протокол (TCP, UDP etc)
 unsigned short checksum;       // Контрольная сума IP
 
 unsigned int sourceIP;
 unsigned int destIP;
 
}IpHeader;
 
//
// Структура заголовка ICMP
//
typedef struct _ihdr {
  BYTE i_type;
  BYTE i_code; /* Тип субкода */
  USHORT i_cksum;
  USHORT i_id;
  USHORT i_seq;
  /* Это не стандартный заголовок, но резервируется место для времени */
  ULONG timestamp;
}IcmpHeader;
 
//
// Расширенный заголовок IP применяется с параметром сокета IP_OPTIONS
//
typedef struct _ipoptionhdr
{
    unsigned char        code;        // Option type
    unsigned char        len;         // Length of option hdr
    unsigned char        ptr;         // Offset into options
    unsigned long        addr[9];     // List of IP addrs
} IpOptionHeader;
 
#define STATUS_FAILED 0xFFFF
#define DEF_PACKET_SIZE 32  // Стандартный размер пакета
#define MAX_PACKET 1024   // Максимальный размер ICMP пакета
#define MAX_IP_HDR_SIZE 60  // Максимальный размер заголовка IP
        // с параметрами
 
#define xmalloc(s) HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,(s))
#define xfree(p)   HeapFree (GetProcessHeap(),0,(p))
 
void fill_icmp_data(char *, int);
USHORT checksum(USHORT *, int);
void decode_resp(char *,int ,struct sockaddr_in *);
 
char pszMachineName[255];
 
void NullTerminate(Value FAR *cVal)
{
 
 _HUnLock(cVal->ev_handle);
 
 if (!_SetHandSize(cVal->ev_handle, cVal->ev_length + 1))
   {
      _Error(182); // Not enough memory
   }
   ((char FAR *) _HandToPtr(cVal->ev_handle))[cVal->ev_length] = ''
}
 
// Ping function
FAR Ping(ParamBlk FAR *parm)
{
 
  WSADATA wsaData;
  SOCKET sockRaw = INVALID_SOCKET;
  struct sockaddr_in dest,from;
  struct hostent * hp = NULL;
  int bread,datasize;
  int fromlen = sizeof(from);
  int timeout = 500;
  int timeoutrc = timeout;
  int timeoutso = timeout; // 28.11.2002
  int timttl = 2;     // 28.11.2002
//  int nsleep = 500; // 1000  27.10.2003
 
  char *dest_ip;
  char *icmp_data = NULL;
  char *recvbuf = NULL;
  unsigned int addr=0;
  USHORT seq_no = 0;
  datasize = DEF_PACKET_SIZE;  // 8.12.2002
 
 // 1 параметр
 
  _HLock ( parm->p[0].val.ev_handle );
  NullTer   vbuf,MAX_PACKET,0,(struct sockaddr*)&from,
     &fromlen);
 
 if (bread == SOCKET_ERROR){
   if (WSAGetLastError() == WSAETIMEDOUT) {
  _RetInt(-2,10); /* Time Out */
//  continue;
  closesocket( sockRaw );
  xfree(icmp_data);
  xfree(recvbuf);
  WSACleanup( );
  return 0 ;
   }
  _RetInt(-7,10);
 
  closesocket( sockRaw );
  xfree(icmp_data);
  xfree(recvbuf);
  WSACleanup( );
  return 0 ;
 }
 
 decode_resp(recvbuf,bread,&from);
 
 closesocket( sockRaw );
 xfree(icmp_data);
 xfree(recvbuf);
 WSACleanup( );
 return 0;
 
// Sleep(1000);//  27.11.2002
// Sleep(nsleep);
 
  }
 
  closesocket( sockRaw );
  HeapFree(GetProcessHeap(), 0, recvbuf);
  HeapFree(GetProcessHeap(), 0, icmp_data);
  WSACleanup( );
  return 0;
 
}
 
/*
 Ответом является IP пакет. Нужно декодировать IP заголовок
 для нахождения даных ICMP
*/
 
void decode_resp(char *buf, int bytes,struct sockaddr_in *from) {
 
 IpHeader *iphdr = NULL;
 IcmpHeader *icmphdr = NULL;
 unsigned short iphdrlen;
 
 iphdr = (IpHeader *)buf;
 iphdrlen = iphdr->h_len * 4 ; // number of 32-bit words *4 = bytes
 
 /* 224.12.2002 */
 if (bytes  < iphdrlen + ICMP_MIN) {
//  printf('Too few bytes from %s
',inet_ntoa(from->sin_addr));
  _RetInt(-400000000-(GetTickCount()-icmphdr->timestamp),10);
 
 }
 /* */
 
 icmphdr = (IcmpHeader*)(buf + iphdrlen);
 if (icmphdr->i_type != ICMP_ECHOREPLY) {
  /* Отклик не получен */
  _RetInt(-3,10);  /* No echo */
  return ;
 }
 if (icmphdr->i_id != (USHORT)GetCurrentProcessId()) {
  /* Это не наш отклик */
  _RetInt(-3,10); /* Nothing */
  return ;
 }
 
 _RetInt(GetTickCount()-icmphdr->timestamp, 10 ); /* Ok */
 return ;
 
}
 
// функция вычисления 16-битной комплиментарной
// контрольной сумы для указанного буфера с заголовком
 
USHORT checksum(USHORT *buffer, int size) {
 
  unsigned long cksum=0;
 
  while(size >1) {
 cksum+=*buffer++;
 size -=sizeof(USHORT);
  }
 
  if(size ) {
 cksum += *(UCHAR*)buffer;
  }
 
  cksum = (cksum >> 16) + (cksum & 0xffff);
  cksum += (cksum >>16);
  return (USHORT)(~cksum);
}
 
//
// Функция fill_icmp_data для заполнения полей запроса
//
 
void fill_icmp_data(char * icmp_data, int datasize){
 
  IcmpHeader *icmp_hdr = NULL;
  char *datapart = NULL;
 
  icmp_hdr = (IcmpHeader*)icmp_data;
  icmp_hdr->i_type = ICMP_ECHO; // Эхо запрос ICMP
  icmp_hdr->i_code = 0;
  icmp_hdr->i_id = (USHORT)GetCurrentProcessId();
  icmp_hdr->i_cksum = 0;
  icmp_hdr->i_seq = 0;
 
  datapart = icmp_data + sizeof(IcmpHeader);
  //
  // Поместите данные в буфер
  //
  memset(datapart,'E', datasize - sizeof(IcmpHeader));
 
}
 
 
FoxInfo myFoxInfo[] =
{
 {'PING', (FPFI) Ping, 3, 'C,I,I'},
// {'PING', (FPFI) Ping, 1, 'C'},
};
 
FoxTable _FoxTable =
{
    (FoxTable FAR *)0, sizeof(myFoxInfo) / sizeof(FoxInfo), myFoxInfo
};