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

hashcash: quick fix for string argument to checksum-bytes.

char-rename
John Benediktsson 2016-06-30 14:50:47 -07:00
parent 8d61ace2b4
commit 58dd52e82e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/hashcash/hashcash.factor
View File

@ -1,8 +1,9 @@
! Copyright (C) 2009 Diego Martinelli. ! Copyright (C) 2009 Diego Martinelli.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors byte-arrays calendar calendar.format checksums USING: accessors calendar calendar.format checksums
checksums.openssl classes.tuple fry kernel make math math.functions checksums.openssl classes.tuple fry io.encodings.ascii
math.parser math.ranges present random sequences splitting strings ; io.encodings.string kernel math math.functions math.parser
math.ranges present random sequences splitting ;
IN: hashcash IN: hashcash
! Hashcash implementation ! Hashcash implementation
@ -49,7 +50,7 @@ M: hashcash string>>
<PRIVATE <PRIVATE
: sha1-checksum ( str -- bytes ) : sha1-checksum ( str -- bytes )
openssl-sha1 checksum-bytes ; inline ascii encode openssl-sha1 checksum-bytes ; inline
: set-suffix ( tuple guess -- tuple ) : set-suffix ( tuple guess -- tuple )
>hex >>suffix ; >hex >>suffix ;