set-public-key ( BIN -- )

Vocabulary

ecdsa

Inputs

BIN

an object

Outputs

None

Definition

USING: destructors ecdsa.private kernel openssl
openssl.libcrypto sequences ;

IN: ecdsa

:: set-public-key ( BIN -- )
    ec-key-handle :> KEY KEY EC_KEY_get0_group :> GROUP GROUP
    EC_POINT_new dup ssl-error [
        &EC_POINT_clear_free :> POINT GROUP POINT BIN dup length
        f EC_POINT_oct2point ssl-error
        KEY POINT EC_KEY_set_public_key ssl-error
    ] with-destructors ;