ENHANCED: more extensive type checking in curve25519_scalar_mult/3

2023-08-20 14:42:34 +02:00
parent 745ddc2c87
commit 013df58fea
1 changed files with 2 additions and 0 deletions
--- a/src/lib/crypto.pl
+++ b/src/lib/crypto.pl
@@ -711,6 +711,8 @@ curve25519_scalar_mult(Scalar, Point, Result) :-
            must_be_bytes(ScalarBytes, curve25519_scalar_mult/3),
            length(ScalarBytes, 32)
        ),
+        must_be(chars, Point),
+        length(Point, 32),
        maplist(char_code, Point, PointBytes),
        '$curve25519_scalar_mult'(ScalarBytes, PointBytes, Result).