-rw-r--r-- 481 lib25519-20220426/crypto_sign/ed25519/nath-maa/keypair.c raw
#include <string.h>
#include "crypto_sign.h"
#include "crypto_hash_sha512.h"
#include "randombytes.h"
#include "ge25519.h"

void crypto_sign_keypair(unsigned char *pk,unsigned char *sk)
{
  unsigned char az[64];
  sc25519 scsk;
  ge25519 gepk;

  randombytes(sk,32);
  crypto_hash_sha512(az,sk,32);
  az[0] &= 248;
  az[31] &= 127;
  az[31] |= 64;

  sc25519_from32bytes(&scsk,az);
  
  ge25519_scalarmult_base(&gepk, &scsk);
  ge25519_pack(pk, &gepk);
  memmove(sk + 32,pk,32);
}