[hashcash] Digest::Hashcash

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?

Other related posts: