src/core/ipv4/icmp.c

   1 /*
   2  * Copyright (c) 2001-2003 Swedish Institute of Computer Science.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without modification,
   6  * are permitted provided that the following conditions are met:
   7  *
   8  * 1. Redistributions of source code must retain the above copyright notice,
   9  *    this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright notice,
  11  *    this list of conditions and the following disclaimer in the documentation
  12  *    and/or other materials provided with the distribution.
  13  * 3. The name of the author may not be used to endorse or promote products
  14  *    derived from this software without specific prior written permission.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
  17  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  18  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT
  19  * SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
  20  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
  21  * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  22  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  23  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
  24  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
  25  * OF SUCH DAMAGE.
  26  *
  27  * This file is part of the lwIP TCP/IP stack.
  28  *
  29  * Author: Adam Dunkels <adam@sics.se>
  30  *
  31  */
  32
  33 /* Some ICMP messages should be passed to the transport protocols. This
  34    is not implemented. */
  35
  36 #include "lwip/opt.h"
  37
  38 #include "lwip/icmp.h"
  39 #include "lwip/inet.h"
  40 #include "lwip/ip.h"
  41 #include "lwip/def.h"
  42
  43 #include "lwip/stats.h"
  44
  45 #include "lwip/snmp.h"
  46
  47 void
  48 icmp_input(struct pbuf *p, struct netif *inp)
  49 {
  50   unsigned char type;
  51   unsigned char code;
  52   struct icmp_echo_hdr *iecho;
  53   struct ip_hdr *iphdr;
  54   struct ip_addr tmpaddr;
  55   u16_t hlen;
  56
  57   ICMP_STATS_INC(icmp.recv);
  58   snmp_inc_icmpinmsgs();
  59
  60
  61   iphdr = p->payload;
  62   hlen = IPH_HL(iphdr) * 4;
  63   if (pbuf_header(p, -((s16_t)hlen)) || (p->tot_len < sizeof(u16_t)*2)) {
  64     LWIP_DEBUGF(ICMP_DEBUG, ("icmp_input: short ICMP (%u bytes) received\n", p->tot_len));
  65     pbuf_free(p);
  66     ICMP_STATS_INC(icmp.lenerr);
  67     snmp_inc_icmpinerrors();
  68     return;
  69   }
  70
  71   type = *((u8_t *)p->payload);
  72   code = *(((u8_t *)p->payload)+1);
  73   switch (type) {
  74   case ICMP_ECHO:
  75     if (ip_addr_isbroadcast(&iphdr->dest, &inp->netmask) ||
  76        ip_addr_ismulticast(&iphdr->dest)) {
  77       LWIP_DEBUGF(ICMP_DEBUG, ("Smurf.\n"));
  78       ICMP_STATS_INC(icmp.err);
  79       pbuf_free(p);
  80       return;
  81     }
  82     LWIP_DEBUGF(ICMP_DEBUG, ("icmp_input: ping\n"));
  83     LWIP_DEBUGF(DEMO_DEBUG, ("Pong!\n"));
  84     if (p->tot_len < sizeof(struct icmp_echo_hdr)) {
  85       LWIP_DEBUGF(ICMP_DEBUG, ("icmp_input: bad ICMP echo received\n"));
  86       pbuf_free(p);
  87       ICMP_STATS_INC(icmp.lenerr);
  88       snmp_inc_icmpinerrors();
  89
  90       return;
  91     }
  92     iecho = p->payload;
  93     if (inet_chksum_pbuf(p) != 0) {
  94       LWIP_DEBUGF(ICMP_DEBUG, ("icmp_input: checksum failed for received ICMP echo\n"));
  95       pbuf_free(p);
  96       ICMP_STATS_INC(icmp.chkerr);
  97       snmp_inc_icmpinerrors();
  98       return;
  99     }
 100     tmpaddr.addr = iphdr->src.addr;
 101     iphdr->src.addr = iphdr->dest.addr;
 102     iphdr->dest.addr = tmpaddr.addr;
 103     ICMPH_TYPE_SET(iecho, ICMP_ER);
 104     /* adjust the checksum */
 105     if (iecho->chksum >= htons(0xffff - (ICMP_ECHO << 8))) {
 106       iecho->chksum += htons(ICMP_ECHO << 8) + 1;
 107     } else {
 108       iecho->chksum += htons(ICMP_ECHO << 8);
 109     }
 110     ICMP_STATS_INC(icmp.xmit);
 111     /* increase number of messages attempted to send */
 112     snmp_inc_icmpoutmsgs();
 113     /* increase number of echo replies attempted to send */
 114     snmp_inc_icmpoutechoreps();
 115
 116     pbuf_header(p, hlen);
 117     ip_output_if(p, &(iphdr->src), IP_HDRINCL,
 118                  IPH_TTL(iphdr), 0, IP_PROTO_ICMP, inp);
 119     break;
 120   default:
 121   LWIP_DEBUGF(ICMP_DEBUG, ("icmp_input: ICMP type %d code %d not supported.\n", (int)type, (int)code));
 122     ICMP_STATS_INC(icmp.proterr);
 123     ICMP_STATS_INC(icmp.drop);
 124   }
 125   pbuf_free(p);
 126 }
 127
 128 void
 129 icmp_dest_unreach(struct pbuf *p, enum icmp_dur_type t)
 130 {
 131   struct pbuf *q;
 132   struct ip_hdr *iphdr;
 133   struct icmp_dur_hdr *idur;
 134
 135   q = pbuf_alloc(PBUF_IP, 8 + IP_HLEN + 8, PBUF_RAM);
 136   /* ICMP header + IP header + 8 bytes of data */
 137
 138   iphdr = p->payload;
 139
 140   idur = q->payload;
 141   ICMPH_TYPE_SET(idur, ICMP_DUR);
 142   ICMPH_CODE_SET(idur, t);
 143
 144   memcpy((char *)q->payload + 8, p->payload, IP_HLEN + 8);
 145
 146   /* calculate checksum */
 147   idur->chksum = 0;
 148   idur->chksum = inet_chksum(idur, q->len);
 149   ICMP_STATS_INC(icmp.xmit);
 150   /* increase number of messages attempted to send */
 151   snmp_inc_icmpoutmsgs();
 152   /* increase number of destination unreachable messages attempted to send */
 153   snmp_inc_icmpoutdestunreachs();
 154
 155   ip_output(q, NULL, &(iphdr->src),
 156             ICMP_TTL, 0, IP_PROTO_ICMP);
 157   pbuf_free(q);
 158 }
 159
 160 #if IP_FORWARD
 161 void
 162 icmp_time_exceeded(struct pbuf *p, enum icmp_te_type t)
 163 {
 164   struct pbuf *q;
 165   struct ip_hdr *iphdr;
 166   struct icmp_te_hdr *tehdr;
 167
 168   q = pbuf_alloc(PBUF_IP, 8 + IP_HLEN + 8, PBUF_RAM);
 169
 170   iphdr = p->payload;
 171   LWIP_DEBUGF(ICMP_DEBUG, ("icmp_time_exceeded from "));
 172   ip_addr_debug_print(ICMP_DEBUG, &(iphdr->src));
 173   LWIP_DEBUGF(ICMP_DEBUG, (" to "));
 174   ip_addr_debug_print(ICMP_DEBUG, &(iphdr->dest));
 175   LWIP_DEBUGF(ICMP_DEBUG, ("\n"));
 176
 177   tehdr = q->payload;
 178   ICMPH_TYPE_SET(tehdr, ICMP_TE);
 179   ICMPH_CODE_SET(tehdr, t);
 180
 181   /* copy fields from original packet */
 182   memcpy((char *)q->payload + 8, (char *)p->payload, IP_HLEN + 8);
 183
 184   /* calculate checksum */
 185   tehdr->chksum = 0;
 186   tehdr->chksum = inet_chksum(tehdr, q->len);
 187   ICMP_STATS_INC(icmp.xmit);
 188   /* increase number of messages attempted to send */
 189   snmp_inc_icmpoutmsgs();
 190   /* increase number of destination unreachable messages attempted to send */
 191   snmp_inc_icmpouttimeexcds();
 192   ip_output(q, NULL, &(iphdr->src),
 193             ICMP_TTL, 0, IP_PROTO_ICMP);
 194   pbuf_free(q);
 195 }
 196
 197 #endif /* IP_FORWARD */
 198
 199
 200
 201
 202
 203
 204