diff options
| author | Bernard Kolobara <[email protected]> | 2019-07-30 13:18:36 +0200 |
|---|---|---|
| committer | Bernard Kolobara <[email protected]> | 2019-07-30 13:18:36 +0200 |
| commit | c1b2fb98bcebe12b6a63c2b541f2eb7e0bbbc115 (patch) | |
| tree | baf8d1b6cf9679a6655b33a0cf0d9a6b07b47043 /lib | |
| parent | dc6d70bc727c202860e84ec6cc82081486efbda5 (diff) | |
| download | otp-c1b2fb98bcebe12b6a63c2b541f2eb7e0bbbc115.tar.gz otp-c1b2fb98bcebe12b6a63c2b541f2eb7e0bbbc115.tar.bz2 otp-c1b2fb98bcebe12b6a63c2b541f2eb7e0bbbc115.zip | |
Fix test of x448 & x25519 curves
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/crypto/test/crypto_SUITE.erl | 46 |
1 files changed, 20 insertions, 26 deletions
diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl index 6436b5b86d..614d14029b 100644 --- a/lib/crypto/test/crypto_SUITE.erl +++ b/lib/crypto/test/crypto_SUITE.erl @@ -1865,7 +1865,7 @@ group_config(srp, Config) -> [{generate_compute, GenerateCompute} | Config]; group_config(ecdh, Config) -> Compute = ecdh(), - Generate = ecc() ++ ecc(x25519) ++ ecc(x448), + Generate = ecc(), [{compute, Compute}, {generate, Generate} | Config]; group_config(dh, Config) -> GenerateCompute = [dh()], @@ -3922,36 +3922,30 @@ ecc() -> "782C37E372BA4520AA62E0FED121D49EF3B543660CFD05FD")}, {ecdh,secp192r1,4, hexstr2point("35433907297CC378B0015703374729D7A4FE46647084E4BA", - "A2649984F2135C301EA3ACB0776CD4F125389B311DB3BE32")}], + "A2649984F2135C301EA3ACB0776CD4F125389B311DB3BE32")}, + %% RFC 7748, 6.2 + {ecdh, x448, + hexstr2bin("9a8f4925d1519f5775cf46b04b5800d4ee9ee8bae8bc5565d498c28d" + "d9c9baf574a9419744897391006382a6f127ab1d9ac2d8c0a598726b"), + hexstr2bin("9b08f7cc31b7e3e67d22d5aea121074a273bd2b83de09c63faa73d2c" + "22c5d9bbc836647241d953d40c5b12da88120d53177f80e532c41fa0")}, + {ecdh, x448, + hexstr2bin("1c306a7ac2a0e2e0990b294470cba339e6453772b075811d8fad0d1d" + "6927c120bb5ee8972b0d3e21374c9c921b09d1b0366f10b65173992d"), + hexstr2bin("3eb7a829b0cd20f5bcfc0b599b6feccf6da4627107bdb0d4f345b430" + "27d8b972fc3e34fb4232a13ca706dcb57aec3dae07bdc1c67bf33609")}, + %% RFC 7748, 6.1 + {ecdh, x25519, + hexstr2bin("77076d0a7318a57d3c16c17251b26645df4c2f87ebc0992ab177fba51db92c2a"), + hexstr2bin("8520f0098930a754748b7ddcb43ef75a0dbf3a0d26381af4eba4a98eaa9b4e6a")}, + {ecdh, x25519, + hexstr2bin("5dab087e624a8a4b79e17f8b83800ee66f3bb1292618b6fd1c2f8b27ff88e0eb"), + hexstr2bin("de9edb7d7b7dc1b4d35b61c2ece435373f8343c85b78674dadfc7e146f882b4f")}], lists:filter(fun ({_Type, Curve, _Priv, _Pub}) -> lists:member(Curve, Curves) end, TestCases). -ecc(x25519) -> - %% RFC 7748, 6.1 - [{ecdh, x25519, - hexstr2bin("77076d0a7318a57d3c16c17251b26645df4c2f87ebc0992ab177fba51db92c2a"), - hexstr2bin("8520f0098930a754748b7ddcb43ef75a0dbf3a0d26381af4eba4a98eaa9b4e6a")}, - {ecdh, x25519, - hexstr2bin("5dab087e624a8a4b79e17f8b83800ee66f3bb1292618b6fd1c2f8b27ff88e0eb"), - hexstr2bin("de9edb7d7b7dc1b4d35b61c2ece435373f8343c85b78674dadfc7e146f882b4f")} - ]; - -ecc(x448) -> - %% RFC 7748, 6.2 - [{ecdh, x448, - hexstr2bin("9a8f4925d1519f5775cf46b04b5800d4ee9ee8bae8bc5565d498c28d" - "d9c9baf574a9419744897391006382a6f127ab1d9ac2d8c0a598726b"), - hexstr2bin("9b08f7cc31b7e3e67d22d5aea121074a273bd2b83de09c63faa73d2c" - "22c5d9bbc836647241d953d40c5b12da88120d53177f80e532c41fa0")}, - {ecdh, x448, - hexstr2bin("1c306a7ac2a0e2e0990b294470cba339e6453772b075811d8fad0d1d" - "6927c120bb5ee8972b0d3e21374c9c921b09d1b0366f10b65173992d"), - hexstr2bin("3eb7a829b0cd20f5bcfc0b599b6feccf6da4627107bdb0d4f345b430" - "27d8b972fc3e34fb4232a13ca706dcb57aec3dae07bdc1c67bf33609")} - ]. - int_to_bin(X) when X < 0 -> int_to_bin_neg(X, []); int_to_bin(X) -> int_to_bin_pos(X, []). |