hashcash

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

I just turned hashcash-stuff on in Gnus (one of my friends started
using it).

In spam.el I noticed this:

 ;; TODO: does anyone use hashcash?  We should remove it if not.

so, my answer to that question is "Yes".


It looks like generating a hashcash works well - the SpamAssasin in
the other end recognizes the postage.


I'm not sure that the checking of a hashcash in contrib/hashcash.el
does - can anyone confirm/deny this?

From stepping through hashcash-verify-payment, I think the included
patch is needed.

(An example: the token:
"1:20:040926:asjo@koldfront.dk::e9a9d8c29f7c1806:ea6e" is split on
":", and the key should be my email-adresse (number 3, zero-indexed
counting, not number 2) - hashcash.el seems to not know about the
bit-field ('20' in the example)...)

Someone who know this better should probably say whether it's okay...
it would probably be better to fix hashcash-version if the version 1.2
that is referred to in hashcash.el is in use (hashcash.org doesn't
mention that format).


*** hashcash.el	21 May 2004 00:16:54 -0000	7.3
--- hashcash.el	26 Sep 2004 15:16:15 -0000
***************
*** 137,143 ****
    "Verify a hashcash payment"
    (let ((key (if (< (hashcash-version token) 1.2)
  		 (nth 1 (split-string token ":"))
! 		 (nth 2 (split-string token ":")))))
      (cond ((null resource)
  	   (let ((elt (assoc key hashcash-accept-resources)))
  	     (and elt (hashcash-check-payment token (car elt)
--- 137,143 ----
    "Verify a hashcash payment"
    (let ((key (if (< (hashcash-version token) 1.2)
  		 (nth 1 (split-string token ":"))
! 		 (nth 3 (split-string token ":")))))
      (cond ((null resource)
  	   (let ((elt (assoc key hashcash-accept-resources)))
  	     (and elt (hashcash-check-payment token (car elt)


-- 
 "This is either madness... or brilliance."                   Adam Sjøgren
 "It's remarkable how often those two traits coincide."  asjo@koldfront.dk