Digest::Hashcash
Steve Crook <[email protected]> Thu, 5 May 2005 17:54:16 +0100
| Newsgroups | gmane.mail.spam.hashcash |
|---|---|
| Message-ID | <[email protected]> |
I've been looking at Digest::Hashcash as a prelude to trying Hashcash in conjunction with INN's perl filtering capability (filter_nnrpd.pl). The results I'm getting from it though aren't what I was expecting. The following little script demonstrates this: use Digest::Hashcash; my $token = "1:24:050505:banana::AV205x9oU7dwKZu3:000000000008d6m"; my $cipher = new Digest::Hashcash; my $resource = $cipher->resource($token); my $tstamp = $cipher->timestamp($token); my $prefix = $cipher->verify($token); print "$resource\n"; print "$tstamp\n"; print "$prefix\n"; This returns: 050505:banana::AV205x9oU7dwKZu3 1704067200 24 Whilst the bit collision seems correct, the resource and timestamp components don't. Am I missing something?