steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

OpenSSL checksum => native implementation

db4
Maxim Savchenko 2009-03-23 03:16:13 -04:00
parent 031b2aa332
commit 83592b7d84
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/ecdsa/ecdsa-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Maxim Savchenko
! See http://factorcode.org/license.txt for BSD license.
USING: namespaces ecdsa tools.test checksums checksums.openssl ;
USING: namespaces ecdsa tools.test checksums checksums.sha2 ;
IN: ecdsa.tests
SYMBOLS: priv-key pub-key signature ;
@ -16,7 +16,7 @@ SYMBOLS: priv-key pub-key signature ;
[ ] ! Signing message
[
message "sha256" <openssl-checksum> checksum-bytes
message sha-256 checksum-bytes
priv-key get
"prime256v1" [ set-private-key ecdsa-sign ] with-ec
signature set
@ -24,7 +24,7 @@ SYMBOLS: priv-key pub-key signature ;
[ t ] ! Verifying signature
[
message "sha256" <openssl-checksum> checksum-bytes
message sha-256 checksum-bytes
signature get pub-key get
"prime256v1" [ set-public-key ecdsa-verify ] with-ec
] unit-test