From 59ab9f21afdf5f7e1a8b25ea4eb5da3d33af51c3 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 10 Feb 2011 18:14:46 +0100
Subject: [PATCH] show value block and not value

---
 mifare-mad.pl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/mifare-mad.pl b/mifare-mad.pl
index c74f03f..b786248 100755
--- a/mifare-mad.pl
+++ b/mifare-mad.pl
@@ -175,12 +175,13 @@ foreach my $sector ( 0 .. 39 ) {
 				           : $access_condition_data->{$cond}
 				;
 			if ( ! $trailer && ( $cond == 0b001 || $cond == 0b011 ) ) {
-				my $value_block = unpack 'x4Lx8', $block;
-				my $positive = $value_block & 0x8000_0000;
-				my $value    = $value_block & 0x7fff_ffff;
-				$value = -$value if ! $positive;
+				my ( $value_block, $not ) = unpack 'llx8', $block;
+				my $value = $value_block;
+#				my $positive = $value_block & 0x8000_0000;
+#				my $value    = $value_block & 0x7fff_ffff;
+#				$value = -$value if ! $positive;
 				#$condition .= sprintf " = %d 0x%x", $value, $value_block;
-				$condition .= " = " . $value;
+				$condition .= sprintf " = %d 0x%x", $value_block, $not;
 			}
 		} else {
 			$condition = '';
-- 
2.20.1