22 lines
872 B
C
22 lines
872 B
C
/*---------------------------------------------------------------------
|
||
This file has been adapted from the implementation
|
||
(available at, Public Domain https://github.com/pq-crystals/kyber)
|
||
of "CRYSTALS – Kyber: a CCA-secure module-lattice-based KEM"
|
||
by : Joppe Bos, Leo Ducas, Eike Kiltz, Tancrede Lepoint,
|
||
Vadim Lyubashevsky, John M. Schanck, Peter Schwabe & Damien stehle
|
||
----------------------------------------------------------------------*/
|
||
#include "SABER_params.h"
|
||
#include "cbd.h"
|
||
#include "fips202.h"
|
||
#include "poly.h"
|
||
|
||
void PQCLEAN_FIRESABER_CLEAN_GenSecret(uint16_t r[SABER_K][SABER_N], const unsigned char *seed) {
|
||
uint8_t buf[SABER_MU * SABER_N * SABER_K / 8];
|
||
|
||
shake128(buf, sizeof(buf), seed, SABER_NOISESEEDBYTES);
|
||
|
||
for (size_t i = 0; i < SABER_K; i++) {
|
||
PQCLEAN_FIRESABER_CLEAN_cbd(r[i], buf + i * SABER_MU * SABER_N / 8);
|
||
}
|
||
}
|