libnet4r 0.1

data/libnet/src/libnet_build_ipsec.c

@@ -0,0 +1,232 @@
+/*
+ *  $Id: libnet_build_ipsec.c,v 1.11 2004/01/21 19:01:29 mike Exp $
+ *
+ *  libnet
+ *  libnet_build_ipsec.c - IP packet assembler
+ *
+ *  Copyright (c) 1998 - 2004 Mike D. Schiffman <mike@infonexus.com>
+ *  Copyright (c) 2002 Jose Nazario <jose@crimelabs.net>
+ *  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+
+#if (HAVE_CONFIG_H)
+#include "../include/config.h"
+#endif
+#if (!(_WIN32) || (__CYGWIN__)) 
+#include "../include/libnet.h"
+#else
+#include "../include/win32/libnet.h"
+#endif
+
+
+libnet_ptag_t
+libnet_build_ipsec_esp_hdr(u_int32_t spi, u_int32_t seq, u_int32_t iv,
+u_int8_t *payload, u_int32_t payload_s, libnet_t *l, libnet_ptag_t ptag)
+{
+    u_int32_t n, h;
+    libnet_pblock_t *p;
+    struct libnet_esp_hdr esp_hdr;
+
+    if (l == NULL)
+    { 
+        return (-1);
+    } 
+
+    n = LIBNET_IPSEC_ESP_HDR_H + payload_s;/* size of memory block */
+    h = 0;
+
+    memset(&esp_hdr, 0, sizeof(esp_hdr));
+    esp_hdr.esp_spi = htonl(spi);      /* SPI */
+    esp_hdr.esp_seq = htonl(seq);      /* ESP sequence number */
+    esp_hdr.esp_iv = htonl(iv);        /* initialization vector */
+
+    /*
+     *  Find the existing protocol block if a ptag is specified, or create
+     *  a new one.
+     */
+    p = libnet_pblock_probe(l, ptag, n, LIBNET_PBLOCK_IPSEC_ESP_HDR_H);
+    if (p == NULL)
+    {
+        return (-1);
+    }
+
+    n = libnet_pblock_append(l, p, (u_int8_t *)&esp_hdr, LIBNET_IPSEC_ESP_HDR_H);
+    if (n == -1)
+    {
+        goto bad;
+    }
+
+    if ((payload && !payload_s) || (!payload && payload_s))
+    {
+         snprintf(l->err_buf, LIBNET_ERRBUF_SIZE,
+			     "%s(): payload inconsistency\n", __func__);
+        goto bad;
+    }
+
+    if (payload && payload_s)
+    {
+        n = libnet_pblock_append(l, p, payload, payload_s);
+        if (n == -1)
+        {
+            goto bad;
+        }
+    }
+
+    return (ptag ? ptag : libnet_pblock_update(l, p, h, 
+            LIBNET_PBLOCK_IPSEC_ESP_HDR_H));
+bad:
+    libnet_pblock_delete(l, p);
+    return (-1);
+}
+
+
+libnet_ptag_t
+libnet_build_ipsec_esp_ftr(u_int8_t len, u_int8_t nh, int8_t *auth,
+            u_int8_t *payload, u_int32_t payload_s, libnet_t *l,
+            libnet_ptag_t ptag)
+{
+    /* XXX we need to know the size of auth */
+    u_int32_t n, h;
+    libnet_pblock_t *p;
+    struct libnet_esp_ftr esp_ftr;
+
+    if (l == NULL)
+    { 
+        return (-1);
+    } 
+
+    n = LIBNET_IPSEC_ESP_FTR_H + payload_s;/* size of memory block */
+    h = 0;
+
+    memset(&esp_ftr, 0, sizeof(esp_ftr));
+    esp_ftr.esp_pad_len = len;      /* pad length */
+    esp_ftr.esp_nh = nh;  /* next header pointer */
+    esp_ftr.esp_auth = auth;        /* authentication data */
+
+    /*
+     *  Find the existing protocol block if a ptag is specified, or create
+     *  a new one.
+     */
+    p = libnet_pblock_probe(l, ptag, n, LIBNET_PBLOCK_IPSEC_ESP_FTR_H);
+    if (p == NULL)
+    {
+        return (-1);
+    }
+
+    n = libnet_pblock_append(l, p, (u_int8_t *)&esp_ftr, LIBNET_IPSEC_ESP_FTR_H);
+    if (n == -1)
+    {
+        goto bad;
+    }
+
+    if ((payload && !payload_s) || (!payload && payload_s))
+    {
+         snprintf(l->err_buf, LIBNET_ERRBUF_SIZE,
+			     "%s(): payload inconsistency\n", __func__);
+        goto bad;
+    }
+
+    if (payload && payload_s)
+    {
+        n = libnet_pblock_append(l, p, payload, payload_s);
+        if (n == -1)
+        {
+            goto bad;
+        }
+    }
+
+    return (ptag ? ptag : libnet_pblock_update(l, p, h, 
+            LIBNET_PBLOCK_IPSEC_ESP_FTR_H));
+bad:
+    libnet_pblock_delete(l, p);
+    return (-1);
+}
+
+
+libnet_ptag_t
+libnet_build_ipsec_ah(u_int8_t nh, u_int8_t len, u_int16_t res,
+u_int32_t spi, u_int32_t seq, u_int32_t auth, u_int8_t *payload,
+u_int32_t payload_s,  libnet_t *l, libnet_ptag_t ptag)
+{
+    u_int32_t n, h;
+    libnet_pblock_t *p;
+    struct libnet_ah_hdr ah_hdr;
+
+    if (l == NULL)
+    { 
+        return (-1);
+    } 
+
+    n = LIBNET_IPSEC_AH_H + payload_s;/* size of memory block */
+    h = 0;
+
+    /*
+     *  Find the existing protocol block if a ptag is specified, or create
+     *  a new one.
+     */
+    p = libnet_pblock_probe(l, ptag, n, LIBNET_PBLOCK_IPSEC_AH_H);
+    if (p == NULL)
+    {
+        return (-1);
+    }
+
+    memset(&ah_hdr, 0, sizeof(ah_hdr));
+    ah_hdr.ah_nh = nh;       /* next header */
+    ah_hdr.ah_len = len;               /* length */
+    ah_hdr.ah_res = (res ? htons(res) : 0);
+    ah_hdr.ah_spi = htonl(spi);        /* SPI */
+    ah_hdr.ah_seq = htonl(seq);        /* AH sequence number */
+    ah_hdr.ah_auth = htonl(auth);      /* authentication data */
+
+    n = libnet_pblock_append(l, p, (u_int8_t *)&ah_hdr, LIBNET_IPSEC_AH_H);
+    if (n == -1)
+    {
+        goto bad;
+    }
+
+    if ((payload && !payload_s) || (!payload && payload_s))
+    {
+         snprintf(l->err_buf, LIBNET_ERRBUF_SIZE,
+			     "%s(): payload inconsistency\n", __func__);
+        goto bad;
+    }
+
+    if (payload && payload_s)
+    {
+        n = libnet_pblock_append(l, p, payload, payload_s);
+        if (n == -1)
+        {
+            goto bad;
+        }
+    }
+
+    return (ptag ? ptag : libnet_pblock_update(l, p, h, 
+            LIBNET_PBLOCK_IPSEC_AH_H));
+bad:
+    libnet_pblock_delete(l, p);
+    return (-1);
+}
+
+/* EOF */

data/libnet/src/libnet_build_isl.c

@@ -0,0 +1,113 @@
+/*
+ *  $Id: libnet_build_isl.c,v 1.9 2004/01/03 20:31:01 mike Exp $
+ *
+ *  libnet
+ *  libnet_build_isl.c - cisco's inter-switch link assembler
+ *
+ *  Copyright (c) 1998 - 2004 Mike D. Schiffman <mike@infonexus.com>
+ *  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+
+#if (HAVE_CONFIG_H)
+#include "../include/config.h"
+#endif
+#if (!(_WIN32) || (__CYGWIN__)) 
+#include "../include/libnet.h"
+#else
+#include "../include/win32/libnet.h"
+#endif
+
+libnet_ptag_t
+libnet_build_isl(u_int8_t *dhost, u_int8_t type, u_int8_t user, u_int8_t *shost,
+            u_int16_t len, u_int8_t *snap, u_int16_t vid, u_int16_t index,
+            u_int16_t reserved, u_int8_t *payload, u_int32_t payload_s,
+            libnet_t *l, libnet_ptag_t ptag)
+{
+    u_int32_t n, h;
+    libnet_pblock_t *p;
+    struct libnet_isl_hdr isl_hdr;
+
+    if (l == NULL)
+    {
+        return (-1);
+    }
+
+    n = LIBNET_ISL_H + payload_s;           /* size of memory block */
+    h = 0;
+
+    /*
+     *  Find the existing protocol block if a ptag is specified, or create
+     *  a new one.
+     */
+    p = libnet_pblock_probe(l, ptag, n, LIBNET_PBLOCK_ISL_H);
+    if (p == NULL)
+    {
+        return (-1);
+    }
+
+	memset(&isl_hdr, 0, sizeof(isl_hdr));
+	memcpy(&isl_hdr.isl_dhost, dhost, 5);
+    isl_hdr.isl_type    = type;
+    isl_hdr.isl_user    = user;
+    memcpy(&isl_hdr.isl_shost, shost, 6);
+    isl_hdr.isl_len     = htons(len);
+    memcpy(&isl_hdr.isl_dhost, snap, 6);
+    isl_hdr.isl_vid     = htons(vid);
+    isl_hdr.isl_index   = htons(index);
+    isl_hdr.isl_reserved= htons(reserved);
+
+    n = libnet_pblock_append(l, p, (u_int8_t *)&isl_hdr, LIBNET_ISL_H);
+    if (n == -1)
+    {
+        goto bad;
+    }
+
+    if ((payload && !payload_s) || (!payload && payload_s))
+    {
+         snprintf(l->err_buf, LIBNET_ERRBUF_SIZE,
+			     "%s(): payload inconsistency\n", __func__);
+        goto bad;
+    }
+
+    if (payload && payload_s)
+    {
+        n = libnet_pblock_append(l, p, payload, payload_s);
+        if (n == -1)
+        {
+            goto bad;
+        }
+    }
+
+    /* we need to compute the CRC for the ethernet frame and the ISL frame */
+    libnet_pblock_setflags(p, LIBNET_PBLOCK_DO_CHECKSUM);
+    return (ptag ? ptag : libnet_pblock_update(l, p, LIBNET_ISL_H,
+            LIBNET_PBLOCK_ISL_H));
+bad:
+    libnet_pblock_delete(l, p);
+    return (-1);
+}
+
+
+/* EOF */

data/libnet/src/libnet_build_link.c

@@ -0,0 +1,90 @@
+/*
+ *  $Id: libnet_build_link.c,v 1.9 2004/03/04 20:50:20 kkuehl Exp $
+ *
+ *  libnet
+ *  libnet_build_link.c - link-layer packet assembler
+ *
+ *  Copyright (c) 2003 Roberto Larcher <roberto.larcher@libero.it>
+ *  Copyright (c) 1998 - 2004 Mike D. Schiffman <mike@infonexus.com>
+ *  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+
+#if (HAVE_CONFIG_H)
+#include "../include/config.h"
+#endif
+#if (!(_WIN32) || (__CYGWIN__))
+#include "../include/libnet.h"
+#else
+#include "../include/win32/libnet.h"
+#endif
+
+libnet_ptag_t
+libnet_build_link(u_int8_t *dst, u_int8_t *src, u_int8_t *oui, u_int16_t type,
+u_int8_t *payload, u_int32_t payload_s, libnet_t *l, libnet_ptag_t ptag)
+
+{
+	u_int8_t org[3] = {0x00, 0x00, 0x00};
+    switch (l->link_type)
+    {
+        /* add FDDI */
+        case DLT_EN10MB:
+            return (libnet_build_ethernet(dst, src, type, payload, payload_s, l,
+                    ptag));
+        case DLT_IEEE802:
+            return (libnet_build_token_ring(LIBNET_TOKEN_RING_FRAME,
+                    LIBNET_TOKEN_RING_LLC_FRAME, dst, src, LIBNET_SAP_SNAP,
+                    LIBNET_SAP_SNAP, 0x03, org, type, payload, payload_s,
+                    l, ptag));
+        default:
+            break;
+    }
+    snprintf(l->err_buf, LIBNET_ERRBUF_SIZE,
+            "%s(): linktype %d not supported\n", __func__, l->link_type);
+    return (-1);
+}
+
+libnet_ptag_t
+libnet_autobuild_link(u_int8_t *dst, u_int8_t *oui, u_int16_t type, libnet_t *l)
+{
+	u_int8_t org[3] = {0x00, 0x00, 0x00};
+    switch (l->link_type)
+    {
+       /* add FDDI */
+        case DLT_EN10MB:
+            return (libnet_autobuild_ethernet(dst, type, l));
+        case DLT_IEEE802:
+            return (libnet_autobuild_token_ring(LIBNET_TOKEN_RING_FRAME,
+                   LIBNET_TOKEN_RING_LLC_FRAME, dst, LIBNET_SAP_SNAP,
+                   LIBNET_SAP_SNAP, 0x03, org, TOKEN_RING_TYPE_IP, l));
+        default:
+            break;
+    }
+    snprintf(l->err_buf, LIBNET_ERRBUF_SIZE,
+            "%s(): linktype %d not supported\n", __func__, l->link_type);
+    return (-1);
+}
+
+/* EOF */
+

data/libnet/src/libnet_build_mpls.c

@@ -0,0 +1,112 @@
+/*
+ *  $Id: libnet_build_mpls.c,v 1.9 2004/03/01 20:26:12 mike Exp $
+ *
+ *  libnet
+ *  libnet_build_mpls.c - MPLS packet assembler
+ *
+ *  Copyright (c) 1998 - 2004 Mike D. Schiffman <mike@infonexus.com>
+ *  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+
+#if (HAVE_CONFIG_H)
+#include "../include/config.h"
+#endif
+#if (!(_WIN32) || (__CYGWIN__)) 
+#include "../include/libnet.h"
+#else
+#include "../include/win32/libnet.h"
+#endif
+
+libnet_ptag_t
+libnet_build_mpls(u_int32_t label, u_int8_t experimental, u_int8_t bos, 
+u_int8_t ttl, u_int8_t *payload, u_int32_t payload_s, libnet_t *l,
+libnet_ptag_t ptag)
+{
+    u_int32_t n, h;
+    libnet_pblock_t *p;
+    struct libnet_mpls_hdr mpls_hdr;
+
+    if (l == NULL)
+    { 
+        return (-1);
+    } 
+
+    n = LIBNET_MPLS_H + payload_s;
+    h = 0;
+
+    /*
+     *  Find the existing protocol block if a ptag is specified, or create
+     *  a new one.
+     */
+    p = libnet_pblock_probe(l, ptag, n, LIBNET_PBLOCK_MPLS_H);
+    if (p == NULL)
+    {
+        return (-1);
+    }
+
+    memset(&mpls_hdr, 0, sizeof(mpls_hdr));
+    mpls_hdr.mpls_les = htonl((((label & 0x000fffff) << 12) |
+                              ((experimental & 0x07) <<  9) |
+                              ((bos & 0x01)          <<  8) |
+                              ((ttl & 0xff))));
+
+    n = libnet_pblock_append(l, p, (u_int8_t *)&mpls_hdr, LIBNET_MPLS_H);
+    if (n == -1)
+    {
+        goto bad;
+    }
+
+    if ((payload && !payload_s) || (!payload && payload_s))
+    {
+         snprintf(l->err_buf, LIBNET_ERRBUF_SIZE,
+			     "%s(): payload inconsistency\n", __func__);
+        goto bad;
+    }
+
+    if (payload && payload_s)
+    {
+        n = libnet_pblock_append(l, p, payload, payload_s);
+        if (n == -1)
+        {
+            goto bad;
+        }
+    }
+
+    /*
+     *  The link offset is actually 4 bytes further into the header than
+     *  before (the MPLS header adds this 4 bytes).  We need to update the
+     *  link offset pointer. XXX - should we set this here?
+     *  Probably not.  We should make pblock_coalesce check the pblock type
+     *  and adjust accordingly.
+     */
+    l->link_offset += 4;
+
+    return (ptag ? ptag : libnet_pblock_update(l, p, h, LIBNET_PBLOCK_MPLS_H));
+bad:
+    libnet_pblock_delete(l, p);
+    return (-1);
+}
+
+/* EOF */

data/libnet/src/libnet_build_ntp.c

@@ -0,0 +1,121 @@
+/*
+ *  $Id: libnet_build_ntp.c,v 1.9 2004/03/01 20:26:12 mike Exp $
+ *
+ *  libnet
+ *  libnet_build_ntp.c - NTP packet assembler
+ *
+ *  Copyright (c) 1998 - 2004 Mike D. Schiffman <mike@infonexus.com>
+ *  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+
+#if (HAVE_CONFIG_H)
+#include "../include/config.h"
+#endif
+#if (!(_WIN32) || (__CYGWIN__)) 
+#include "../include/libnet.h"
+#else
+#include "../include/win32/libnet.h"
+#endif
+
+libnet_ptag_t
+libnet_build_ntp(u_int8_t leap_indicator, u_int8_t version, u_int8_t mode,
+u_int8_t stratum, u_int8_t poll, u_int8_t precision, u_int16_t delay_int,
+u_int16_t delay_frac, u_int16_t dispersion_int, u_int16_t dispersion_frac,
+u_int32_t reference_id, u_int32_t ref_ts_int, u_int32_t ref_ts_frac,
+u_int32_t orig_ts_int, u_int32_t orig_ts_frac, u_int32_t rec_ts_int,
+u_int32_t rec_ts_frac, u_int32_t xmt_ts_int, u_int32_t xmt_ts_frac,
+u_int8_t *payload, u_int32_t payload_s, libnet_t *l, libnet_ptag_t ptag)
+{
+    u_int32_t n, h;
+    libnet_pblock_t *p;
+    struct libnet_ntp_hdr ntp_hdr;
+
+    if (l == NULL)
+    { 
+        return (-1);
+    } 
+
+    n = LIBNET_NTP_H + payload_s;
+    h = 0;
+
+    /*
+     *  Find the existing protocol block if a ptag is specified, or create
+     *  a new one.
+     */
+    p = libnet_pblock_probe(l, ptag, n, LIBNET_PBLOCK_NTP_H);
+    if (p == NULL)
+    {
+        return (-1);
+    }
+
+    memset(&ntp_hdr, 0, sizeof(ntp_hdr));
+    ntp_hdr.ntp_li_vn_mode          = LIBNET_NTP_DO_LI_VN_MODE(
+                                      leap_indicator, version, mode);
+    ntp_hdr.ntp_stratum             = stratum;
+    ntp_hdr.ntp_poll                = poll;
+    ntp_hdr.ntp_precision           = precision;
+    ntp_hdr.ntp_delay.integer       = htons(delay_int);
+    ntp_hdr.ntp_delay.fraction      = htons(delay_frac);
+    ntp_hdr.ntp_dispersion.integer  = htons(dispersion_int);
+    ntp_hdr.ntp_dispersion.fraction = htons(dispersion_frac);
+    ntp_hdr.ntp_reference_id        = htonl(reference_id);
+    ntp_hdr.ntp_ref_ts.integer      = htonl(ref_ts_int);
+    ntp_hdr.ntp_ref_ts.fraction     = htonl(ref_ts_frac);
+    ntp_hdr.ntp_orig_ts.integer     = htonl(orig_ts_int);
+    ntp_hdr.ntp_orig_ts.fraction    = htonl(orig_ts_frac);
+    ntp_hdr.ntp_rec_ts.integer      = htonl(orig_ts_int);
+    ntp_hdr.ntp_rec_ts.fraction     = htonl(orig_ts_frac);
+    ntp_hdr.ntp_xmt_ts.integer      = htonl(xmt_ts_int);
+    ntp_hdr.ntp_xmt_ts.fraction     = htonl(xmt_ts_frac);
+
+    n = libnet_pblock_append(l, p, (u_int8_t *)&ntp_hdr, LIBNET_NTP_H);
+    if (n == -1)
+    {
+        goto bad;
+    }
+
+    if ((payload && !payload_s) || (!payload && payload_s))
+    {
+        snprintf(l->err_buf, LIBNET_ERRBUF_SIZE,
+                "%s(): payload inconsistency\n", __func__);
+        goto bad;
+    }
+
+    if (payload && payload_s)
+    {
+        n = libnet_pblock_append(l, p, payload, payload_s);
+        if (n == -1)
+        {
+            goto bad;
+        }
+    }
+
+    return (ptag ? ptag : libnet_pblock_update(l, p, h, LIBNET_PBLOCK_NTP_H));
+bad:
+    libnet_pblock_delete(l, p);
+    return (-1);
+}
+
+/* EOF */