<ec-key> ( curve -- key )

Vocabulary

ecdsa.private

Inputs

curve

an object

Outputs

key

an object

Definition

USING: kernel math openssl openssl.libcrypto ;

IN: ecdsa.private

: <ec-key> ( curve -- key )
    OBJ_sn2nid dup zero? [ "Unknown curve name" throw ] when
    EC_KEY_new_by_curve_name dup ssl-error f ec-key boa ;