[ViewVC] Diff of: cvs/Net-Knuddels/Net/Knuddels.pm

Comparing Net-Knuddels/Net/Knuddels.pm (file contents):
Revision 1.32 by root, Sun Jan 30 05:36:59 2005 UTC vs.
Revision 1.33 by root, Sun Jan 30 20:33:16 2005 UTC

 # TODO: anti-idle, immer oder optional
 # TODO: send_james for james-messages
+# TODO: Es wurde zu h\344ufig ein falsches Passwort beim Login verwendet.
+# TODO: _Falsches Passwort_ f\374r ich bin suess verwendet.
+# TODO: Dieser Channel ist auf _maximal 50_ Leute beschr\344nkt, bitte w\344hle einen anderen Channel.
+# TODO: Sie sind mit ihrem Nick in zuvielen Channels gleichzeitig eingeloggt. Schlie\337en Sie zuerst einen anderen Channel
 package Net::Knuddels;
 use Net::Knuddels::Dictionary;
 use strict;
    my ($i, $j);
    --$l;
    if ($l <= 17) {
-      for (0 .. $l) {
+      for my $x (0 .. $l) {
-         $i = _to32 $i * 3 + ord substr $xor, $l - $_;
+         $i = _to32 $i * 3 + ord substr $xor, $l - $x;
-         $j = _to32 $j * 5 + ord substr $xor, $_;
+         $j = _to32 $j * 5 + ord substr $xor, $x;
       }
    } else {
-      for ($_ = $l; $_ >= 0; $_ -= int $_/19) {
+      for (my $x = $l; $x >= 0; $x -= int +($l+1)/19) {
-         $i = _to32 $i * 5 + ord substr $xor, $_;
+         $i = _to32 $i * 5 + ord substr $xor, $x;
-         $j = _to32 $j * 3 + ord substr $xor, $l - $_;
+         $j = _to32 $j * 3 + ord substr $xor, $l - $x;
       }
    }
    $i ^= $j;
+   use integer; # force signed shift
    _to32 (($i & 0xffffff) ^ ($i >> 24))
 }
 my $RE_dec = join "|", keys %$Net::Knuddels::Dictionary;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines