fix password encryption

diff --git a/EZLocate.pm b/EZLocate.pm
index 3215dc3..09062f5 100644 (file)
--- a/EZLocate.pm
+++ b/EZLocate.pm
@@ -76,7 +76,7 @@ sub login {
     $bits >>= 24;
     $key = ($key ^ $bits);
   }
-  $key = $key & 0x3fffffff;
+  $key = $key & 0x0fffffff;
 
   my $client = $self->{'auth'} ||= $Auth->new;
   my $r_requestChallenge = $client->requestChallenge({
@@ -168,7 +168,8 @@ You can find documentation for this module with the perldoc command.
 
     perldoc Geo::EZLocate
 
-This library is not supported by TomTom.
+This library is not supported by TomTom.  Commercial support is available
+from Freeside Internet Services, L<http://www.freeside.biz>.
 
 =head1 LICENSE AND COPYRIGHT
 
@@ -180,7 +181,6 @@ by the Free Software Foundation; or the Artistic License.
 
 See http://dev.perl.org/licenses/ for more information.
 
-
 =cut
 
 1; # End of Geo::EZLocate