[OpenBIOS] r555 - cpu/x86/pc/olpc
svn at openbios.org
svn at openbios.org
Thu Aug 16 23:00:47 CEST 2007
Author: wmb
Date: 2007-08-16 23:00:46 +0200 (Thu, 16 Aug 2007)
New Revision: 555
Modified:
cpu/x86/pc/olpc/crypto.fth
Log:
OLPC crypto - converted interface code to use the simplified version
of the C code that just verifies one signature at a time.
Modified: cpu/x86/pc/olpc/crypto.fth
===================================================================
--- cpu/x86/pc/olpc/crypto.fth 2007-08-16 20:58:17 UTC (rev 554)
+++ cpu/x86/pc/olpc/crypto.fth 2007-08-16 21:00:46 UTC (rev 555)
@@ -4,6 +4,7 @@
h# c0000 constant crypto-base \ The address the code is linked to run at
h# c0000 constant hasher-base \ The address the code is linked to run at
+0 [if]
variable hashlen
d# 128 buffer: hashbuf
@@ -17,9 +18,11 @@
hasher-base dup h# 10 - sp-call abort" Hash failed" drop 4drop ( )
hashbuf hashlen @
;
+[then]
-h# f value which-hashes
-: signature-bad? ( data$ sig$ -- mismatch? )
+0 value hashname
+: signature-bad? ( data$ sig$ hashname$ -- mismatch? )
+ $cstr to hashname ( data$ sig$ )
" crypto" find-drop-in 0= if 4drop true exit then ( data$ sig$ prog$ )
2dup crypto-base swap move free-mem ( data$ sig$ )
@@ -28,7 +31,7 @@
swap 2swap swap ( siglen sigadr datalen dataadr r: key$ )
2r@ swap 2swap ( siglen sigadr keylen keyadr datalen dataadr r: key$ )
- which-hashes
+ hashname ( siglen sigadr keylen keyadr datalen dataadr hash r: key$ )
crypto-base dup h# 10 - sp-call >r 3drop 4drop r> ( result r: key$ )
2r> free-mem
More information about the OpenBIOS
mailing list