check-stamp ( stamp -- ? )
Hashcash

Prev:	mint* ( tuple -- stamp )
Next:	hashcash

Vocabulary
hashcash

Inputs

stamp

a string

Outputs

?

a boolean

Word description
Check for stamp's validity. Only supports hashcash version 1.

See also
mint, mint*, <hashcash>, salt

Definition

USING: hashcash.private kernel math.parser sequences splitting ;

IN: hashcash

: check-stamp ( stamp -- ? )
    dup ":" split [ sha1-checksum get-bits ] dip
    second string>number head all-char-zero? ;