Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

MLKEM FIPS 203 final #131

Merged
merged 4 commits into from
Sep 5, 2024
Merged

MLKEM FIPS 203 final #131

Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
f930b4c
FIPS 203 FINAL
rod-chapman Aug 28, 2024
74c7d1a
Append k to d to achieve domain separation in PKE_KeyGen, as per FIPS…
rod-chapman Aug 28, 2024
87feedb
FIPS 203 FINAL - rename rvec and rvechat to yvec and yvechat in K_PKE…
rod-chapman Aug 28, 2024
f4a83bc
Merge branch 'GaloisInc:master' into fips_203_final
rod-chapman Aug 30, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 9 additions & 9 deletions Primitive/Asymmetric/Cipher/ML-KEM/specification.cry
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -98,7 +98,7 @@ Decompress x = map Decompress'`{d} x

// These types distinguish infinite from finite length
PRF : {prfeta} (fin prfeta, prfeta > 0) => ([32]Byte, Byte) -> [64 * prfeta]Byte
XOF : ([32]Byte, Byte, Byte) -> [inf]Byte
XOF : ([34]Byte) -> [inf]Byte
H : {hinl} (fin hinl) => [hinl]Byte -> [32]Byte
J : {hinl} (fin hinl) => [hinl]Byte -> [32]Byte
G : {ginl} (fin ginl) => [ginl]Byte -> ([32]Byte, [32]Byte)
Expand Down Expand Up @@ -500,8 +500,8 @@ property CorrectnessEncodeDecode' f = Decode'`{12}(Encode'`{12} f) == f

K_PKE_KeyGen: ([32]Byte) -> ([384*k+32]Byte, [384*k]Byte)
K_PKE_KeyGen(d) = (ekPKE, dkPKE) where
(ρ,σ) = G(d)
A_hat = [[SampleNTT (XOF(ρ,i,j)) | i <- [0 .. k-1]] | j <- [0 .. k-1]] : [k][k]Z_q_256
(ρ,σ) = G(d # [`(k)])
rod-chapman marked this conversation as resolved.
Show resolved Hide resolved
A_hat = [[SampleNTT (XOF(ρ # [j] # [i])) | j <- [0 .. k-1]] | i <- [0 .. k-1]] : [k][k]Z_q_256
rod-chapman marked this conversation as resolved.
Show resolved Hide resolved
s = [SamplePolyCBD`{eta_1}(PRF(σ,N)) | N <- [0 .. k-1]] : [k]Z_q_256
e = [SamplePolyCBD`{eta_1}(PRF(σ,N)) | N <- [k .. (2*k-1)]] : [k]Z_q_256
s_hat = NTT(s)
Expand All @@ -516,14 +516,14 @@ K_PKE_Encrypt : ([384*k+32]Byte, [32]Byte, [32]Byte) -> [32*(d_u*k+d_v)]Byte
K_PKE_Encrypt(ekPKE, m, r) = c where
t_hat = Decode`{12} (ekPKE@@[0 .. 384*k - 1])
rho = ekPKE@@[384*k .. 384*k + 32 - 1]
A_hat = [[SampleNTT (XOF(rho,i,j)) | i <- [0 .. k-1]] | j <- [0 .. k-1]] : [k][k]Z_q_256
rvec = [SamplePolyCBD`{eta_1}(PRF(r,N)) | N <- [0 .. k-1]] : [k]Z_q_256
A_hat = [[SampleNTT (XOF(rho # [j] # [i])) | j <- [0 .. k-1]] | i <- [0 .. k-1]] : [k][k]Z_q_256
rod-chapman marked this conversation as resolved.
Show resolved Hide resolved
yvec = [SamplePolyCBD`{eta_1}(PRF(r,N)) | N <- [0 .. k-1]] : [k]Z_q_256
e1 = [SamplePolyCBD`{eta_2}(PRF(r,N)) | N <- [k .. (2*k-1)]] : [k]Z_q_256
e2 = SamplePolyCBD`{eta_2}(PRF(r,2*`k)) : Z_q_256
rvechat = NTT rvec
u = NTTInv (dotMatVec (transpose A_hat) rvechat) + e1 : [k]Z_q_256
yvechat = NTT yvec
u = NTTInv (dotMatVec (transpose A_hat) yvechat) + e1 : [k]Z_q_256
mu = Decompress'`{1}(DecodeBytes'`{1} m)
v = (NTTInv' (dotVecVec t_hat rvechat)) + e2 + mu
v = (NTTInv' (dotVecVec t_hat yvechat)) + e2 + mu
c1 = EncodeBytes`{d_u}(Compress`{d_u}(u))
c2 = EncodeBytes'`{d_v}(Compress'`{d_v}(v))
c = c1#c2
Expand Down Expand Up @@ -610,7 +610,7 @@ parameter

import Primitive::Keyless::Hash::utils
import Primitive::Keyless::Hash::SHAKE::SHAKE128
XOF(rho, i, j) = groupBy`{8}(shake128((fromBytes(rho))# reverse i# reverse j))
XOF(d) = groupBy`{8}(shake128(fromBytes(d)))
J(s) = take(groupBy(shake256(fromBytes(s))))

import `Primitive::Keyless::Hash::SHA3::SHA3
Expand Down