my $access_condition_trailer = {
0b000 => 'R/W: KEYA:-/A ACCESS:A-/- DATB:A/A ?',
my $access_condition_trailer = {
0b000 => 'R/W: KEYA:-/A ACCESS:A-/- DATB:A/A ?',
0b100 => 'R/W: KEYA:-/B ACCESS:AB/- KEYB:-/B',
0b110 => 'R/W: KEYA:-/- ACCESS:AB/- KEYB:-/-',
0b001 => 'R/W: KEYA:-/A ACCESS:A-/A DATB:A/A ? transport conf',
0b100 => 'R/W: KEYA:-/B ACCESS:AB/- KEYB:-/B',
0b110 => 'R/W: KEYA:-/- ACCESS:AB/- KEYB:-/-',
0b001 => 'R/W: KEYA:-/A ACCESS:A-/A DATB:A/A ? transport conf',
+my $life_cycle = {
+"\x78\x77\x88" => 'MAD INIT,RW',
+"\x7F\x07\x88" => 'NFC INIT,RW',
+"\x07\x8F\x0F" => 'READ ONLY',
+};
+
-die "expected 4096 bytes, got ",length($card), " bytes\n"
- unless length $card == 4096;
+die "expected 4096 or 1024 bytes, got ",length($card), " bytes\n"
+ unless length $card == 4096 || length $card == 1024;
next if substr($card,$pos,$blocks * 0x10) eq "\x00" x ($blocks * 0x10);
# General purpose byte (GPB)
next if substr($card,$pos,$blocks * 0x10) eq "\x00" x ($blocks * 0x10);
# General purpose byte (GPB)
printf "MA (multiapplication): %s\n", $MA ? 'yes' : 'monoaplication';
printf "DA (MAD available): %s%s\n", $DA ? 'yes' : 'no',
substr($card,$pos+0x30,6) eq "\xA0\xA1\xA2\xA3\xA4\xA5" ? ' public' : '';
printf "MA (multiapplication): %s\n", $MA ? 'yes' : 'monoaplication';
printf "DA (MAD available): %s%s\n", $DA ? 'yes' : 'no',
substr($card,$pos+0x30,6) eq "\xA0\xA1\xA2\xA3\xA4\xA5" ? ' public' : '';
my $c2 = ( ord(substr($card,$trailer_pos+8,1)) & 0x0f );
my $c3 = ( ord(substr($card,$trailer_pos+8,1)) & 0xf0 ) >> 4;
my $c2 = ( ord(substr($card,$trailer_pos+8,1)) & 0x0f );
my $c3 = ( ord(substr($card,$trailer_pos+8,1)) & 0xf0 ) >> 4;
- printf "# trailer @%x c1:%d c2:%d c3:%d [%016b]\n"
- , $trailer_pos, $c1, $c2, $c3
+ printf "# trailer @%x %016b c1:%08b c2:%08b c3:%08b\n"
, unpack('n',(substr($card,$trailer_pos+7,2)))
, unpack('n',(substr($card,$trailer_pos+7,2)))
foreach my $j ( 0 .. $blocks - 1 ) {
my $offset = $pos + $j * 0x10;
my $block = substr($card, $offset, 0x10);
foreach my $j ( 0 .. $blocks - 1 ) {
my $offset = $pos + $j * 0x10;
my $block = substr($card, $offset, 0x10);
- my $mask = 1 << $j;
- my $cond
- = ( ( $c1 & $mask ) * 4 )
- + ( ( $c2 & $mask ) * 2 )
- + ( ( $c3 & $mask ) * 1 )
- ;
- $cond >>= $j;
+
+ my $acl_block =
+ $sector < 32 ? $j :
+ $j % 5 == 0 ? $j / 5 :
+ undef; # display condition only once for block group
+
+ if ( defined $acl_block ) {
+ my $mask = 1 << $acl_block;
+ $cond
+ = ( ( $c1 & $mask ) * 4 )
+ + ( ( $c2 & $mask ) * 2 )
+ + ( ( $c3 & $mask ) * 1 )
+ ;
+ $cond >>= $acl_block;
+ $cond = sprintf ' %03b %s'
+ , $cond
+ , $j == ( $blocks - 1 )
+ ? $access_condition_trailer->{$cond}
+ : $access_condition_data->{$cond}
+ ;
+ } else {
+ $cond = '';
+ }
my $hex_sw = unpack('h*',$block);
$hex_sw =~ s/(....)/$1 /g;
$hex .= " | $hex_sw";
}
my $hex_sw = unpack('h*',$block);
$hex_sw =~ s/(....)/$1 /g;
$hex .= " | $hex_sw";
}
- printf "%04x %s %03b %s\n", $offset, $hex
- , $cond
- , $j < 3 ? $access_condition_data->{$cond} : $access_condition_trailer->{$cond}
- ;
+ printf "%x %03x %s%s\n", $j, $offset, $hex, $cond;
,unpack('H*',substr($card,$trailer_pos ,6))
,unpack('H*',substr($card,$trailer_pos+6 ,3))
,unpack('H*',substr($card,$trailer_pos+9 ,1))
,unpack('H*',substr($card,$trailer_pos+10,6))
,unpack('H*',substr($card,$trailer_pos ,6))
,unpack('H*',substr($card,$trailer_pos+6 ,3))
,unpack('H*',substr($card,$trailer_pos+9 ,1))
,unpack('H*',substr($card,$trailer_pos+10,6))