From: Mark Wells <mark@freeside.biz>
Date: Wed, 12 Jun 2013 19:34:16 +0000 (-0700)
Subject: fix password encryption
X-Git-Url: http://git.freeside.biz/gitweb/?p=Geo-EZLocate.git;a=commitdiff_plain;h=3496d00e963072b6e571166e9a079f0d04153e9a

fix password encryption
---

diff --git a/EZLocate.pm b/EZLocate.pm
index 3215dc3..09062f5 100644
--- 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