sha512_init(&h); sha512_hash(&h, k, ksz); sha512_done(&h, b);
b[0] &= 0xf8u; b[31] = (b[31]&0x3f) | 0x40;
scaf_load(a, b, 32, NPIECE, PIECEWD);
- memcpy(h1, b + 32, 32);
+ if (h1) memcpy(h1, b + 32, 32);
}
/*----- Main code ---------------------------------------------------------*/
{
scaf_piece a[NPIECE];
f25519 AX, AY, AZ;
- octet h1[32];
- unpack_key(a, h1, k, ksz);
+ unpack_key(a, 0, k, ksz);
ptmul(&AX, &AY, &AZ, a, BX, BY, BZ);
ptencode(K, &AX, &AY, &AZ);
}