| 1 |
root |
1.1 |
%include "std.mgp" |
| 2 |
|
|
%%default 1 bimage "gtk/gtk-window.jpg" 1024x768, center |
| 3 |
|
|
%page |
| 4 |
root |
1.2 |
%charset "iso8859-1" |
| 5 |
root |
1.4 |
%bimage "bg.png" 1280x1024 |
| 6 |
root |
1.1 |
|
| 7 |
|
|
Digest::Hashcash |
| 8 |
|
|
|
| 9 |
|
|
|
| 10 |
root |
1.3 |
|
| 11 |
root |
1.1 |
%pause |
| 12 |
|
|
Erzeugung sehr langsam |
| 13 |
|
|
|
| 14 |
|
|
%pause |
| 15 |
|
|
Prüfung sehr schnell |
| 16 |
|
|
|
| 17 |
|
|
%pause |
| 18 |
|
|
Anti-SPAM |
| 19 |
|
|
|
| 20 |
|
|
%pause |
| 21 |
|
|
Rate-Limiting von Resourcen |
| 22 |
|
|
|
| 23 |
|
|
%page |
| 24 |
|
|
|
| 25 |
|
|
Hashcash-Tokens |
| 26 |
|
|
|
| 27 |
|
|
|
| 28 |
|
|
%font "t5" |
| 29 |
|
|
0:040627133051:marc@gtk.org:lUoUt=;& |
| 30 |
|
|
%pause |
| 31 |
|
|
V: Datum : Nutzlast : Digest |
| 32 |
|
|
|
| 33 |
|
|
|
| 34 |
|
|
%pause |
| 35 |
|
|
printf '0:040627133051:marc@gtk.org:lUoUt=;&' |
| 36 |
|
|
| sha1sum |
| 37 |
|
|
|
| 38 |
|
|
%pause |
| 39 |
|
|
000000e1089a7f9d5fae1304ecbcb59b4ca640de |
| 40 |
|
|
|
| 41 |
|
|
%page |
| 42 |
|
|
|
| 43 |
|
|
Perl |
| 44 |
|
|
|
| 45 |
root |
1.3 |
|
| 46 |
|
|
%font "t4" |
| 47 |
root |
1.1 |
use Digest::Hashcash; |
| 48 |
|
|
|
| 49 |
root |
1.3 |
|
| 50 |
root |
1.1 |
%pause |
| 51 |
|
|
$secs = estimate_time $size; |
| 52 |
|
|
$size = estimate_size $time[, $min]; |
| 53 |
|
|
|
| 54 |
root |
1.3 |
|
| 55 |
root |
1.1 |
%pause |
| 56 |
|
|
$cipher = new Digest::Hashcash ...; |
| 57 |
|
|
%pause |
| 58 |
|
|
print $cipher->hash ('marc@gtk.org', size => 24); |
| 59 |
|
|
|
| 60 |
root |
1.3 |
|
| 61 |
root |
1.1 |
%pause |
| 62 |
|
|
$ok = $cipher->verify ($token); |
| 63 |
|
|
$bits = $cipher->verify ($token, collisions => 0); |
| 64 |
|
|
%pause |
| 65 |
|
|
$time = $cipher->timestamp ($token); |
| 66 |
|
|
%pause |
| 67 |
|
|
$data = $cipher->resource ($token); |
| 68 |
|
|
|
| 69 |
root |
1.3 |
%page |
| 70 |
|
|
|
| 71 |
|
|
Aus! |
