1 ! Copyright (C) 2009 Maxim Savchenko
2 ! See http://factorcode.org/license.txt for BSD license.
4 USING: kernel accessors sequences sequences.private destructors math namespaces
5 openssl openssl.libcrypto byte-arrays bit-arrays.private
6 alien.c-types alien.destructors alien.data ;
12 TUPLE: ec-key handle ;
15 [ EC_KEY_free f ] change-handle drop ;
17 : <ec-key> ( curve -- key )
18 OBJ_sn2nid dup zero? [ "Unknown curve name" throw ] when
19 EC_KEY_new_by_curve_name dup ssl-error ec-key boa ;
21 : ec-key-handle ( -- handle )
22 ec-key get dup handle>> [ ] [ already-disposed ] ?if ;
24 DESTRUCTOR: BN_clear_free
26 DESTRUCTOR: EC_POINT_clear_free
30 : with-ec ( curve quot -- )
31 swap <ec-key> [ ec-key rot with-variable ] with-disposal ; inline
34 ec-key get handle>> EC_KEY_generate_key ssl-error ;
36 : set-private-key ( bin -- )
38 dup length f BN_bin2bn dup ssl-error
39 [ &BN_clear_free EC_KEY_set_private_key ssl-error ] with-destructors ;
41 :: set-public-key ( BIN -- )
43 KEY EC_KEY_get0_group :> GROUP
44 GROUP EC_POINT_new dup ssl-error
46 &EC_POINT_clear_free :> POINT
47 GROUP POINT BIN dup length f EC_POINT_oct2point ssl-error
48 KEY POINT EC_KEY_set_public_key ssl-error
51 : get-private-key ( -- bin/f )
52 ec-key-handle EC_KEY_get0_private_key
53 dup [ dup BN_num_bits bits>bytes <byte-array> [ BN_bn2bin drop ] keep ] when ;
55 :: get-public-key ( -- bin/f )
57 KEY EC_KEY_get0_public_key dup
59 KEY EC_KEY_get0_group :> GROUP
60 GROUP EC_GROUP_get_degree bits>bytes 1 + :> LEN
61 LEN <byte-array> :> BIN
62 GROUP PUB POINT_CONVERSION_COMPRESSED BIN LEN f
63 EC_POINT_point2oct ssl-error
67 :: ecdsa-sign ( DGST -- sig )
69 KEY ECDSA_size dup ssl-error <byte-array> :> SIG
71 0 DGST dup length SIG LEN KEY ECDSA_sign ssl-error
72 LEN uint deref SIG resize ;
74 : ecdsa-verify ( dgst sig -- ? )
75 ec-key-handle [ 0 -rot [ dup length ] bi@ ] dip ECDSA_verify 0 > ;