diff options
Diffstat (limited to '')
| -rw-r--r-- | src/completion | 33 | ||||
| -rw-r--r-- | src/krandom.c | 218 |
2 files changed, 0 insertions, 251 deletions
diff --git a/src/completion b/src/completion deleted file mode 100644 index 8af4b9d..0000000 --- a/src/completion +++ /dev/null @@ -1,33 +0,0 @@ -; krandom – Keccak-based userspace pseudorandom number generator -; Copyright © 2014 Mattias Andrée (maandree@member.fsf.org) -; -; This program is free software: you can redistribute it and/or modify -; it under the terms of the GNU Affero General Public License as published by -; the Free Software Foundation, either version 3 of the License, or -; (at your option) any later version. -; -; This program is distributed in the hope that it will be useful, -; but WITHOUT ANY WARRANTY; without even the implied warranty of -; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -; GNU Affero General Public License for more details. -; -; You should have received a copy of the GNU Affero General Public License -; along with this program. If not, see <http://www.gnu.org/licenses/>. - - -((value command) - - (multiple unargumented - ((options -h --help) (complete --help) (desc 'Display option summary')) - ((options -v --verbose) (complete --verbose) (desc 'Be verbose')) - ) - - (multiple argumented - ((options -R --bitrate --rate) (complete --rate) (arg RATE) (files -0) (desc 'Select rate')) - ((options -C --capacity) (complete --capacity) (arg CAPACITY) (files -0) (desc 'Select capacity')) - ((options -N -O --output-size --output) (complete --output-size) (arg SIZE) (files -0) (desc 'Select output size')) - ((options -S -B --state-size --state) (complete --state-size) (arg SIZE) (files -0) (desc 'Select state size')) - ((options -W --word-size --word) (complete --word-size) (arg SIZE) (files -0) (desc 'Select word size')) - ) -) - diff --git a/src/krandom.c b/src/krandom.c deleted file mode 100644 index 54eca43..0000000 --- a/src/krandom.c +++ /dev/null @@ -1,218 +0,0 @@ -/** - * krandom – Keccak-based userspace pseudorandom number generator - * Copyright © 2014 Mattias Andrée (maandree@member.fsf.org) - * - * This program is free software: you can redistribute it and/or modify - * it under the terms of the GNU Affero General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU Affero General Public License for more details. - * - * You should have received a copy of the GNU Affero General Public License - * along with this program. If not, see <http://www.gnu.org/licenses/>. - */ -#include <stdio.h> -#include <errno.h> -#include <fcntl.h> -#include <unistd.h> -#include <stddef.h> -#include <stdlib.h> -#include <string.h> -#include <sys/stat.h> -#include <alloca.h> - -#include <libkeccak.h> -#include <argparser.h> - - - -#ifndef URANDOM -# ifndef DEVDIR -# define DEVDIR "/dev" -# endif -# define URANDOM DEVDIR "/urandom" -#endif - - - -#define USER_ERROR(string) \ - (fprintf(stderr, "%s: %s.\n", execname, string), 1) - -#define ADD(arg, desc, ...) \ - (arg ? args_add_option(args_new_argumented(NULL, arg, 0, __VA_ARGS__, NULL), desc) \ - : args_add_option(args_new_argumentless(NULL, 0, __VA_ARGS__, NULL), desc)) - -#define LAST(arg) \ - (args_opts_get(arg)[args_opts_get_count(arg) - 1]) - - - -/** - * `argv[0]` from `main` - */ -static char* execname; - - -/** - * Convert `libkeccak_generalised_spec_t` to `libkeccak_spec_t` and check for errors - * - * @param gspec See `libkeccak_degeneralise_spec` - * @param spec See `libkeccak_degeneralise_spec` - * @return Zero on success, an appropriate exit value on error - */ -static int make_spec(libkeccak_generalised_spec_t* restrict gspec, libkeccak_spec_t* restrict spec) -{ - int r; - -#define TEST(CASE, STR) case LIBKECCAK_GENERALISED_SPEC_ERROR_##CASE: return USER_ERROR(STR) - if (r = libkeccak_degeneralise_spec(gspec, spec), r) - switch (r) - { - TEST (STATE_NONPOSITIVE, "the state size must be positive"); - TEST (STATE_TOO_LARGE, "the state size is too large, may not exceed 1600"); - TEST (STATE_MOD_25, "the state size must be a multiple of 25"); - TEST (WORD_NONPOSITIVE, "the word size must be positive"); - TEST (WORD_TOO_LARGE, "the word size is too large, may not exceed 64"); - TEST (STATE_WORD_INCOHERENCY, "the state size must be exactly 25 times the word size"); - TEST (CAPACITY_NONPOSITIVE, "the capacity must be positive"); - TEST (CAPACITY_MOD_8, "the capacity must be a multiple of 8"); - TEST (BITRATE_NONPOSITIVE, "the rate must be positive"); - TEST (BITRATE_MOD_8, "the rate must be a multiple of 8"); - TEST (OUTPUT_NONPOSITIVE, "the output size must be positive"); - default: - return USER_ERROR("unknown error in algorithm parameters"); - } -#undef TEST - -#define TEST(CASE, STR) case LIBKECCAK_SPEC_ERROR_##CASE: return USER_ERROR(STR) - if (r = libkeccak_spec_check(spec), r) - switch (r) - { - TEST (BITRATE_NONPOSITIVE, "the rate size must be positive"); - TEST (BITRATE_MOD_8, "the rate must be a multiple of 8"); - TEST (CAPACITY_NONPOSITIVE, "the capacity must be positive"); - TEST (CAPACITY_MOD_8, "the capacity must be a multiple of 8"); - TEST (OUTPUT_NONPOSITIVE, "the output size must be positive"); - TEST (STATE_TOO_LARGE, "the state size is too large, may not exceed 1600"); - TEST (STATE_MOD_25, "the state size must be a multiple of 25"); - TEST (WORD_NON_2_POTENT, "the word size must be a power of 2"); - TEST (WORD_MOD_8, "the word size must be a multiple of 8"); - default: - return USER_ERROR("unknown error in algorithm parameters"); - } -#undef TEST - - return 0; -} - - - -/** - * Mane! - * - * @param argc The number of elements in `argv` - * @param argv Command line arguments - * @return Zero on and only on success - */ -int main(int argc, char** argv) -{ - char* restrict generated_random = NULL; - libkeccak_generalised_spec_t gspec; - libkeccak_spec_t spec; - libkeccak_state_t state; - size_t length, ptr; - ssize_t got; - int r, fd = -1, verbose = 0; - - execname = argc ? *argv : "krandom"; - - - memset(&state, 0, sizeof(libkeccak_state_t)); - libkeccak_generalised_spec_initialise(&gspec); - if (!argc) - goto skip_argv_parsing; - - args_init("Keccak-based userspace pseudorandom number generator", - "krandom [options...]", NULL, - NULL, 1, 0, args_standard_abbreviations); - - ADD(NULL, "Display option summary", "-h", "--help"); - ADD("RATE", "Select rate", "-R", "--bitrate", "--rate"); - ADD("CAPACITY", "Select capacity", "-C", "--capacity"); - ADD("SIZE", "Select output size", "-N", "-O", "--output-size", "--output"); - ADD("SIZE", "Select state size", "-S", "-B", "--state-size", "--state"); - ADD("SIZE", "Select word size", "-W", "--word-size", "--word"); - ADD(NULL, "Be verbose", "-v", "--verbose"); - - args_parse(argc, argv); - - if (args_opts_used("-h")) return args_help(0), args_dispose(), 0; - if (args_opts_used("-R")) gspec.bitrate = atol(LAST("-R")); - if (args_opts_used("-C")) gspec.capacity = atol(LAST("-C")); - if (args_opts_used("-N")) gspec.output = atol(LAST("-N")); - if (args_opts_used("-S")) gspec.state_size = atol(LAST("-S")); - if (args_opts_used("-W")) gspec.word_size = atol(LAST("-W")); - if (args_opts_used("-v")) verbose = 1; - - skip_argv_parsing: - if ((r = make_spec(&gspec, &spec))) - goto done; - - if (verbose) - { - fprintf(stderr, "%s: " "rate: %li\n", execname, gspec.bitrate); - fprintf(stderr, "%s: " "capacity: %li\n", execname, gspec.capacity); - fprintf(stderr, "%s: " "output size: %li\n", execname, gspec.output); - fprintf(stderr, "%s: " "state size: %li\n", execname, gspec.state_size); - fprintf(stderr, "%s: " "word size: %li\n", execname, gspec.word_size); - } - - libkeccak_state_initialise(&state, &spec); - - fd = open(URANDOM, O_RDONLY); - if (fd < 0) - goto fail; - for (ptr = 0, length = sizeof(state.S); ptr < length;) - { - got = read(fd, (char*)(state.S) + ptr, length - ptr); - if (got <= 0) - goto fail; - ptr += (size_t)got; - } - close(fd), fd = -1; - - length = (size_t)((spec.output + 7) / 8); - generated_random = malloc(length); - if (generated_random == NULL) - goto fail; - - for (;;) - { - libkeccak_squeeze(&state, generated_random); - got = write(STDOUT_FILENO, generated_random, length); - if (got >= 0) - continue; - if (errno == EPIPE) - break; - goto fail; - } - - - done: - if (fd >= 0) - close(fd); - if (argc) - args_dispose(); - free(generated_random); - libkeccak_state_fast_destroy(&state); - return r; - fail: - perror(execname); - r = 2; - goto done; -} - |