nmrp.c

   1 /**
   2  * nmrp-flash - Netgear Unbrick Utility
   3  * Copyright (C) 2016 Joseph Lehner <joseph.c.lehner@gmail.com>
   4  *
   5  * nmrp-flash is free software: you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation, either version 3 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * nmrp-flash is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with nmrp-flash.  If not, see <http://www.gnu.org/licenses/>.
  17  *
  18  */
  19
  20 #include <signal.h>
  21 #include <stdlib.h>
  22 #include <string.h>
  23 #include <unistd.h>
  24 #include <errno.h>
  25 #include <stdio.h>
  26 #include <time.h>
  27 #include "nmrpd.h"
  28
  29 #define NMRP_HDR_LEN 6
  30 #define NMRP_OPT_LEN 4
  31 #define NMRP_MIN_PKT_LEN (sizeof(struct eth_hdr) +  NMRP_HDR_LEN)
  32
  33 #define NMRP_MAX_OPT_SIZE 12
  34 #define NMRP_MAX_OPT_NUM 2
  35
  36 #define ETH_P_NMRP 0x0912
  37 #define IP_LEN 4
  38 #define MAX_LOOP_RECV 1024
  39
  40 #ifndef PACKED
  41 #define PACKED __attribute__((__packed__))
  42 #endif
  43
  44 enum nmrp_code {
  45         NMRP_C_NONE = 0,
  46         NMRP_C_ADVERTISE = 1,
  47         NMRP_C_CONF_REQ = 2,
  48         NMRP_C_CONF_ACK = 3,
  49         NMRP_C_CLOSE_REQ = 4,
  50         NMRP_C_CLOSE_ACK = 5,
  51         NMRP_C_KEEP_ALIVE_REQ = 6,
  52         NMRP_C_KEEP_ALIVE_ACK = 7,
  53         NMRP_C_TFTP_UL_REQ = 16
  54 };
  55
  56 enum nmrp_opt_type {
  57         NMRP_O_MAGIC_NO = 0x0001,
  58         NMRP_O_DEV_IP = 0x0002,
  59         NMRP_O_DEV_REGION = 0x0004,
  60         NMRP_O_FW_UP = 0x0101,
  61         NMRP_O_ST_UP = 0x0102,
  62         NMRP_O_FILE_NAME = 0x0181
  63 };
  64
  65 struct nmrp_opt {
  66         uint16_t type;
  67         uint16_t len;
  68         union {
  69                 uint8_t magic[4];
  70                 struct {
  71                         uint8_t addr[4];
  72                         uint8_t mask[4];
  73                 } ip;
  74         } val;
  75 } PACKED;
  76
  77 struct nmrp_msg {
  78         uint16_t reserved;
  79         uint8_t code;
  80         uint8_t id;
  81         uint16_t len;
  82         struct nmrp_opt opts[2];
  83         uint32_t num_opts;
  84 } PACKED;
  85
  86 struct eth_hdr {
  87         uint8_t ether_dhost[6];
  88         uint8_t ether_shost[6];
  89         uint16_t ether_type;
  90 } PACKED;
  91
  92 struct nmrp_pkt {
  93         struct eth_hdr eh;
  94         struct nmrp_msg msg;
  95 } PACKED;
  96
  97 static void msg_update_len(struct nmrp_msg *msg)
  98 {
  99         uint32_t i = 0;
 100         msg->len = NMRP_HDR_LEN;
 101         for (; i != msg->num_opts; ++i) {
 102                 msg->len += msg->opts[i].len;
 103         }
 104 }
 105
 106 static void msg_dump(struct nmrp_msg *msg, int dump_opts)
 107 {
 108         struct nmrp_opt *opt;
 109         int remain_len, len, i;
 110
 111         fprintf(stderr, "res=0x%04x, code=0x%02x, id=0x%02x, len=%u",
 112                         msg->reserved, msg->code, msg->id, msg->len);
 113
 114         remain_len = msg->len - NMRP_HDR_LEN;
 115         fprintf(stderr, "%s\n", remain_len ? "" : " (no opts)");
 116
 117         if (dump_opts) {
 118                 opt = msg->opts;
 119
 120                 while (remain_len > 0) {
 121                         len = opt->len;
 122                         fprintf(stderr, "  opt type=%u, len=%u", opt->type, len);
 123                         for (i = 0; i != len - NMRP_OPT_LEN; ++i) {
 124                                 if (!(i % 16)) {
 125                                         fprintf(stderr, "\n  ");
 126                                 }
 127
 128                                 fprintf(stderr, "%02x ", ((char*)&opt->val)[i] & 0xff);
 129                         }
 130                         fprintf(stderr, "\n");
 131                         remain_len -= len;
 132                         opt = (struct nmrp_opt*)(((char*)opt) + len);
 133                 }
 134         }
 135 }
 136
 137 static void msg_hton(struct nmrp_msg *msg)
 138 {
 139         uint32_t i = 0;
 140
 141         msg->reserved = htons(msg->reserved);
 142         msg->len = htons(msg->len);
 143
 144         for (; i != msg->num_opts; ++i) {
 145                 msg->opts[i].len = htons(msg->opts[i].len);
 146                 msg->opts[i].type = htons(msg->opts[i].type);
 147         }
 148 }
 149
 150 static void msg_hdr_ntoh(struct nmrp_msg *msg)
 151 {
 152         msg->reserved = ntohs(msg->reserved);
 153         msg->len = ntohs(msg->len);
 154 }
 155
 156 static int msg_ntoh(struct nmrp_msg *msg)
 157 {
 158         struct nmrp_opt *opt = msg->opts;
 159         int remaining;
 160
 161         remaining = msg->len - NMRP_HDR_LEN;
 162
 163         // FIXME maximum of two options supported, maximum option
 164         // size is 12
 165         if (remaining < NMRP_MAX_OPT_NUM * NMRP_MAX_OPT_SIZE) {
 166                 while (remaining > 0) {
 167                         if (remaining < NMRP_OPT_LEN) {
 168                                 break;
 169                         }
 170
 171                         opt->type = ntohs(opt->type);
 172                         opt->len = ntohs(opt->len);
 173
 174                         if (opt->len > NMRP_MAX_OPT_SIZE) {
 175                                 break;
 176                         }
 177
 178                         remaining -= opt->len;
 179                         ++opt;
 180                 }
 181
 182                 if (!remaining) {
 183                         return 0;
 184                 }
 185         }
 186
 187         fprintf(stderr, "Unexpected message format.\n");
 188         msg_dump(msg, 0);
 189         return 1;
 190 }
 191
 192 static int pkt_send(struct ethsock *sock, struct nmrp_pkt *pkt)
 193 {
 194         size_t len = ntohs(pkt->msg.len) + sizeof(pkt->eh);
 195         return ethsock_send(sock, pkt, len);
 196 }
 197
 198 static int pkt_recv(struct ethsock *sock, struct nmrp_pkt *pkt)
 199 {
 200         ssize_t bytes, len;
 201
 202         memset(pkt, 0, sizeof(*pkt));
 203         bytes = ethsock_recv(sock, pkt, sizeof(*pkt));
 204         if (bytes < 0) {
 205                 return 1;
 206         } else if (!bytes) {
 207                 return 2;
 208         } else if (bytes < NMRP_MIN_PKT_LEN) {
 209                 fprintf(stderr, "Short packet (%d bytes)\n", (int)bytes);
 210                 return 1;
 211         }
 212
 213         msg_hdr_ntoh(&pkt->msg);
 214         len = pkt->msg.len + sizeof(pkt->eh);
 215
 216         if (bytes < len) {
 217                 fprintf(stderr, "Short packet (expected %d, got %d).\n",
 218                                 (int)len, (int)bytes);
 219                 return 1;
 220         }
 221
 222         return msg_ntoh(&pkt->msg);
 223 }
 224
 225 static int mac_parse(const char *str, uint8_t *hwaddr)
 226 {
 227         int i;
 228         unsigned data[6];
 229
 230         sscanf(str, "%02x:%02x:%02x:%02x:%02x:%02x%n",
 231                         data, data + 1, data + 2, data + 3, data + 4, data + 5, &i);
 232
 233         if (i == strlen(str)) {
 234                 for (i = 0; i != 6; ++i) {
 235                         if (data[i] > 255) {
 236                                 break;
 237                         }
 238
 239                         hwaddr[i] = data[i] & 0xff;
 240                 }
 241
 242                 if (i == 6) {
 243                         return 1;
 244                 }
 245         }
 246         return 0;
 247 }
 248
 249 static struct ethsock *gsock = NULL;
 250
 251 static void sigh(int sig)
 252 {
 253         printf("\n");
 254         if (gsock) {
 255                 ethsock_close(gsock);
 256         }
 257
 258         exit(1);
 259 }
 260
 261 static const char *spinner = "\\|/-";
 262
 263 int nmrp_do(struct nmrpd_args *args)
 264 {
 265         struct nmrp_pkt tx, rx;
 266         uint8_t *src, dest[6];
 267         struct in_addr ipaddr, ipmask;
 268         time_t beg;
 269         int i, err, ulreqs, expect;
 270         struct ethsock *sock;
 271         void (*sigh_orig)(int);
 272
 273         if (args->op != NMRP_UPLOAD_FW) {
 274                 fprintf(stderr, "Operation not implemented.\n");
 275                 return 1;
 276         }
 277
 278         if (!mac_parse(args->mac, dest)) {
 279                 fprintf(stderr, "Invalid MAC address '%s'.\n", args->mac);
 280                 return 1;
 281         }
 282
 283         if ((ipaddr.s_addr = inet_addr(args->ipaddr)) == INADDR_NONE) {
 284                 fprintf(stderr, "Invalid IP address '%s'.\n", args->ipaddr);
 285                 return 1;
 286         }
 287
 288         if ((ipmask.s_addr = inet_addr(args->ipmask)) == INADDR_NONE) {
 289                 fprintf(stderr, "Invalid subnet mask '%s'.\n", args->ipmask);
 290                 return 1;
 291         }
 292
 293         if (access(args->filename, R_OK) == -1) {
 294                 fprintf(stderr, "Error accessing file '%s'.\n", args->filename);
 295                 return 1;
 296         }
 297
 298         err = 1;
 299
 300         sock = ethsock_create(args->intf, ETH_P_NMRP);
 301         if (!sock) {
 302                 return 1;
 303         }
 304
 305         gsock = sock;
 306         sigh_orig = signal(SIGINT, sigh);
 307
 308         if (ethsock_set_timeout(sock, args->rx_timeout)) {
 309                 goto out;
 310         }
 311
 312         src = ethsock_get_hwaddr(sock);
 313         if (!src) {
 314                 goto out;
 315         }
 316
 317         memcpy(tx.eh.ether_shost, src, 6);
 318         memcpy(tx.eh.ether_dhost, dest, 6);
 319         tx.eh.ether_type = htons(ETH_P_NMRP);
 320
 321         tx.msg.reserved = 0;
 322         tx.msg.code = NMRP_C_ADVERTISE;
 323         tx.msg.id = 0;
 324         tx.msg.num_opts = 1;
 325         tx.msg.opts[0].type = NMRP_O_MAGIC_NO;
 326         tx.msg.opts[0].len = NMRP_OPT_LEN + 4;
 327         tx.msg.opts[0].val.magic[0] = 'N';
 328         tx.msg.opts[0].val.magic[1] = 'T';
 329         tx.msg.opts[0].val.magic[2] = 'G';
 330         tx.msg.opts[0].val.magic[3] = 'R';
 331
 332         msg_update_len(&tx.msg);
 333         msg_hton(&tx.msg);
 334
 335         i = 0;
 336         beg = time(NULL);
 337
 338         while (1) {
 339                 printf("\rAdvertising NMRP server on interface ... %c",
 340                                 spinner[i]);
 341                 fflush(stdout);
 342                 i = (i + 1) & 3;
 343
 344                 if (pkt_send(sock, &tx) < 0) {
 345                         perror("sendto");
 346                         goto out;
 347                 }
 348
 349                 err = pkt_recv(sock, &rx);
 350                 if (err == 0 && memcmp(rx.eh.ether_dhost, src, 6) == 0) {
 351                         break;
 352                 } else if (err == 1) {
 353                         printf("ERR\n");
 354                         goto out;
 355                 } else {
 356                         if ((time(NULL) - beg) >= 60) {
 357                                 printf("\nNo response after 60 seconds. Bailing out.\n");
 358                                 goto out;
 359                         }
 360                 }
 361         }
 362
 363         printf("\n");
 364
 365         expect = NMRP_C_CONF_REQ;
 366         ulreqs = 0;
 367
 368         do {
 369                 if (expect != NMRP_C_NONE && rx.msg.code != expect) {
 370                         fprintf(stderr, "Received code 0x%02x while waiting for 0x%02x!\n",
 371                                         rx.msg.code, expect);
 372                 }
 373
 374                 tx.msg.code = NMRP_C_NONE;
 375                 tx.msg.reserved = 0;
 376                 tx.msg.id = 0;
 377                 tx.msg.num_opts = 0;
 378                 tx.msg.len = 0;
 379
 380                 err = 1;
 381
 382                 switch (rx.msg.code) {
 383                         case NMRP_C_ADVERTISE:
 384                                 printf("Received NMRP advertisement from "
 385                                                 "%02x:%02x:%02x:%02x:%02x:%02x.\n",
 386                                                 rx.eh.ether_shost[0], rx.eh.ether_shost[1],
 387                                                 rx.eh.ether_shost[2], rx.eh.ether_shost[3],
 388                                                 rx.eh.ether_shost[4], rx.eh.ether_shost[5]);
 389                                 err = 1;
 390                                 goto out;
 391                         case NMRP_C_CONF_REQ:
 392                                 tx.msg.code = NMRP_C_CONF_ACK;
 393                                 tx.msg.num_opts = 2;
 394
 395                                 tx.msg.opts[0].type = NMRP_O_DEV_IP;
 396                                 tx.msg.opts[0].len = NMRP_OPT_LEN + 2 * 4;
 397
 398                                 memcpy(tx.msg.opts[0].val.ip.addr, &ipaddr, 4);
 399                                 memcpy(tx.msg.opts[0].val.ip.mask, &ipmask, 4);
 400
 401                                 tx.msg.opts[1].type = NMRP_O_FW_UP;
 402                                 tx.msg.opts[1].len = NMRP_OPT_LEN;
 403
 404                                 expect = NMRP_C_TFTP_UL_REQ;
 405
 406                                 printf("Received configuration request from "
 407                                                 "%02x:%02x:%02x:%02x:%02x:%02x.\n",
 408                                                 rx.eh.ether_shost[0], rx.eh.ether_shost[1],
 409                                                 rx.eh.ether_shost[2], rx.eh.ether_shost[3],
 410                                                 rx.eh.ether_shost[4], rx.eh.ether_shost[5]);
 411
 412                                 memcpy(tx.eh.ether_dhost, rx.eh.ether_shost, 6);
 413
 414                                 printf("Sending configuration: ip %s, mask %s.\n",
 415                                                 args->ipaddr, args->ipmask);
 416
 417                                 break;
 418                         case NMRP_C_TFTP_UL_REQ:
 419                                 if (++ulreqs > 5) {
 420                                         fprintf(stderr, "Device re-requested file upload %d "
 421                                                         "times; aborting.\n", ulreqs);
 422                                         tx.msg.code = NMRP_C_CLOSE_REQ;
 423                                         break;
 424                                 }
 425
 426                                 if (!args->tftpcmd) {
 427                                         printf("Uploading %s ... ", args->filename);
 428                                         fflush(stdout);
 429                                         err = tftp_put(args);
 430                                 } else {
 431                                         printf("Running %s ... ", args->tftpcmd);
 432                                         fflush(stdout);
 433                                         err = system(args->tftpcmd);
 434                                 }
 435
 436                                 if (!err) {
 437                                         printf("OK\nWaiting for remote to respond.\n");
 438                                         ethsock_set_timeout(sock, args->ul_timeout);
 439                                         expect = NMRP_C_CLOSE_REQ;
 440                                 } else if (err == -2) {
 441                                         expect = NMRP_C_TFTP_UL_REQ;
 442                                 } else {
 443                                         goto out;
 444                                 }
 445
 446                                 break;
 447                         case NMRP_C_KEEP_ALIVE_REQ:
 448                                 tx.msg.code = NMRP_C_KEEP_ALIVE_ACK;
 449                                 break;
 450                         case NMRP_C_CLOSE_REQ:
 451                                 tx.msg.code = NMRP_C_CLOSE_ACK;
 452                                 break;
 453                         case NMRP_C_CLOSE_ACK:
 454                                 err = 0;
 455                                 goto out;
 456                         default:
 457                                 fprintf(stderr, "Unknown message code 0x%02x!\n",
 458                                                 rx.msg.code);
 459                                 msg_dump(&rx.msg, 0);
 460                 }
 461
 462                 if (tx.msg.code != NMRP_C_NONE) {
 463                         msg_update_len(&tx.msg);
 464                         msg_hton(&tx.msg);
 465
 466                         if (pkt_send(sock, &tx) < 0) {
 467                                 perror("sendto");
 468                                 goto out;
 469                         }
 470                 }
 471
 472                 if (rx.msg.code == NMRP_C_CLOSE_REQ) {
 473                         printf("Remote finished. Closing connection.\n");
 474                         break;
 475                 }
 476
 477                 err = pkt_recv(sock, &rx);
 478                 if (err) {
 479                         if (err == 2) {
 480                                 fprintf(stderr, "Timeout while waiting for 0x%02x.\n", expect);
 481                         }
 482                         goto out;
 483                 }
 484
 485                 ethsock_set_timeout(sock, args->rx_timeout);
 486
 487         } while (1);
 488
 489         err = 0;
 490
 491 out:
 492         signal(SIGINT, sigh_orig);
 493         gsock = NULL;
 494         ethsock_close(sock);
 495         return err;
 496 }