Attention une mise à jour du service Gitlab va être effectuée le mardi 14 décembre entre 13h30 et 14h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit 23757dfe authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Inline dlog_challenge_generator

parent 23c88d46
...@@ -120,9 +120,6 @@ let verify_public_key {g; p; q; y} = ...@@ -120,9 +120,6 @@ let verify_public_key {g; p; q; y} =
check_subgroup p q g && check_subgroup p q g &&
check_subgroup p q y check_subgroup p q y
let dlog_challenge_generator q x =
Z.(hashZ (Z.to_string x) mod q)
let verify_trustee_pok pk = let verify_trustee_pok pk =
let {g; p; q; y} = pk.trustee_public_key in let {g; p; q; y} = pk.trustee_public_key in
let {pok_commitment; pok_challenge; pok_response} = pk.trustee_pok in let {pok_commitment; pok_challenge; pok_response} = pk.trustee_pok in
...@@ -131,7 +128,7 @@ let verify_trustee_pok pk = ...@@ -131,7 +128,7 @@ let verify_trustee_pok pk =
check_modulo p pok_commitment && check_modulo p pok_commitment &&
check_modulo q pok_response && check_modulo q pok_response &&
g ** pok_response =~ pok_commitment * y ** pok_challenge && g ** pok_response =~ pok_commitment * y ** pok_challenge &&
pok_challenge =~ dlog_challenge_generator q pok_commitment pok_challenge =~ Z.(hashZ (Z.to_string pok_commitment) mod q)
let () = assert (verify_trustee_pok one_trustee_public_key) let () = assert (verify_trustee_pok one_trustee_public_key)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment