From 3496d00e963072b6e571166e9a079f0d04153e9a Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Wed, 12 Jun 2013 12:34:16 -0700
Subject: [PATCH] fix password encryption

---
 EZLocate.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
-- 
2.11.0