Parent Directory | Revision Log | Patch
revision 12 by dpavlin, Sun Apr 22 22:50:42 2007 UTC | revision 13 by dpavlin, Sun Apr 22 22:56:35 2007 UTC | |
---|---|---|
# | Line 25 for my $i ( 0 .. length($p) ) { | Line 25 for my $i ( 0 .. length($p) ) { |
25 | printf("# %-2d '%s' %2d %02x -- %2d %02d\n", $i,$c,$o,$o,$sum,$sum); | printf("# %-2d '%s' %2d %02x -- %2d %02d\n", $i,$c,$o,$o,$sum,$sum); |
26 | } | } |
27 | ||
28 | printf("checksum: %s == %02x\n", $orig, $sum); | my $xor = 0; |
29 | map { $xor ^= ord($_) } split(//,$p); | |
30 | ||
31 | printf("checksum: %s == %02x [xor=%02x]\n", $orig, $sum, $xor); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |