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

Vocabulary

ecdsa

Inputs

None

Outputs

bin/f

an object

Definition

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

IN: ecdsa

: get-private-key ( -- bin/f )
    ec-key-handle EC_KEY_get0_private_key dup [
        dup BN_num_bits bits>bytes <byte-array>
        [ BN_bn2bin drop ] keep
    ] when ;