set-private-key ( bin -- )

Vocabulary

ecdsa

Inputs

bin

an object

Outputs

None

Definition

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

IN: ecdsa

: set-private-key ( bin -- )
    ec-key-handle swap dup length f BN_bin2bn dup ssl-error
    [ &BN_clear_free EC_KEY_set_private_key ssl-error ]
    with-destructors ;