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 |