projects
/
perl-Mifare-MAD.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2f234af
)
show value block and not value
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 10 Feb 2011 17:14:46 +0000
(18:14 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 10 Feb 2011 17:14:46 +0000
(18:14 +0100)
mifare-mad.pl
patch
|
blob
|
history
diff --git
a/mifare-mad.pl
b/mifare-mad.pl
index
c74f03f
..
b786248
100755
(executable)
--- 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 ) ) {
: $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 .= sprintf " = %d 0x%x", $value, $value_block;
- $condition .=
" = " . $value
;
+ $condition .=
sprintf " = %d 0x%x", $value_block, $not
;
}
} else {
$condition = '';
}
} else {
$condition = '';