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 (from parent 1:
9d2ba0f
)
decode GPB on sector trailer 0
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 21 Jan 2011 00:05:02 +0000
(
01:05
+0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 21 Jan 2011 00:05:02 +0000
(
01:05
+0100)
mifare-mad.pl
patch
|
blob
|
history
diff --git
a/mifare-mad.pl
b/mifare-mad.pl
index
a9681a1
..
1748d6d
100755
(executable)
--- a/
mifare-mad.pl
+++ b/
mifare-mad.pl
@@
-76,6
+76,11
@@
foreach my $i ( 0 .. 15 ) {
, unpack('H*',substr($card,4,1))
, unpack('H*',substr($card,5,11))
;
, unpack('H*',substr($card,4,1))
, unpack('H*',substr($card,5,11))
;
+ # General purpose byte (GPB)
+ my $gdp = ord(substr($card,$pos+0x39,1));
+ printf "ADV (MAD version code): %d\n", $gdp & 0b00000011;
+ printf "MA (multiapplication): %s\n", $gdp & 0b01000000 ? 'yes' : 'monoaplication';
+ printf "DA (MAD available): %s\n", $gdp & 0b10000000 ? 'yes' : 'no';
} else {
my $v = unpack('v',(substr($card, 0x10 + ( $i * 2 ), 2)));
my $cluster_id = unpack('HH', (( $v & 0xff00 ) >> 8) );
} else {
my $v = unpack('v',(substr($card, 0x10 + ( $i * 2 ), 2)));
my $cluster_id = unpack('HH', (( $v & 0xff00 ) >> 8) );
@@
-132,9
+137,10
@@
foreach my $i ( 0 .. 15 ) {
}
}
- printf "KEY A:%s | %s | B:%s\n"
+ printf "KEY A:%s | %s
GDP: %s
| B:%s\n"
,unpack('H*',substr($card,$pos+0x30 ,6))
,unpack('H*',substr($card,$pos+0x30 ,6))
- ,unpack('H*',substr($card,$pos+0x30+6 ,4))
+ ,unpack('H*',substr($card,$pos+0x30+6 ,3))
+ ,unpack('H*',substr($card,$pos+0x30+9 ,1))
,unpack('H*',substr($card,$pos+0x30+10,6))
;
,unpack('H*',substr($card,$pos+0x30+10,6))
;