diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-15 02:22:40 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-15 02:22:40 +0100 |
commit | 2e4f9782e13b613b1a2a7e525ba57e6f7062317d (patch) | |
tree | 776269d956831c25a4bddf4e014173ec325283b8 /mulkcms.lisp | |
parent | bf95e292f148f5c42bf834a64e42bf04154403bf (diff) |
Fix Hashcash support.
Diffstat (limited to 'mulkcms.lisp')
-rw-r--r-- | mulkcms.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp index 40bfc92..8f1e2ce 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -30,7 +30,8 @@ (defun hashcash-hash-validp (text) - (let ((digest (ironclad:digest-sequence 'ironclad:sha256 (flexi-streams:string-to-octets text)))) + (let* ((stripped-text (ppcre:regex-replace-all "\\s+" text "")) + (digest (ironclad:digest-sequence 'ironclad:sha256 (flexi-streams:string-to-octets stripped-text :external-format :utf8)))) (every #'zerop (subseq digest 0 2)))) |