| 1 | /* |
| 2 | * $Id: libnet_build_ntp.c,v 1.20 2005/11/29 22:05:10 carlosc Exp $ |
| 3 | * |
| 4 | * libnet |
| 5 | * libnet_build_ntp.c - NTP packet assembler |
| 6 | * |
| 7 | * Copyright (c) 1998 - 2004 Mike D. Schiffman <mike@infonexus.com> |
| 8 | * All rights reserved. |
| 9 | * |
| 10 | * Redistribution and use in source and binary forms, with or without |
| 11 | * modification, are permitted provided that the following conditions |
| 12 | * are met: |
| 13 | * 1. Redistributions of source code must retain the above copyright |
| 14 | * notice, this list of conditions and the following disclaimer. |
| 15 | * 2. Redistributions in binary form must reproduce the above copyright |
| 16 | * notice, this list of conditions and the following disclaimer in the |
| 17 | * documentation and/or other materials provided with the distribution. |
| 18 | * |
| 19 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND |
| 20 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
| 21 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
| 22 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE |
| 23 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
| 24 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
| 25 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
| 26 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
| 27 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
| 28 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
| 29 | * SUCH DAMAGE. |
| 30 | * |
| 31 | */ |
| 32 | |
| 33 | #if (HAVE_CONFIG_H) |
| 34 | #include "../include/config.h" |
| 35 | #endif |
| 36 | #if (!(_WIN32) || (__CYGWIN__)) |
| 37 | #include "../include/libnet.h" |
| 38 | #else |
| 39 | #include "../include/win32/libnet.h" |
| 40 | #endif |
| 41 | |
| 42 | libnet_ptag_t |
| 43 | libnet_build_ntp(u_int8_t leap_indicator, u_int8_t version, u_int8_t mode, |
| 44 | u_int8_t stratum, u_int8_t poll, u_int8_t precision, u_int16_t delay_int, |
| 45 | u_int16_t delay_frac, u_int16_t dispersion_int, u_int16_t dispersion_frac, |
| 46 | u_int32_t reference_id, u_int32_t ref_ts_int, u_int32_t ref_ts_frac, |
| 47 | u_int32_t orig_ts_int, u_int32_t orig_ts_frac, u_int32_t rec_ts_int, |
| 48 | u_int32_t rec_ts_frac, u_int32_t xmt_ts_int, u_int32_t xmt_ts_frac, |
| 49 | u_int8_t *payload, u_int32_t payload_s, libnet_t *l, libnet_ptag_t ptag) |
| 50 | { |
| 51 | u_int32_t n, h; |
| 52 | libnet_pblock_t *p; |
| 53 | struct libnet_ntp_hdr ntp_hdr; |
| 54 | |
| 55 | if (l == NULL) |
| 56 | { |
| 57 | return (-1); |
| 58 | } |
| 59 | |
| 60 | n = LIBNET_NTP_H + payload_s; |
| 61 | h = 0; |
| 62 | |
| 63 | /* |
| 64 | * Find the existing protocol block if a ptag is specified, or create |
| 65 | * a new one. |
| 66 | */ |
| 67 | p = libnet_pblock_probe(l, ptag, n, LIBNET_PBLOCK_NTP_H); |
| 68 | if (p == NULL) |
| 69 | { |
| 70 | return (-1); |
| 71 | } |
| 72 | |
| 73 | memset(&ntp_hdr, 0, sizeof(ntp_hdr)); |
| 74 | ntp_hdr.ntp_li_vn_mode = LIBNET_NTP_DO_LI_VN_MODE( |
| 75 | leap_indicator, version, mode); |
| 76 | ntp_hdr.ntp_stratum = stratum; |
| 77 | ntp_hdr.ntp_poll = poll; |
| 78 | ntp_hdr.ntp_precision = precision; |
| 79 | ntp_hdr.ntp_delay.integer = htons(delay_int); |
| 80 | ntp_hdr.ntp_delay.fraction = htons(delay_frac); |
| 81 | ntp_hdr.ntp_dispersion.integer = htons(dispersion_int); |
| 82 | ntp_hdr.ntp_dispersion.fraction = htons(dispersion_frac); |
| 83 | ntp_hdr.ntp_reference_id = htonl(reference_id); |
| 84 | ntp_hdr.ntp_ref_ts.integer = htonl(ref_ts_int); |
| 85 | ntp_hdr.ntp_ref_ts.fraction = htonl(ref_ts_frac); |
| 86 | ntp_hdr.ntp_orig_ts.integer = htonl(orig_ts_int); |
| 87 | ntp_hdr.ntp_orig_ts.fraction = htonl(orig_ts_frac); |
| 88 | ntp_hdr.ntp_rec_ts.integer = htonl(orig_ts_int); |
| 89 | ntp_hdr.ntp_rec_ts.fraction = htonl(orig_ts_frac); |
| 90 | ntp_hdr.ntp_xmt_ts.integer = htonl(xmt_ts_int); |
| 91 | ntp_hdr.ntp_xmt_ts.fraction = htonl(xmt_ts_frac); |
| 92 | |
| 93 | n = libnet_pblock_append(l, p, (u_int8_t *)&ntp_hdr, LIBNET_NTP_H); |
| 94 | if (n == -1) |
| 95 | { |
| 96 | goto bad; |
| 97 | } |
| 98 | |
| 99 | if ((payload && !payload_s) || (!payload && payload_s)) |
| 100 | { |
| 101 | snprintf(l->err_buf, LIBNET_ERRBUF_SIZE, |
| 102 | "%s(): payload inconsistency\n", __func__); |
| 103 | goto bad; |
| 104 | } |
| 105 | |
| 106 | if (payload && payload_s) |
| 107 | { |
| 108 | n = libnet_pblock_append(l, p, payload, payload_s); |
| 109 | if (n == -1) |
| 110 | { |
| 111 | goto bad; |
| 112 | } |
| 113 | } |
| 114 | |
| 115 | return (ptag ? ptag : libnet_pblock_update(l, p, h, LIBNET_PBLOCK_NTP_H)); |
| 116 | bad: |
| 117 | libnet_pblock_delete(l, p); |
| 118 | return (-1); |
| 119 | } |
| 120 | |
| 121 | /* EOF */ |