aboutsummaryrefslogtreecommitdiff
path: root/utils/eim_peek_poke.c
blob: ba8d8f4f334400bc58221a501d01d99c60570071 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
/*
 * eim_peek_poke.c
 * ---------------
 * Read or write a 32-bit word via the EIM bus.  This is mostly
 * intended for use as part of the FPGA initialization sequence.
 *
 * Authors: Paul Selkirk, Rob Austein
 * Copyright (c) 2015, NORDUnet A/S
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 * - Redistributions of source code must retain the above copyright notice,
 *   this list of conditions and the following disclaimer.
 *
 * - 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.
 *
 * - Neither the name of the NORDUnet nor the names of its contributors may
 *   be used to endorse or promote products derived from this software
 *   without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 COPYRIGHT
 * HOLDER 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.
 */

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>

#include "novena-eim.h"

#define string_match(...) \
  _string_match(__VA_ARGS__, NULL)

static int _string_match(const char *s1, ...)
{
  const char *s2;

  if (s1 == NULL)
    return 0;

  va_list ap;
  va_start(ap, s1);
  for (s2 = va_arg(ap, const char *); s2 != NULL; s2 = va_arg(ap, const char *))
    if (!strcmp(s1, s2))
      break;
  va_end(ap);

  return s2 != NULL;
}

static int parse_value(const char *s, uint32_t *value)
{
  if (s == NULL || value == NULL)
    return 0;

  char *e;
  *value = strtoul(s, &e, 0);

  return *s != '\0' && *e == '\0';
}

static int parse_offset(const char *s, off_t *offset)
{
  uint32_t value;

  if (offset == NULL || !parse_value(s, &value))
    return 0;

  *offset = (off_t) value;
  return 1;
}

static void usage(const int code, const char *jane)
{
  FILE *f = code ? stderr : stdout;
  fprintf(f, "usage: %s { --read  offset | --write offset value }\n", jane);
  exit(code);
}

int main(int argc, char *argv[])
{
  off_t offset = 0;
  uint32_t value;

  if (argc == 1 || string_match(argv[1], "-?", "-h", "--help"))
    usage(EXIT_SUCCESS, argv[0]);

  if (eim_setup() != 0) {
    fprintf(stderr, "EIM setup failed\n");
    return EXIT_FAILURE;
  }

  if (string_match(argv[1], "r", "-r", "--read", "--peek")) {
    if (argc != 3 || !parse_offset(argv[2], &offset))
      usage(EXIT_FAILURE, argv[0]);
    eim_read_32(offset, &value);
    printf("%08x\n", value);
  }

  else if (string_match(argv[1], "w", "-w", "--write", "--poke")) {
    if (argc != 4 || !parse_offset(argv[2], &offset) || !parse_value(argv[3], &value))
      usage(EXIT_FAILURE, argv[0]);
    eim_write_32(offset, &value);
    exit(EXIT_SUCCESS);
  }

  else {
    usage(EXIT_FAILURE, argv[0]);
  }

  return EXIT_SUCCESS;
}
an>*cli, const char *command, char *argv[], int argc) { hal_error_t status; int hint = 0; if (argc != 2) { cli_print(cli, "Wrong number of arguments (%i).", argc); cli_print(cli, "Syntax: keystore set key <name> <der>"); return CLI_ERROR; } if ((status = hal_ks_store(HAL_KEY_TYPE_EC_PUBLIC, HAL_CURVE_NONE, 0, (uint8_t *) argv[0], strlen(argv[0]), (uint8_t *) argv[1], strlen(argv[1]), &hint)) != LIBHAL_OK) { cli_print(cli, "Failed storing key: %s", hal_error_string(status)); return CLI_ERROR; } cli_print(cli, "Stored key %i", hint); return CLI_OK; } int cmd_keystore_delete_key(struct cli_def *cli, const char *command, char *argv[], int argc) { hal_error_t status; int hint = 0; if (argc != 1) { cli_print(cli, "Wrong number of arguments (%i).", argc); cli_print(cli, "Syntax: keystore delete key <name>"); return CLI_ERROR; } if ((status = hal_ks_delete(HAL_KEY_TYPE_EC_PUBLIC, (uint8_t *) argv[0], strlen(argv[0]), &hint)) != LIBHAL_OK) { cli_print(cli, "Failed deleting key: %s", hal_error_string(status)); return CLI_ERROR; } cli_print(cli, "Deleted key %i", hint); return CLI_OK; } int cmd_keystore_rename_key(struct cli_def *cli, const char *command, char *argv[], int argc) { hal_error_t status; int hint = 0; if (argc != 2) { cli_print(cli, "Wrong number of arguments (%i).", argc); cli_print(cli, "Syntax: keystore rename key <name> <new name>"); return CLI_ERROR; } if ((status = hal_ks_rename(HAL_KEY_TYPE_EC_PUBLIC, (uint8_t *) argv[0], strlen(argv[0]), (uint8_t *) argv[1], strlen(argv[1]), &hint)) != LIBHAL_OK) { cli_print(cli, "Failed renaming key: %s", hal_error_string(status)); return CLI_ERROR; } cli_print(cli, "Renamed key %i", hint); return CLI_OK; } int cmd_keystore_show_data(struct cli_def *cli, const char *command, char *argv[], int argc) { uint8_t buf[KEYSTORE_PAGE_SIZE]; uint32_t i; if (keystore_check_id() != 1) { cli_print(cli, "ERROR: The keystore memory is not accessible."); } memset(buf, 0, sizeof(buf)); if ((i = keystore_read_data(0, buf, sizeof(buf))) != 1) { cli_print(cli, "Failed reading first page from keystore memory: %li", i); return CLI_ERROR; } cli_print(cli, "First page from keystore memory:\r\n"); uart_send_hexdump(STM_UART_MGMT, buf, 0, sizeof(buf) - 1); uart_send_string2(STM_UART_MGMT, (char *) "\r\n\r\n"); for (i = 0; i < 8; i++) { if (buf[i] == 0xff) break; /* never written */ if (buf[i] != 0x55) break; /* something other than a tombstone */ } /* As a demo, tombstone byte after byte of the first 8 bytes in the keystore memory * (as long as they do not appear to contain real data). * If all of them are tombstones, erase the first sector to start over. */ /* if (i < 8) { if (buf[i] == 0xff) { cli_print(cli, "Tombstoning byte %li", i); buf[i] = 0x55; if ((i = keystore_write_data(0, buf, sizeof(buf))) != 1) { cli_print(cli, "Failed writing data at offset 0: %li", i); return CLI_ERROR; } } } else { cli_print(cli, "Erasing first sector since all the first 8 bytes are tombstones"); if ((i = keystore_erase_sectors(1, 1)) != 1) { cli_print(cli, "Failed erasing the first sector: %li", i); return CLI_ERROR; } cli_print(cli, "Erase result: %li", i); } */ return CLI_OK; } int cmd_keystore_show_keys(struct cli_def *cli, const char *command, char *argv[], int argc) { const hal_ks_keydb_t *db; db = hal_ks_get_keydb(); if (db == NULL) { cli_print(cli, "Could not get a keydb from libhal"); return CLI_OK; } cli_print(cli, "Sizeof db->keys is %i, sizeof one key is %i\n", sizeof(db->keys), sizeof(*db->keys)); for (int i = 0; i < sizeof(db->keys)/sizeof(*db->keys); i++) { if (! db->keys[i].in_use) { cli_print(cli, "Key %i, not in use", i); } else { cli_print(cli, "Key %i, in use 0x%x, name '%s' der '%s'", i, db->keys[i].in_use, db->keys[i].name, db->keys[i].der); } } cli_print(cli, "\nPins:"); cli_print(cli, "Wheel iterations: 0x%lx", db->wheel_pin.iterations); cli_print(cli, "SO iterations: 0x%lx", db->so_pin.iterations); cli_print(cli, "User iterations: 0x%lx", db->user_pin.iterations); cli_print(cli, "\n"); return CLI_OK; } void configure_cli_keystore(struct cli_def *cli) { /* keystore */ cli_command_root(keystore); /* keystore set */ cli_command_branch(keystore, set); /* keystore delete */ cli_command_branch(keystore, delete); /* keystore rename */ cli_command_branch(keystore, rename); /* keystore show */ cli_command_branch(keystore, show); /* keystore set pin */ cli_command_node(keystore_set, pin, "Set either 'wheel', 'user' or 'so' PIN"); /* keystore set key */ cli_command_node(keystore_set, key, "Set a key"); /* keystore delete key */ cli_command_node(keystore_delete, key, "Delete a key"); /* keystore rename key */ cli_command_node(keystore_rename, key, "Rename a key"); /* keystore show data */ cli_command_node(keystore_show, data, "Dump the first page from the keystore memory"); /* keystore show keys */ cli_command_node(keystore_show, keys, "Show what PINs and keys are in the keystore"); }