get-public-key ( -- bin/f )

Vocabulary

ecdsa

Inputs

None

Outputs

bin/f

an object

Definition

USING: bit-arrays.private byte-arrays ecdsa.private kernel math
openssl openssl.libcrypto ;

IN: ecdsa

:: get-public-key ( -- bin/f )
    ec-key-handle :> KEY KEY EC_KEY_get0_public_key dup [| PUB |
        KEY EC_KEY_get0_group :> GROUP GROUP EC_GROUP_get_degree
        bits>bytes 1 +
        :> LEN LEN <byte-array> :> BIN GROUP PUB
        POINT_CONVERSION_COMPRESSED BIN LEN f EC_POINT_point2oct
        ssl-error BIN
    ] when ;