Re: hashcash

[asjo@koldfront.dk (Adam Sjøgren)]

On Mon, 27 Sep 2004 14:03:56 +1200, Paul wrote:

> My local copy has had support for "version 1" stamps since they were
> announced, but I forgot to update my web site since my CVS server
> had a disk failure and was down at the time. I'll correct that right
> now: http://users.actrix.co.nz/mycroft/hashcash.el

Great - thanks!

(I think the comment in hashcash-version could use an update
describing the change from Adam Back's "version 0" to "version 1"
above hashcash.el's description of it's version 1.2 - what do you
think?)


Oh, another thing: there is a script for mutt called
"hashcash-sendmail"¹ that apparantly appends six or so trailing spaces
to the X-Hashcash: [stamp]-header (a friend of mine uses it, and I get
those from him).

hashcash.el sends those along to the hashcash-binary which then
rejects the stamp.

In my local copy of hashcash.el I've worked around this by doing this:

--- hashcash.el.orig	2004-09-27 03:52:27.000000000 +0200
+++ hashcash.el	2004-09-27 16:30:59.000000000 +0200
@@ -211,7 +211,7 @@
 	      (setq ok (hashcash-verify-payment (cadr value))))))
 	(goto-char (point-min))
 	(while (and (not ok) (search-forward "X-Hashcash: " end t))
-	  (setq ok (hashcash-verify-payment (hashcash-token-substring))))
+	  (setq ok (hashcash-verify-payment (replace-in-string (hashcash-token-substring) " " ""))))
 	(when ok
 	  (message "Payment valid"))
 	ok))))

If there's a cleaner/better way/place to do it, it should probably be
done in hashcash.el proper.


  Best wishes,

    Adam

¹ <http://www.hashcash.org/mail/mua/hc-sendmail/>
  <http://www.toehold.com/~kyle/hashcash/>

-- 
 "Stop blowing holes in my ship!"                             Adam Sjøgren
                                                         asjo@koldfront.dk