ecdsa-sign ( DGST -- sig )

Vocabulary

ecdsa

Inputs

DGST

an object

Outputs

sig

an object

Definition

USING: alien.c-types alien.data byte-arrays ecdsa.private kernel
openssl openssl.libcrypto sequences sequences.private ;

IN: ecdsa

:: ecdsa-sign ( DGST -- sig )
    ec-key-handle :> KEY KEY ECDSA_size dup ssl-error
    <byte-array> :> SIG 0 uint <ref>
    :> LEN 0 DGST dup length SIG LEN KEY ECDSA_sign ssl-error
    LEN uint deref SIG resize ;