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

Merge branch 'master' of git://github.com/Keyholder/factor

db4
Slava Pestov 2009-03-23 03:09:09 -05:00
parent a3e05d8ecc 83592b7d84
commit 0dd2a918ba
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 ! Copyright (C) 2009 Maxim Savchenko
! See http://factorcode.org/license.txt for BSD license. ! 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 IN: ecdsa.tests
SYMBOLS: priv-key pub-key signature ; SYMBOLS: priv-key pub-key signature ;
@ -16,7 +16,7 @@ SYMBOLS: priv-key pub-key signature ;
[ ] ! Signing message [ ] ! Signing message
[ [
message "sha256" <openssl-checksum> checksum-bytes message sha-256 checksum-bytes
priv-key get priv-key get
"prime256v1" [ set-private-key ecdsa-sign ] with-ec "prime256v1" [ set-private-key ecdsa-sign ] with-ec
signature set signature set
@ -24,7 +24,7 @@ SYMBOLS: priv-key pub-key signature ;
[ t ] ! Verifying signature [ t ] ! Verifying signature
[ [
message "sha256" <openssl-checksum> checksum-bytes message sha-256 checksum-bytes
signature get pub-key get signature get pub-key get
"prime256v1" [ set-public-key ecdsa-verify ] with-ec "prime256v1" [ set-public-key ecdsa-verify ] with-ec
] unit-test ] unit-test